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Main 
E 126 Y=+1:G0SUB11000:PRINT"M1":Y=Y-1 
E REM A MAIN GENERAL 4 132 S$=3$+L5 
DEN ARA RR III 135 NEXT 1 3 
31 POKESSO, 0: PRINTCHR$C142)CHREC8)5 -PRINTUS 198 ve T+1 BUSUDI 1000 PRINTO e ia tol 
22 PRINT"XJ  E.G.S. EDICIONES FORUM, S.A." 145 X=2:Y=15:GOSUB11000:PRINT"2 CUANTAS PREGUNTAS (1-20) ";: INPUT" 45 NL 
32 PRINT"xI == $ E pi OR NL)28 THEH GOSUB 9158:60T0145 
34 PRINT"X1 Mn "; 2 NF$="FD"+S$:GOSUB £900:1F A=62 THEN 154 
35 PRINT=ZO e 0 153 COSUE 3006 RUNZO 
40 PRINT"SEADEINTRODUCIR EL NUMERO CORRESPONDIENTE" =35:G0SUB 12009 
42 PRINT"MIBRBDDDBEL PROGRAMA DESEADO" . 155 COSUEE090 :COSUEG200 
44 PRINT"SUBBBDEALZOM GENERACION TEST-PUNTOS" 157 02=2:PRINTHOS:GOSUB 7828 
45 PRINT"ABBBBDES 22M DESARROLLO TEST-PUNTOS" 168 IN=CY(2) 
46 PRINT"AIMBADE ZO GENERACION TEST-ATRIEUTOS" 165 FOR K=2 TO 21:TP<K)=TPC2):LOCKI=LOC2) ¿ND(KI=ND(2):0X(KI=CX(2) 
47 PRINT"MIBBMDESC 43201 DESARROLLO TEST-ATRIBUTOS" 170 IN=IN+1:CwW(Ko=IN3NEXT K 
48 PRINT"AMMBDDE ASTON GENERACION TEST-SIMEOLOS" 130 NUC=21 
43 PRINT"AUBRBRESC ION DESARROLLO TEST-SIMEOLOS" 190 FOR LO=1 TO NL 
50 PRINT"MBBRDE ADN FIN DE TAREA" 195 ES$(1)=STR$(LO) 
51 INPUT"MBESCUAL : 25R a Pasai 2000 
S2 IF R=0 THEN PRINT"21":END > 
57 PRINTS SPCC4) "ESPERAR LA CARGA, POR FAVOR" , 
60 ON FE COTO 100,200, 300,400, 500,600 220 IF FS=6 THEN 269 
100 PRINT"2SBPOKE43, 1:POKE44,8:POKE45,3:PUKE45, 8: POKE47, 3: POKE45,8" 222 1F FS=7? THEN RUNZ0 
110 PRINT"POKE49.,3:POKESO, 2: POKE4O5€, 0: LORD"CHRSC340 "GP CHRGC347 3" 225 1F FS=3 THEN 210 
120 GOTO1DOÓ 230 REM TRANSFIERE AL FICHERO FD+S$ 















200 PRINT"REPOKE42,1:POKE44, 8: POKE45. 3: POKE46.3:POKE47,3:POKE48.8" 235 J9=2+204(LO-1):B=1 

210 PRINT"FOKE49,3:POKESO, 2: POKE4096,0:LOAD"CHEFC(34) "UP"CHREC34)", 8" 240 FOR K=J9 TO J9+19 

228 GOTO1O00 242 E=B+1 

309 PRINT"*EPOKE43, 1:POKE44, 8: POKE45, 3: POKE4€, 2 :POKE47.3:POKE42,8" 245 PA=K:GOSUB 6200:PRINTHZ, ES$(B): INPUTH1, A, B$,C,D 
310 PRINT"POKE49,3:POKESO, 5: POKE4056, 0:LOAD"CHR+$034"GA"CHRECD4 0,2" 247 NEXT K 

320 GOTO1G06 y 250 NEXT LO 

400 PRINT"*SREPOKE43, 1: POKE44,2:POKE4S, 3: POKE46, 3 -POKE47, 3: POKE43,2" 255 IF NL<10 THEN AA$="0"+RIGHT$CSTRSCNL),1):GOTO 265 
410 PRINT"POKE45,3:POKESO, 2: POKE4036.0:LOAD"CHE$(234) "UA"CHREC34)", 8" 260 AAS=RIGHTECSTRECNLO, 2) 

420 GOTO 1006 265 FOR K9=1 TO 33:AAS=AAS+"4":NEXT K9 

500 PRINT"RBPOKE43, 1: POKE44, 2: POKE45, 3: POKE4S, 2: POKE47+ 3: POKE42, 5" 278 PA=1 :GOSUESS00:PRINTH2, ARAS 

510 PRINT"POKE49, 3: POKESO, E: POKE4056., 4: LOAD"CHE3(24)"63"CHEF(34)",2" 273 GUSUB 6600: COSUBE40O 

528 GOTO 1000 230 REM INTRODUCCION RESPUESTAS 





600 PRINT"SEFOKE43. 1: POÓKE44, 30 FPOKE4S, 3: POKE46.3:POKE47.:3:POKE43, 0" 
510 PRINT"POKE43, 3: POKESO. 3: POKE4095.,0:LOAD"CHR3C034)"US"CHR$(34)",3" 








NF3="FR"+5$:GOSUB 6900: 1F A=62 THEN 295 
GOSUB 9006 :RUN20 


1000 FÓKE138, 10: FOPL=63170640: READA :POKEL. H: NEXT 293 LR=35:G0SUB 12000 
1010 DATRA13,13,145,145,13,22,85,18,59,13 297 GOSUB6000 : COSUBE200 

300 02=3:PRINTHOS:GOSUE 7009 
READ”. 305 IN=CY(2) 

310 FOR J9=4 TO 20 STEP2 





312 TPCJI)=TPC(2):TPCJ9+19=TPL3) LOCI9I=LCC2) :LO(II1ISLOCI) NDCJI)=NDC2> 
314 ND(JI+1)=NDC3) :CXCJII=CXC2) ¿CRCJF1 ICM (3) 
12 REM ARA MATA ORAR 315 IN=IN+1 :CYC(J9)=IN:CY(II+1I=IN 
13 PRINT"J 216 NEXT _J9 
15 X=6:Y=11:G0SUB11000:PRINT"MINTRODUCIR EL DISCO DATOS" :Y=143:X=5+4 312 NUC=21 
16 -PRINT"Y PULSAR UNA TECLA" 320 FOR LO=1 TO NL 
17 GET AS:IF ASO"" THEN PRINTHOS:GOTOZ0 322 B$(1)=STR$(LO) 
12 FOR T=1 TO 400:NEXTT:GOTO13 325 COSUE 2008 
20 DIM ES$(25),TP(25),L0(25)+NDC25),0X(25), 04025), D4(15) + D(15) 327 J=1 
21 DIM TFC15),D5(15),H$(12),P3(20) 238 GOSUB 3040 
A E E 335 IF FS=6 THEN 325 
25 POKE 650,122 340 IF FS=9 OR FS=7 THEN 3230 
26 PRINTHOS 345 J9=1+104CLO-1):B=1 
27 REM_44% LECTURAS DE SERVICIO 444 350 FOR K=J9 TO J9+2 
38 RESTORE 952 E=B+l 
25 FOR I=1 TO 15'READ TFCI)NEXTI 354 AAS=BF(E>+BSCE+1) 
48 FOR I=1 TO 12:READ H5CI>:NEXTI 356 PA=K:GOSUB 6290: PRINTAZ, RAS: INPUTHL-A.ES,C,D 
y 352 E=E+1 
100 PRINTHOS:02=1:GOSUE 7099 2360 NEXT K 
110 X=2:"=10:GOSUE11000:PRINT"IRNTRODUCIR LA SIGLA " 265 NEXT LO 
115 Yatra: GOSUEL1000:PRINT"SMEL TEST (2 CARACTERESM =-3":X=26 370 GOSUB 6609: GOSUBE400 
117 55="" 288 REM INTRODUCCION CAMAS Y RESULTADO 
119 Y=y+1:GOSUB11900:PRINT"RI":Y=y=1 285 NF$="FT"+S$:GOSUB 6980: 1F A=62 THEN 295 
129 FOR I=1 TO 2 356 GOSUE 2006: RUNZ6 
122 GET LS: IF L$="" THEN 122 325 LR==9:GOSUE 12680 
123 W=Y+1 :GOSUEL1OGO :PRINT" ":Y=9-1 488 COSUESOOO : COSUES200 
124 GOSUB11000:PRINT "W"L$:X=X+1 405 02=4:PRINTHOS:GOSUE 7800 


1ID=Dwc4> 
FOR K=5 TO 13:D3cK>=STR$(K-3+". "0 DXC(KI=DX(4) : ID=1D+1:DY(K)=I1D 
EMO =10 THEN DxcK>=DxcK>-1 


IN=CwWc1) 

S FOR K=3 TO 19 STEP 2 

TPCKo=TPC 1) LO(KI=LOC1) ND<K)=0: TPCK+1)=TPC1):LOCK+1)=LCC1):ND<K+1)=9 
CACKI=OXC1) ¿CRCK +19 =CXC 25 IN=IN+10CYOKO=IN:CYCK+10=IN 

NEXT K 

HUC=20 : Ds=13 

g99ua 2000 


COSUB 3048 

IF FS=6 THEN 430 

ARS="" 

IF FS=7? OR FS=9 THEN 435 
FOR LO=1 TO 20 
WYALCESCLOS 


O IF 4210 THEN ESC(LO)="9"+RIGHTECSTRECMO, 1) 


AAS=ARS+BFCLOS ¿PECLOO=ESC(LO) 

NEXT LO 

FOR I=1 TO 40:ARS=ARF4+"4":NESTI 

PA=1:COSUE 62300:PRINTRZ, ARS: INPUTH1,-A.BS,C,D 


3 02=5:PRINTHOS :GOSUE7O00 
2 P=1 


FOR LO=2 TO 11 
BHIP) BERLZI RPG 
COSUE 2000 


4 J=1 


COSUE 3040 


O IF FS=6 THEN 


425 
IF FS=9 OR FS=7? THEN 4395 


a P=P+2 
S AAS=ESCI+EICA)+BGOSABECE) 


e a 56300: PRINTRZ,+ ARAS: INPUTR1,A-BF.C+D 

HE+T LO 

GUSUBE50O : CUSUEEIDO 

REM 4442 RE FIN INTRODUCCIONES Add 

02=1 :PRINTHOS : GOSUE7O00 

=3:Y=10:C0SUB11060'PRINT"SHONTINUO (SI/NO> ";: INPUT "3";R$ 
IF R$="NO" OR R$=",4" THENPRINTHOS :POKE646,6:CLR:LOAD"TEST",8 


"IF R$<S"SI" AND RECO "es" THEN 555 


RUN 

REM 

REM 440 PRESENTA MASCARA 40% 

FORI=1TODS =D 4015: =D 1) :GOSUB11000:PRINT"A"DFCI>NEXTI 
FOR J=1 TO NUC 

Ag="" 

IF TPCJI<5S AND TPCJ><94 THEN 2060 

ACA) CJ) GOSUB11000: PRINT"A" BG) 

GOTO 2130 


2060 Ni=LCCJ):M2=NDCJ) 0 IF TPCJ)=1 OR TPOJ)=2 THEN C$=NS$:GOTO2070 
2064 C$=A53 


FOR I=1 TO Ni-N2-1:A$=A$+C0$: NEXTI 


2073 IF N2=0 THEN A$=A$+C0$:GO0TO 2095 


AS$=A$+PD$ 


2090 FOR I=1 TO N2:A$=A3+"0":NEXTI 


A=CRCJO ¡=CW CJ) :GOSUB 11000 


2096 PRINT "9";A$;"a" 


B3cJo="" 


2098 FOR K=1 TO N1-N2-1 

2100 ESCJ)=BSCJ)+NSS 

2103 NEXT K 

2106 IF N2=0 THEN BS(J>=ESCJ>+NS$: COTO 2130 
2110 EScJ)=BSCJ)+PDS 

2120 FORK=1TON2:BS(J)=B4(J>+N34 : NEXTK 

2120 NEXT J 

2159 RETURN 


REN 
3010 REM 4* DATA ENTRY ak 


3040 NC=J:X=CHÚNCI :Y=CW NC) 
2050 CC=1 

3060 GOSUE 3240 

23065 IF FS=9 THEN RETURN 
3070 IF FS=0 THEN 3100 
3030 IF FS>4 THEN 3210 
3039 GOTO 3120 

2100 REM CARACTER 





J=3+1:1F JóNUC THEN 3030 

GOTO 3048 

ON FS GOTO 3130,3150.3170. 3190 

IF J>1 THEN J=J-1:G0TO 3040 

FS=0: J=NUC:GOTO 3040 

IF J<NUC THEN J=J+1:GOTO 3040 

FS=0:GOTO 3038 

IF CCXLCCJ> THEN S=1:CC=CC+1:X=X+1:G0SUB 11000:GOTO 3068 
FS=0:GOTO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G05UB11000:G0TO 3060 
ESraoro 3040 


IF FS>8 THEN FS=0:GOTO 3069 
IF FS=3 THEN FS=0:GOTO 3100 
RETURN 


REM 
ao MK LECTURA DE 1 CAMPO 44 


IF TPCNCI=4 THEN RETURN 

IF TP<NC)=2 THEN GOSUE 9000: RETURN 

IF MIDSCESCNC),CC,1)=PDS THENX=X+S:CC=CC+S 

GOSUE 11088 

GET A$:1F A$c>"" THEN 3338 

GO0SUB11980:PRINT"4a"; :GOSUB11000:PRINT"A"¡MIDS(BSCNCI/CC+1); 
TO 

IFASCIAS)=190RASCCAS$)=2007RASCCAS)=1470RASCCAS)=148 ORASCCAS)=44 

PRINT"Ma"; As; 

CA=ASCCAS) 

FOR I=1 TO 15 

IF TFCI=CA THEN FS=1:1=15:G05UE3638: RETURN 

IF FS=9 THEN RETURN 

NEXTI 

IF TP<NCI<21 THEN 3459 

IF CA=45 OR CA=46 ORCCA>=4BANDCAC=57>THEN3420 

GOTO 23238 

IF CAÍ746 THEN3450 

GOSUE 4278 

IF SHP=1 THEN 3410 

S=1:GOSUB 3528 

IF'CC=LCONC) THEN RETURN 

Ce=Cb+1 :X=X+1:GOTO 3318 

REN %k TRASFERENCIA AL BUFFER *k 


IF CC=1 THEN SN$="":GOTO 3599 
SHS=LEFTS(ES(NC),CC-1) 

IF CC=LCCNC) THEN DE$="":GOTO2610 
N=LC(NCI=CC: DES=RIGHTF(BFCNC) Mo 
BSCNC)=SNS+AS+DES 

RETURN 

REM 

REM Ak COMANDOS A+ 

REN 

Q IF FS>5 THEN 3710 

RETURN 

IF FS=2 THEN GOSUE 12000:RETURN 
IF FS=3 THEN GOSUB 4020:RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUE 3740,3910 

RETUEN 

REM 

PEM 4% INSERCIÓN +4 

REM 


b IF CO=LCONCITHEN RETURN 

IF CC=1 THEN SN$="":COTO3500 

Y SN$=LEFTS$(ESF(NC),CC-1> 

H=LCNCI=CC+1 :DES=RICHTECESCNCI ¿NW 

C+=EL$ 

AI=SNI+CF+DES E 

ESIUNCI=LEFTSCAS. Le: UNC 

ARAS 

A=CXCONCO + W=C MANCO: COSUE 11000 
A 

REN 


PRINT ES$C(NC):S=-1 

IF RICHTSCESCHCO, 17=FD+ THEN 3720 
RETURN 

2309 REM 

3910 REM 4444 BORRADO +4k4+ 








THEN 3330 


























REM 7005 P=(30-L)/2:Pg="":FORK=1TOP:P$=P$+" ":NEXT K 
IF TPUHC><>1 THEH 2950 7005 PRINT"3";:PRINTCHR$<¿14>5 
IF MIDSCEGCONCI 2, 1=PDS AND CC=1 THEM RETURN 7002 PRINT "MZA T.L.6.  TDICIONES -ORUM, +.%.” 
IF CC<1 THEN RETURN 7011 PRINT"MIA "¡US,* Ys ; 
IF CO=sLCCNC) THEN DE+="":GOTO 3950 7612 PRINT"MXNA Ps; 
A NSLC<NCIEC: DES=RICHTSCEGCNCO. HO 7015 PRINT"EALE "40M PS 
SHi3=LEFTECESONCI,CO-1) 7020 PRINT"IBBBDDDIES ú 
IF TP<NC)=1 OR TP£¿NC)=2 THEN Cé=NS$:COTO 40180 7029 _X=1: Y=22: GOSUB1 1998 : PRINT ———————_———" 
C4=AS5 7033 X=25:W=23:G0SUB11000:PRINT"MA-1-L+ 1: 41, 
a ESCNCI=SNG+DES+C4 7024 REM 
ARS Y= 7648 ON 0Z GOTO 7110,7042,7044.,7046,7048 
K=CKONCO Y=CY (NC) :GOSUE 11000 7042 LV=27:GOSUB20090 : NUC=2 : DS=1: GOTO7090 
XIX: 7044 LY=40: COSUB20000 : NUC=3: DS=3:G0T07098 
PRINT BS(NC):S=1:PETURN 7046 LY=64 : COSUB20000 : NUC=2: DS=4 : GOTO7099 
REM ARA AL INEADOS FRRRRR 7048 LV=26: GOSUB20000 : NUC=6 -D5=3: G0T07098 
IF LCC(NC>=1_ THEN RETURN 7099 FOR I=1 TO DS:READ D$(1>,DXc1),DY<1>:NEXTI 
Ni=LC(NCI-CC+1 7095 FOR I=1 TO NUC:READ TPC<1>,LOCI) NDC 1 CXC ICC O 
IF CC=1 THEN ES$(NC>="":COTO4190 70237 REM 
ES(NC>=LEFTECEGONCI/CO-1) 7100 NEXT 1 
IF_TP(NC>=1 OR TP(NC)=2 THEN 4150 ¿110 RETUEN 
FOR I=1 TO Mi 2000 REM dk ERRORES FICHEROS Ak 
BSONC>=ESF(NCI+BLE 2002 REM 
NEXT 1 9005 PRINT"0J":X=5:W=12:G05UB11000:PRINT"NT_T- , “ISCO FUERA DE LINEA":GOTO 9010 
GOTO 4190 9006 PRINT"0":%=5:Y=12:G05UB11090:PRINT"MCS— , EL FICHERO DATOS YA" 
FOR I=1 TO Mi 2007 Y=+2:C05UB11000:PRINT"SE HA CREADO EN ESTE DISCO" 
O ESCNC=CHRFC32I+BGLNCO 2010 X=6:Y=21:GOSUE11000:FRINT"EPULSE UNA TECLA PARA YOLYER" 
NEXT 1 9615 POKE198,0:WAIT193,1 
Q IF RIGHTF(BS<NC), 1)=PDG THEM ES(NC>=EL$+LEFTSCESUNC), LOGNCI=1) 9020 FOKE133,0:RETURN 
RSCACNCOY=CWYONCI:GOSUE 11000 9150 REM Ak INDICA ERROR ARI RAR 
PRINT BSCNC) RETURN 9152 X=10:'=20: GOSUE11000:PRINT"AN La TA MATAN" 
REM 44% CTRL PUNTO ado 2154 FOR T=1 TO2000:NEXTT 
SHP=0 9156 X=10:Y=20:COSUE11000:PRINT" a 
IF CC=1 OR CO=LCCUNC) THEN SWP=1:RETURN 31€0 RETURN 
G FOR I=1 TO LC<NC 10000 FEM AHHARARARIRA DATA RRA 
IF MIDSCBSCNCI + 1,19=BL$ THEN I=LCCNC):SWP=1 : RETURN 10001 DATA 145,17,25,157,140,133.136,13,25.134.,125,0.0.0.0 
NEXT I:RETURM 10005 REM 
REN 10907 DATA"A <-> AA A A 
Y REM 10010 DATA" a A A 
REM 4 GESTION DISCO 404 10012 DATA" o Ll 0 LAA ST 
E 10014 DATA"A LAR A LA si 
REM APERTURA CANAL COMANDOS 10016 DATA" A — LR AA 
REM === 10018 DATA" A A ¿Ae ALS" 
OPEN1.9,15 10020 DATA" IAEA INN 
RETURN 10022 DATA" ASS 
REM ono 10024 DATA" EXP MESA ñ 
REM APERTURA FICHERO 10026 DATA" ed 
REM —==============- 10622 DATA"%A  -1-L+! A 
OPEN2,3,3,MF$ 10030 DATA" 2-1 0 MALA LA" 
REM 10040 PE ARARRARER DZ=2 ARRARIAA 
RETURN 10042 DATA"NTRODUCIR LA PREGUNTA N.".6,0 
REM === 10042 DATA4,23,0,31,0 
REM CIERRE CANAL COMANDOS 10044 DATAZ.25,0,3,1 
REM nono 10050 REM JAR OZ OR 
CLOSE1 10052 DATA"AL_ESPUESTA A LA PREGUNTA N.",6,7 
RETURN 10053 DATA"-ESPUESTA",2.9,""UNTOS",34,9 
REM 10055 DATA4,3,0,32,7 
AA 10056 DATA2,323,0.2,11 
REM CIERRA FICHERO 10057 DATA1,2,0,36,11 
REM arms ein 10060 REM AR DZ=4 Rd: 
CLOSE2 10061 DATA"*NTRODUCIR LAS GAMAS DE PUNTUACION", 3,7 
RETURN 10062 DATA": INIMO",10,10,"*AXIMO",19,10." 1.",7,12 
REM === 10063 DATA1,2.0,12,12 
REM APUNTA AL REGISTRO 10064 DATA1,2,6,22,12 
REM o 10070 PEN HIRRRRRAR OZ AR do 
R1=PA:R2=0 3 10071 DATA" NTUNTUACION :",7,7," -",23,7 
IF R1>256 THEN R2=INT<PA/2565:R1=R1-2564R2 10072 DATA"JUICIOS :",14,11 
PRINTH1,"P"CHRECI+96)CHRS$CR1ICHRECRZICHREC1 10073 DATA4.2,0.20.7 
RETURN 10074 DATA4.2,0,25,7 
REM 10875 DATA3,20,0,9,14 
REM CONTROLES EN LOS FICHEROS 10076 DATA3.20,0,9,16 
GOSUES000 : GOSUEE200 10077 DATA3,20,0,9,18 
INPUTR1,A,B$,C,D 10078 DATA3.20,0,9.20 
COSUES400 : GOSUPEENO 10100 REM —================- 
RETURN 10200 REM FANIA 
REM 11009 REM 
REM 4%k CARGA LOS DATA 4*+* 11001 REM 444%k POSICIONADO EN X,Y Ad 
VOS$="  |ENERACION | “el PUNTUACIONES" 11005 POKE 211.X 
L=LENCY0$)-3:L$=RIGHT$(V0%,L 11010 POKE 214,Y 





Us="5oz 1" 11015 SYs58732 


11020 RETURN 

12000 REM dk CREA LOS FICHEROS tdo 
120035 GOSUE 6090 

12010 FIS$=HF+ 

12013 LE=LR+2 

12020 OPEN 2,28,2,"B:"+F1$+",L,"+CHR$(LRA 
12025 IF LEFTSCNF+,2)="FR" OR LEFTS$C(NF+$,23="FT" THEN AAS="%$$":GOTO 12035 
12030 ARA$="01" 

12035 FOR K9=1 TO LR-4:RA$=AA++"*":NEXTKO 
12048 PA=1:GOSUBGS00:PRINTH2., ARAS 

12045 CLUSE2 

12059 CLOSE1 

12100 RETURN 

13000 REM 4k AYUDA 44% 

13005 CO=x:CV=Y 

13010 X=1:w=23 

13015 GOSUB11000:PRINTHS$C175" 5 
13017 FOR HE=2 TO 12 

13020 GETR$: IFR$=""THEN13020 

13021 IF RC>CHR$C13) THEN 13020 

13022 GOSUB11000:PRINTHECHE> 

13038 NEXT HE 

13035 E SS ERE 1 


CE 





R ETLURN 

20000 REM FESTORE DATA 

20003 RESTORE 

20045 1F LW<=0 THEN RETURN 

20050 FOR I=1 TO LW:READ LW$:NEXTI 
20100 RETURN 


REN opa MAIN 4RREERRIARAA 

PRIN 

A=7:=11:GOSUB11000:PRINT"MINTRODUCIR EL DISCO DATOS": Y= +3: X=%+4 
GOSUB11000:PRINT"Y PULSAR UNA TECLA" 

GET AS:1F ASCO" THEN PRINTHOS:GOTOZ20 

FOR T=1 TO 408:NEXTT:GOTO1Z 

DIM_PUC1O) MILL) MKC10), 5504) 









,128 


PERO PA A A e 
0 0 O A 


y COSUEL1OO PRINT"SHNTRODUCIR LA SIGLA " 

115 Y=+2:GOSUE11000:PRINT"EDEL TEST (2 CARACTERES --4:X=26 
11? 33="" 

119 v=w+1: GOSUE1 1000: PRINTUT" => 

120 FOR I=1 TO 2 

122 GET L$: IF Lino THEN 122 

23 M=1+1 :COSUB11D0D:PRINT" ":W=Y-1 

24 COSUB11000:PRINT "ALS: A=+1 

126 Y=4+1:COSUE11000:PRINT“ MT": Y=Y-1 
132 Sé=54+L4 

135 NEXT_1 

137 Y=Y+1:G0SUP11000:PRINT" "o=Y+1 

140 REMARKS 

143 PP=0 

152 NF$="FD"+53:COSUB 62300: 1F A=0 THEH- 154 

UE 9000: RUNZO 

SUBSZ00 

00: INPUTR2, RAS: Me=WALCARSS REM dd PRINCIPIO BUCLE PRECUNTAS +4 












I=2:R5=1:DO=1 
PRIMTHOS:X=10:Y=0:GOSUP11000:PRINT"NREGUNTA "5 DO:%=3:=2 
FOR k9=1 TO 1+12 


COSURE40: COSUESEDA 

=23: GOSUE11000:PRINT"EPULSE UNA TECLA AL ULTIMHE LA LECTURA" 
POKE 198.0: WAIT 193,1 

NFS="FR"+=3: ETA IF As THEN 200 

iaa COSUE 3 E Ea 


5 
B 
y 
5 
E 





PRINTHOS: GOSUB7080 2 ALA PREGUHN 


DO 


202 L9=0:Y=9 
205 FOR J3=FS TO RS+> 
210 PA=J9:GOSUES200: INFUTH2. ARS 
212 PULL3)="YAL CMIDS CARS, 34,23) 
215 W=+1 :COSUB11000:PRINTLO; "." LEFTE(RAS+33) 
217 Lo=L3+1 
220 NEXT J9 
222 COSUEE4DO : GUSUIESCOO 
223 POKE 199,8 
S Y=21:%=S:GOSUE11000:PRINT ""LESPUESTA (0-9) ?" 
227 GET R$:1F Ri="" THEN 227 
23 R=YALCRG) 
IF ARCO OR R99 THEN 225 
3 X=23'GOSUE11000:PRINT"3"R 
PP=PP+PUCR) 
:y=23:COSUPL100O PRINT "aWEGURO (ScN 7% 
IF SkK4="" THEN 237 
38 1F Sk3="e" OR Ski="5" THEN 245 
F SK$<5"/" AND SKE<>"N" THEN 241 
=23:Y=21 GOSUB1L1O00:PRINT" "x= 
60T0225 
241 GOTO 227 
294 REM 
S DO=DO+1:1F DO>Mx THEN 
O I=1+20:RS=RS+10:NFS="FD"+S$:GOSUECODO : GOSUES200:GOTO 157 
256 REM PRINCIPIO LECTURA CHN 
265 NF$="FT"+54:COSUEGIOO: IF A=5 
270 PRINTHOS:GOSUE 9000:RUH 20 
220 GOSUESODO: CUSUEEZ00 
232 PAS COSUEESOO: INPUTAZ, ARS 
224 J=1 
226 FOR I=1 TO 40 STEP4 
292 MICIO=VALCOMIDECARS, 1,29) 
290 MXCJ)=WALCMIDECARE, 142,2) 
292 J=J+1 
294 NEXT 1 
296 19=0: I=1 
300 1F PPO=MICI) AND FF<=MACIO THEN 19=1:GOTO 307 
205 I=1+1:1F I<=10 THEN 200 
307 IF 1900 THEN 320 
320 PRINTHOS:X=2:Y=10:COSUP11000:PRINT"T1 5) EN FASE DE GENERACION" 
222 Y=Y+1:COSUEL 1000: PRINT"SE HAN INTRODUCIDO DATOS ERRONEOS" 
324 =5:=20:GOSUBI 1000 'PRINT"PULSAR UNA TECLA PARA CONTINUAR" 
326 FOKE 192,0:MAIT193,1:RUN 
330 PA=1+1:GOSUEGS00* INPUTRZ, RAS 
335 COSUEE40B: COSUEGEOO 
240 ESC1I=LEFTSCRAS, 20): ESC2)=MIDSCAAS, 21,20) 
395 ES(3)=MIDFCARS, 41,20): EF(4)=RICHTIECAAS. 20) 
350 PRINTHOS:GOSUB 7000:%=10:%w=9:GOSUE11000:PRINT"ELTw LIT 
255 Un v42:Ye1A 
360 FOR J=1 TO 4:Y=4+1 :GOSUE11000:PRINTBSCJ> ¿NEXT J 
520 REM OARRARE CONTINUA CSI-NO) 4KHHRA 
555 X=6:W=21:G0SUB11000:PRINT"*ITRO TEST CSI/NO) "5: INPUT "a"; RE 
560 IF R$="N0" OR R$=",0" THENPRINTHOS:POKES46,6:CLR:LOAD"TEST".2 
565 IF R$C3"SI" AND REC "es" THEN 555 
570 RUNZA 
775 REM AAA aaa 
€000 REM 
6001 REM 4kk CESTION DISCO 4*k 
EB10 REM === ooo 
s611 REM APERTURA CANAL COMANDOS 
SOL2 REM ===> 
6630 OPEN1,8,15 
£035 RETURN 
6200 REM ===> 
£204 REM APERTURA FICHERO 
E206 REM —===-==-====--- 
6210 OPENZ,S.3,NF 
6215 REM 
6250 RETURN 
5408 REM 
5402 REM CIERRE CANAL COMANDOS 
E403 REM === 
€410 CLOSE1 
¿415 RETURN 
<450 REM 
6500 REM —--=--=---=--- 
6662 REM CIERRA FICHERO 
5605 REM. === 





















OSUE1 1000: PRIMT" 









CLOSEZ 





se10 IF R1>256 THEN R2=INTC(PA/236):R1=F1-2364R2 
6315 PRINTR41,"P"CHR$(3+96)CHR$CRI>)CHRSCREZICHRGC10 
6820 RETURN 

6225 REM 

6900 REM CONTROLES SOBRE LOS FICHEROS 

5502 COSUECOGO : GOSUBEZ0B 

6904 INPUTR1,A,B4,C,D 

£906 COSUEG400 : GUSUBESOO 

6310 RETURN 


REM 
7001 REM dk CABECERA dede 
Y002 YOS="  “ESARROLLO CON PUNTUACIONES" 
7003 L=LENCY04)-3:L$=RIGHTE(YOS,L> 
7004 Us=" EST " 
7005 P=(30-L)/2:P$="":FORK=1TOP:P$=P9+" ":NEXT K 
7006 PRINT"A";:PRINTCHR3C14) 


7009 PRINT"MAT mr.l.0. — "DICIONES -ORUM, 4.4." 
ro11 PRINT"MRA "¡Us;" A 
7012 PRINT"MA APS 


7015 PRINT"MAULS; "ASPE 

7020 PRINT"IBBDMDDIAS 3 

70734 REM 

7r110 RETURN 

9009 REM 444 ERRORES FICHEROS 44% 

9002 IF A=62 THEN 9006 

9003 «=5:=12:COSUB11000:PRINT"MC—S— , CISCO FUERA DE LINER":GOTO 9010 
9006 «=5:Y=12:G0SUB11000:PRINT"NTF- , EL FICHERO DATOS HO" 
9007 Y=Y+2:COSUB11000:PRINT"ESTA EN ESTE DISCO" 

9010 *=6:'Y=21:GOSUB11000:PRINT"2PULSE UNA TECLA PARA VOLVER" 
9015 POKE193,0:WAIT190,1 

9020 POKE198.,6:RETURN 

11000 REN 

11001 REM 4444 POSICIONADO EN 2.7 da 

11003 POKE 211,% 

11010 POKE 214,% 

11015 Svs58732 

11020 RETURN 


RENA MAIN ARA 
PRINTS" 


¿11 :COSUB11000:PRINT"BINTRODUCIR El DISCO DATOS": =D: m4 

MELIA: PRINT"Y PULSAR UNA TECLA" 

CET AgR:1F AR" THEN PRINTHOS:GOTOZO 

FOR T=1 10 400: NE+TT:GOTO1S 

DIM ESc25, TRES LOC DCZ CRL CE DADA DES) 
(137,D$115).H3(12),PK$c21> 

AG NS SUE = "GIVES" HOS= "0" SLg=" 2" 








2 IN 
27 REM 444 LECTURAS DE SERVICIO 44% 
20 RESTORE 
35 FOR 1=1 TO 15:READ TF(1>:NEXTI 
40 FOR I=1 TO 12:READ H$cI7:NEXTI 
43 REM 
100 PRINTHOS:02=1:COSUE 700B 
4=2:7=10: GOSUB11000:PRINT"SANTRODUCIR LA SIGLA " 
+2: GOSUE1L1000:PRINT"EDEL TEST (2 CARACTERES/1 --34":4=26 
Gan” 
1139 Y=4+1:COSUB11000:PRINT"M1P" 1 ="Y-1 
120 FOR I=1 TO 2 
122 GET L$:IF L$="" THEH 122 
123 Y=+1:GOSUP11000:PRINT" ":y=Y-1 
124 GOSUE11000:PRINT "ALF: X=+1 
126 Y=+1:GOSUEL1000:FRINTUA":Y=Y-1 
132 S$=54+L4 
135 NEXT 1 
149 Y=+1:COSUB11000:PRINT" ":=Y-1 
152 NF$="AT"+53:GOSUE 6990: 1F A=62 THEM 154 
133 COTO 15000:REM 4** VARIACIÓN 44 
154 LE=30:COSUE 12000 
155 GOSUESODO : COSUEGZ0O 











157 02=2:PRINTHOS :YO0$=" »NTRODUCCION":GOSUB 7003 
160 IN=CYc1) 
165 FOR K=2 TO 10:TPCK)=TPC1):LOCK)=LCC1) ¿ND(KI=NDC1):CXCKI=CXC1) 
170 IN=IH+1:CYCKO=IN:NEXT K 
180 NUC=10 
200 GOSUE 2008 
285 J=1 
210 GOSUB 2049 
215 REM CONTROLES COMANDO 
220 1F FS=6 THEN 200 
222 1F FS=7 THEN RUN28 
225 1F FS=9 THEN 210 
228 REM TRANSFIERE AL FICHERO AT+S$ 
235 FOR K9=1 TO 10 
248: PA=K3: GOSUBGE0O: PRINTRZ, BS$(K9): INPUTH1.A-BS,C,D 
245 NEXT K9 
265 COSUPE400:COSUEESDO 
266 E=1:FOR K=2 TO 205TEPZ:PK5(K)=BS(B):B=E+1 ¿NEXT K 
229 REM INTRODUCCION ELEMENTOS 
285 NFf="EL "+54 
295 LR=30:GOSUE 12000:M%=1 
237 GUSUEGOGO: COSUBE290 
208 02=3:PRINTHOS:VO$="— ,NTRODUCCION":GOSUB 7083 
205 IN=CY(2):B=2 
218 FOR K=2 TO 21STEP2 
311 ESCK)=PK$(B) 
212 TPCKOI=TPC2) :TP(K+1I=TPC(3):LOCKISLCC2) ¿LOCK+1ISLCC3) ¿NDCKI=NDCZ) 
314 ND(K+1)=ND(3) :CX(K)=CX(2) :CX(K+1)=0X(3) 
315 IN=IN+1:CWCKO=IN:CUCK+1I=IN:P=B+2 
315 NEXT_K 
313 NUC=21 
225 GOSUE 2000 
327 J=1 
230 GOSUB 3048 
325 1F FS=6 THEN 325 
240 1F FS=9 OR FS=7 THEN 338 
259 Ag="" 
255 FOR K=3 TO 215TEP2 
260 AS=AS+ESCKO 
265 NEXT_K 
370 ARS=ES(1)+A$ 
388 REM INTRODUCE EN EL FICHERO EL+S$ 
235 MX=MX+1: IF MX>100 THEN A=100:PRINTHOS:GOSUE 9808: RUN20 
320 PA=MX: GOSUE 6800: PRINTH2.AA$ 
295 REM 
400. GOSUEG490: GOSUESEBO 
520 REMAARRKK FIN INTRODUCCIONES AHHH 
550. 02=1:PRINTHOS : GOSUB7099 
555 X=3:Y=18'G0SUB11000:PRINT"!T TRA INTRODUCCION (SI/NO) "¿+ INPUT "x"¿R$ 
560 1F R$="N0" OR R$="/0"" THEN 608 
565 IF R$c>"SI" AND R$<)"e," THEN 555 
570 NFS="EL"+S$:GOTO 297 
600 REM -- FIN -- EZ 
605 MXS=STRÍCMX) IF MA4C10 THEN Mx$="09"+RIGHT$CMXS, 1):G0T0 650 
619 IF MXC100 THEN MXS$="0"+RIGHT$(MXS,2):GOTO 658 
620 MXS=RICHTS(MX$,3) 
650 NF$="EL"+5$:GOSUESODO : COSUBG200 
655 ARS=MXS 
660 FOR K=1 TO 27:AR$=AAS+CHR$(35):NEXT K 
665 PA=1:GOSUESS0O: PRINTHZ, ARS 
670 GOSUEG49B: GOSUBESOO 
05 PRINTHOS:POKE 646,6 :CLR:LORD"TEST"/5 
a RE 


2005 REM 44% PRESENTA MASCARA 44% 

2015 FORI=1TODS:X=DXc(1):Y=DWC1):GOSUB11000:PRINT"A"D$C1):NEXTI 
2030 FOR J=1 TO MUC 

2032 As="" E 

2059 IF TPCJ><05 AND TP<J+<54 THEN 2060 

20594 X=CXCJ) ¿YC CJ): GOSUB11000:PRINT"A"5BGCJO 

2036 COTO 2130 

2069 Ni=LCC(J):N2=NDCJ>:1F TPCJ)=1 OR TPCJ>=2 THEN CS=NS$:C0TO2065 
2064 C+=AS4 

2065 IF Ni=1 THEN A$=C$:G0TO 2095 

20798 FOR I=1 TO Ni-N2-1:A$=A3+C3:NExTI 

2075 IF N2=0 THEN A$=A$+C0$:G0TO 2095 

2029 AS=A$+FDS 

2090 FOR I=1 TO N2:A$=A4+"06":NEXTI 

2095 =C4CJ2:Y=C07(J):COSUE 11000 

2096 PRINT "M"¡A$;"a" 


ESCJ>="" 


3 FOR K=1 TO H1-N2-1 


PSCJ=BLCIJIINSG 

HEXT_K 

IF N2=0 THEN EScJ)=ESCJ)+N53:50TO 2139 
A ES(I)=ESCJ)+PDS 

FORK=1TONZ: ESC J)=BGCII4+NS4 NEXTK 





O NEXT J 


RETURN 


a REM 


REM $8 DATA ENTRY 4 
NC=J:X=CHONC) :Y=CY UNC) 


4 CC=1 


COSUE 3240 

IF Fo=9 THEN RETURN 
IF FS=0 THEN 3100 
IF_ FS5>4 THEN 3210 
COTO 3120 


BB REM CARACTER 


J=3+1:1F JÓNUC THEN 3030 


Ep GOTO 2090 


ON FS GOTO 3130,3150.3170,3190 


A IF J>1 THEN J=J-1:COTO 3040 


FS=B: J=NUC: GOTO 3040 


Q IF J<NUC THEN J=J+1:GOTO 3040 


Gn O FS=0:G0TO 3030 


2240 
2250 
DEDO 
3230 
23300 





IF CO<LCCJO THEN S=1:CC0=CC+1:%=X%+1:COSUE 11000:GUTO 3060 

FS=0:GOTO 3100 

ss CC>1_ THEN S=-1:CC=CC-1:%=4-1:G0SUB11000:G0T0 3060 
3=0:60T0 3040 z 

REN 

IF FS38 THEN FS=0:GOTO 3060 

IF FS=3 THEN FS=0:GOTO 3100 

RETURN 

REI hi 

En 4% LECTURA DE 1 CAMPO ** 

Fóo= 

IF TPCNC)=4 THEN RETURN 

IF TPCONCI=2 THEN GOSUE 9000 :RETURN 

IF MIDSCESONCI/CC, 19=PDS THEMX=X+S : CO=CC+S 

COSUE 11000 

GET A$:1F A$<>"" THEN 3333 

2 COSUEL1000:PRINT" aw"; :GOSUB11000:PRINT"k"¡MIDICBF(NCI, CC 1); 

GOTO 3330 


IFASCCAS)=190RASCCAS)=200RASC(AS)=1470RASC(AS>=148 ORASCCAS)=44 THEN 33 


PRINT"Ma" As; 

CA=SASCCAL> 

FOR I=1 TO 15 

IF TFCI2=CA THEN FS=1:I=15:COSUB3E30 : RETURN 
IF FS=9 THEN RETURN 

HEWTI 

IF TP(NC)<O1 THEN 3450 


3400 IF CA=945 OR CA=46 OR(CA>=43ANDCA<=57>THEN3420 
3410 GOTO 2330 

3420 IF CAC?46 THEN3450 

3430 GOSUB 4270 

3440 IF SHP=1 THEN 3410 

3450 S=1:GOSUB 3520 

2460 IF CC=LCCNC) THEN RETURN 

3470 CC=CC+1:4=x+1:G60T0 3310 

3520 REN 

3521 REM kk TRASFERENCIA AL BUFFER xk 
23540 REM 

3570 /1F CC=1 THEN SN$="":COTO 3590 
3590 SH3=LEFT$CESCNC>,CC-1) 





IF CC=LC(NC) THEN DE$="":GOTO3610 
N=LCINCI=CC : DES=RICHTSCESCNCI HN 
BS(NCI=SNI+AS$+DES 

RETURN 


REM 
REM 4% COMANDOS Ak 
REM 


B IF FS>5 THEN 3710 
RETURN 
O IF F3=9 THEN GOSUE 13000:FRETURN 


IF F5=3 THEN GOSUB 4050: RETURN 
IF Fs<3 THEN FETURN 
UN FS-9 GOSUB 3740,3918 


30 





3723 RETURN 

3740 REM 

3745 REM dk INSERCION 4% 

37530 REM 

3778 IF CC=LCCUNCITHEN RETURN 

27230 IF CC=1 THEN SH$=""-:GOTO3200 
3790 SN$=LEFTSC(BFUNC>,CC-1) 

2200 N=LC(NC>—CC+1:DES=RIGHTSCES INCA, N 
3820 C$=PL+ 

3230 A$=SN3+C$+DES 

3340 ES(NCI=LEFTSCAS,LOCNCI 

2050 RS 

XONCO ¿=CYEUNCI ¿GOSUE 11000 

O SRA = YY 

REM 

O PRINT_ES$(NC+:S=-1 

IF RIGHTSCBSCNC).1=PDF THEN 3720 
RETURN 

REM 





REM 44444 BORRADO 44844 
REM 


IF TP(NC)<>1 THEN 3950 
IF MIDSCESCNC),2,1)=PDF AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 
IF CC=LC(NC> THEN DES$="":GOTO 23980 
0 N=LC<NCICC: DES=RIGHTSCES CNC) ¿M7 
SNS=SLEFTECBESCNCI,CC1) 
g IF TFC(NC)=1 OR TF<NC)=2 THEN C$=H3$:GOTO 4010 
CS=A54 
O ESONCI=SNI+DEF+C4 
perO py 
CNCA: Y=C CNC) :GOSUE 11040 
Pata mp 
3 FRINT BSCNC>:5=1: RETURN 
REM doo ALINEADOS HRKRRRR 
IF LC<NCI=1 THEN RETURN 
H1=LC(NCI-CC+1 
7_ IF CC=1 THEN B4(NC)="":GOTO4100 
ESCNCO=LEFTSECESFUNC)CC=1> 
00 IF TECWC)=1 OR TFXNCI=2 THEN 4150 
FOR I=1 TO Ni 
y ESC(NC=ES(NCI+ELS 
NEXT 1 
y GOTO 4190 
FOR I=1 TO Ni 
50 BS (NCI=CHRSC32I+EGUNCO 
NEXT 1 
9 IF RIGHT3CES(NC).19=PDS THEN -ES(NC)=ELG+LEF TFCESF CNCA LOXNCI=10 
A=CXONCO Y=CYONCO ¿GOSUE 11000 
FRINT B3CHC>:EETURH 
278 por AR CTRL FUNTO 444 
Y SHP=4 
IF CC=1 OR CO=SLCONCO THEN SHP=1:RETURN 
A FOR I=1 TO LC<NC) 
IF MIDECESONCO, To 1Y=BLG THEM I=LCCONCO :SHWP=1:RETUEN 
NEXT I:RETURH 
REN 
3 REM 
e. 4 GESTION DISCO 444 
EM occiso o== 
eN APERTURA CANAL COMANDOS 
2 REM, === =====---== 
OPEN1+.2.15 
935 RETURN 
ones 





O CLOSE1 


CLOSEZ 













2256 HTCPA“236):Ri=R1-256%R2 
: PRINTRL PURI 2ASE CHAS RISCHESCRZICHREC 1) 
FETURN 
REN 
REM CONTROLES SOBFE LOS FICHEROS 
GOSUECODO : COSUBS200 
4 INPUTR1.A,B$,C.,D 
6506 COSUES400 :GOSUBCO0O 
6319 RETURN 





7009 REN 
7001 REM 4% CARGA LOS DATA 44% 
rOB2 VOr=" lENERACIÓN - ATRIBUTOS" 


7003 L=LEN(0$)-3:LG=RIGHTS(VOS,L) 

7004 Us=" [EST " 

7005 P=C20-L)/2:P4="":FORK=1TOP:Pg=Pg+" "iNERT K 
7006 PRINTS"; :PRINTCHR$C14) 


2002 PRINT“MA mr. 1... DICIONES -ORUM, v.t.” 
7011 PRINT"MZT "¡Us;" 35 A 
7012 PRINT"MEA q PE; 

7015 PRINT "MALE "PE 





7620 PRINT"IIBDADDI 
70253 IF 02=1 THEN RETURN 
+Y=22 ; COSUB1 1000: PR INT — —— _— KK 
5: Y=23:COSUB11000:PRINT"Añl-L+ 10 415" 
4 REN 


7048 ON 02 COTO 7110,7042, 7044 

7042 LY=27 :GOSUB 20000: NUC=1:DS=1 :GOTO7099 

7044 LW=35: DOSUB20000 : NUC=3: DS=2:60T07098 

7090 FOR I=1 TO DS:READ D$C1I>,DXC1),DY< 1) :NEXTI 

7095 FOR I=1 TO NUC:READ TP<I>,LCCIO MDI CREI CIO 

7097 REM 

r100 NEXT I 

v110 RETURN 

2000 REM 444 ERRORES FICHEROS 44% 

2002 1F A=100 THEN 9003 

2005 =3:=12:G05UB11000:PRINT"IFMS— , CISCO FUERA DE LINEA":GOTO 9010 
5006 X=5:'Y=12:G0SUB11000:PRINT"ETS- +. EL FICHERO DATOS YA" 
9007 Y"=+2:GO5UB11000:PRINT"SE HA CREADO EN ESTE DISCO":GOTO 9610 
2002 *=5:Y=12:C0SUB11000:PRINT"NT——- , ESPACIO DATOS AGOTADO" 
3010 =3:Y=21:60SUB11000:PRINT"EPULSE UNA TECLA PARA YOLYER" 
2015 POKE198,D:WAIT198.1 

2016 IF A=70 THEN POKE 198, 0: RUN 20 

2020 POKE198,0:RETURN 

9150 REM o INDICA ERROR ARA dd 

9152 2=10:w=20:G0S5UB1 1000 :PRINT"IT PP 7 31 TAS 07" 
2154 FOR T=1 TOS006:NEXTT 

9156 x=10:W=20:G05UB11000:PRINT" E 

5160 RETURH 

LODO REM AAA RRR DATA AAA: 

10001 DATA 145.,17,29,157,140.133.,136,12,25,134.135,0,0.0,D 
10005 REM . 
16007 DATA"A <-> EMA Fla A" 
SR A SI A 

10812 DATA" e LI: — 4 Lt0t 4 1005" 

10014 DATA" 4 1 TO Lts tm 1% » 

E SE A a 

BARA ALTAS" 






















10013 DATA"A tap: 

10026 DATA"A a: YA a 
10022 DATA" a SS: IA ARMA 
10624 DATA" a ML DO ALO S A 
10026 DATA" RN IAE ARIAS 
10023 DATA"A  -|-L+! ¿HORA LA RAI Y 


10039 DATA" / LAR lO ALA" 
10040 REM RR OZ=2 ARA 

10042 DATA" MTRODUCIR LOS ATRIEUTOS",7,8 
10043 DATA3.20.0.5.,11 

100390 REM Add 02=3 FAA 

10052 DATA""LEMENTO : ",4,7 

10053 DATA"ATRIBUTO".4,9 

10035 DATAS.20.0,12,7 

10056 DATA4,20,0,2,9 

10057 DATA1,1,0,36,9 

11000 REM 


11901 
116005 









y FI$= od 


REN Es PORLEoNADO EN 27 A 
KE 21 





z REM 4444 CREA LOS FICHEROS % 


GOSUE £000 


ARIAS, MCHRECLEO - 
IF LEFTSCNES,2)="AT" THEN ARS="44" GOTO 12635 
ARS="51" 


FOR K9=1 TO LR-4:AAS=ARA$+"4" :NEXTKS 
PA=1 : COSUBES300:PRINTR2. ARAS 

CLOSE2 

CLOSE1 


B RETURN 
3 REM 44% AYUDA +44 


CO=K:CY=Y 
=1:Y=23 
GOSUE1 1000 :PRINTHEC1;" "; 


7 FOR HE=2 TO 12 


GETR$: 1FR$=""THENI3020 
IF RECSCHR$C13) THEN 123020 
GOSUB11000:PRINTHSCHE> 


Y NEXT HE 


CETR$: IFR$=""THEN13035 


o IF RECOCHR$C(13) THEN 13035 


COSUB11000:PRINT" E A 
A=C0:Y=CW 

RETURN 

REN > ACTUALIZACIÓN ----- 

COSUBEDOO : GOSUBE200 

02=2:FRINTHOS :V0$=" ACTUALIZACION ":GOSUB 7403 

FOR K3=1 TO 10:PA=K3:GOSUBESOO : INPUTR2, EF(K9) NEXT K9 
IN=CYC10 TPC 10=S 

FOR K=2 TO 10: Te Sszs LCCKI=LOC1 NDCKI=NDC 10 CRACK =CR 10 


3 IN=IN+1:C1o¿Ko9=IN:HEXT 


NUC=10 


2 D$(1)=">ARIACIÓN ATRIBUTOS" 


GOSUE 20089 


22 J=1 





COSUE 3040 

IF FS=3 THEN 15035 

IF FS=7 THEN RUN 20 

IF FS=6 THEN 15039 

FOR K9=1 TO 10:PA=K9:G0SUB6980:PRINTR2,BS$(K9):NEXT K9 
GOSUEG400 : GOSUEGEGO 

B=1:FOR K=2 TO 20STEP2:PK$CK>=BS(B):B=B+1:NEXT K 

REM --- ACTUALIZACIÓN ELEMENTOS --- 

NF3="EL"+S$: GOSUBE000 : GOSUBE200 


b PA=1:COSUBESOO : INPUTR2, HAS: M=AL CARS 


02=3:PRINTHOS:COSUB 7003 

FOR NE=2 TO Ma 

0Z=1 :PRINTHOS:GOSUB 7003 

PA=NE : COSUBES00 : INPUTR2, ARS 

DESISLERTOCOAS LOS ¿P$=RICHT$C(AR$. 10) 

B= 

FOR JN=1 TO 10:BS$C(B3=MID4CP$. JN, 1):B=B+2:NEXT JN 


0 IN=CY(2):B=2 


FOR K=2 TO 21STEP2 


y ESCKI=PK$CB) 


TPCK)=4: TPCK+1)=5:LOCKI=LOC2): PE HD<K>3=HD<2> 
HD¿K+13=NDC3) :CXCKI=C39 02) :CXCK+19=C 02 
IN=IN+1:CY<K)=IN:CYCK+17=IN:B=B+2 

NEXT K 
NUC=21 

4=9:'1=21 :COSUE1 1000: PRINT"EL7? = SIGUIENTE ELEMENTO" 
Cane 2009 = 

=1 
GOSUB 3040 








2 IF FS=6 THEN 15138 


IF FS=9 THEN 15149 

IF FS=7 THEN 15190 

As=r" 

FOR K=3 TO 21STEF2:H3=A+$+B+(K):HEXT K 
AAS=ESC1)+A$ 

PA=HE : COSUESS00 : PRINTH2, ARS 

NEXT NE 


UA 


15200 GOSUEG400: GUSUBE6DO 

15258 RUN 26 

20000 REM RESTORE DATA 

20005 RESTORE 

200945 IF LY<=0 THEN RETURN 

26050 FOR I=1 TO LY:READ LVY+:HEXTI 


20 


MO PA A A e e 
LA DA IAN 


106 
11 
11 
11 
11 
12 
12 
12 
12 
12 
132 


109 RETURH 


: REM eee HATO RARA IIA 


PRIHNT" 

=P: Y=11 :GO0SUB11000:PRINT"MINTRODUCIR EL DISCO DATOS": W=4+3:=4+3 
SUE1LIDGD:PRINT"Y PULSAR UNA TECLA" 

ET As: 1F ASES" THEN PRINTHOS :CcOTUZ0 

FOR T=1 TO 400 NEXTT:COTO1S 

DIM B$(25), TPLZSIILOC2 II NDC25) 0025), 0025), DC 152, DY(15) 

DIM TFC139. 040159, H3C125,H0$C 1005, FOFC100),DT$(10).PUCIO).PK$C21) 
Elg=" PD Ag NSg= UH" SUs= Mo GIUE="N"HOS="1J:SLg="p" 
POKE La 122 

FRINTHO: 

pri pr Lecturas DE SERYICIO 44% 

FOR: E i TO 15'READ TFCT>:NEXTI 

FOR I=1 TO 12:READ H$c1:NEXTI 


REM 

Y PRINTHOS:02=1:GUSUB 7040 

B *=2:Y=10:C0SUB11000:PRINT"2NTRODUCTR LA SIGLA * 

3 Y=/+2:G0SUB11000:PRIN "DEL TEST (2 CARACTERES M --4":4=26 
sq="" 

9 Y=Y+1:60SUB11000:PRINT"Mt" o Y=Y-1 

4 FOR T=1 TO 2 

2 GET L$:IF L$="" THEN 122 








3 Y=+1:COSUB11000:PRINT" ":Y="-1 
4 GOSUB11000:PRINT "vLG:=%+1 

E Y=1+1:COSUB11000:PRINT"M1" 0 Y="-1 
2 Sé=S$+LS > 

3 NEXT 1 

Y Yay+l: GOSUE11000: PRINT" ":Y=WY-1 


2 NF$="RAT"+5$:GO5UB €900:1F A=62 THEN PRINTHOS : GOSUESDDS:RUN 20 

3 GOSUBSODO : GOSUBS200 

0 FOR PA=1 TO 10: oia ia A DTSCPA): NEXT PA 

3 GOSUEGEDO : COSUBEIOO 

0 PRINTHOS : GOSUE7B0B:«=2:'1=10: GOSUE1 1000: IHPUT" LECTURA ATRIBUTOS (S/N) "¿R$ 
2 1F R$="N" OR R$="7" THEN 289 


3 IF R$(9"S" AND R$<>"0" THEN 170 


3 AI S SO QIDLIO0e :ERINTS e 

%=5:=8 

4 FOR K=1 TO 10:v=+1:G60SUB11009:PRINTDTSC(K>:NEXTK 

E X%=0:Y=23:005UB11000:PRINT"IPULSAR UNA TECLA AL TERMINAR LA LECTURA":POKE 198 


3 WAIT 198,1:POKE1980,0 

O REM --- LECTURA ELEMENTOS --- 

5 NF$="EL"+S$ 

7 GOSUBG00O : GOSUEEZ00 :PA=1 : GUSUBESOO : INPUTHZ, ARAS: MxX=WALCAAS> 
B FOR PA=2 TO Mx:GOSUBSSOO : INPUTR2, RAS 

3 NOS(PROSLEFTSCARS, 20) :FOS(PA)=RIGHTSCARS, 10) 

DB NEXT PA:GOSUEE400: GOSUBSEDO 

UREA PODES kk 

1 PRINTHOS:COSUE7009 

5 4=7:v=10:605UB11000:PRINT"SHESARROLLO POR LINEAR " 

6 'Y=4+2:COSUE11000:PRINT"=0 POR COLUMNA (143 ";:INPUT"A";R$ 
Y IF R$="L" OR R$="L" THEN GOSUB 15000:G0TO 570 

3 IF R$="C" OR R$="-=" THEN GOSUB 13500:60T0 370 

7 GOTO 550 

Y REM --- CONTROL REALIZADO --- 

5 PRINTHOS:0Z=1 :GOSUB7090 


580 *=5:Y=12:G0SUB11000:PRINT"2T TRO TEST (S/N>";* INPUT "2";R$ 

595 IF Ré="N" OR R$="/" THEN PRINTHOS:POKE 646,6: ¿ChRi LOAD"TEST",8 
590 IF R$<5"5" AND R$<7"e" THEN 573 

$00 GOTO 559 

2009 REN 

2005 REM dk PRESENTA MASCARA dale 


15 FORI=1TODS:X=DXC1) :Y=DWC1) :GOSUB11808:PRINT"X"D$C1> :NEXTI 
38 FOR J=1 TO NUC 

32 As="" 

58 IF_TP(J)<)5 AND TPCJ)<74 THEN 2068 

54 X=CXCJ) :W=CY(J):GOSUB11090:PRINT"A";ESCJ) 

56 GOTO 2138 


Po gaa ¿N2=NDCJ>:1F TPCJ>=1 OR TPCJ)=2 THEN C$=NS$:G0TO2065 
IF Ni=1 THEN A$=C$:GOTÓ 2895 
FOR I=1 TO Ni-N2-1:A$=A$+C$ : NEXTI 
IF N2=0 THEN A$=A$+C$:GOTO 2095 
AS=A$+PD$ 
FOR I=1 TO N2:A$=A3+"0":NEXTI 
X=CXCJ) :Y=CY CJ) :GOSUB 11060 
PRINT "M¡A$;"a" 
BJ) ="" 
FOR K=1 TO N1-N2-1 
ES(J)=BFCJ)+NS$ 

XT K 


NE 

IF N2=0 THEN BS$CJ)=BS$(J>+N5$:G0TO 2130 
B$(J>=ESCJ)+PDS 
FORK=1TON2:B$(J>=BS$CJ)+NS4 : NEXTK 

NEXT J 


RETURN 

ay] . 

REM XX DATA ENTRY kk 
= 

NC=J : X=CX CNC) : Y=CW(NC) 
Cc=1 


COSUB 3240 

IF FS=9 THEN RETURN 

IF FS=0 THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

REM CARACTER 

J=J+1*1F JÓóNUC THEN 3030 

COTO 3040 

ON FS GOTO 3130,3150,3170,3190 

IF J>1 THEN J=J-1:G0TO 3040 

FS=0: J=NUC:GOTO 3040 

IF J<NUC THEN J=J+1:GOTO 3040 

FS=0:COTO 3030 

IF CC<LCCJ) THEN S=1:CC=CC+1:%=X+1:COSUB 11099:G0TO 3468 
FS=0:GOTO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=%-1:G0SUB11000:CUTO 3069 
FS=0:GCOTO 3040 

REM 


IF FS>8 THEN FS=6:COTO 3060 

IF FS=3 THEN FS=0:G0TO 3100 
RETURN 

REM 

REM kk LECTURA DE 1 CAMPO dk 

FS=0 

IF TPONC>=4 THEN RETURN 

IF TP(NC>=2 THEN GOSUB 9000 :RETURN 
IF MIDECBGCNCI CC) 19=PDG THENA=>+5 : CC=CC+S 
COSUE 11009 

GET A$:IF AS<S"" THEN 3232 


2 CUSUE1 1000: PRINT" e"; :GCOSUB11000:PRINT"A";MIDICESONCICC, 19; 


COTO 3320 


IFASCCUAS)=190PASCCAS )=200RASCCAS)=1470RASC(AS)=148 ORASC(ASI=44 — THEN 3330 


PRINT"MA";A$, 

CASASCCAS) 

FOR I=1 TO 15 

IF TFCI2=CA THEN FS=1:1=15:GOSUE3E30 : RETURN 
IF FS=3 THEN RETURN 

NEXTI 

IF TPCNC<>1 THEN 3450 

IF CA=45 OR CA=46 ORCCA>=43ANDCA<=57 > THEN3420 


8 COTO 3330 





IF CA<>46 THEN3450 
COSUB 4270 


B IF SWP=1 THEN 3410 


IF CCSLC(NC) THEN RETURN 
CC=CC+1:4=%+1:COTO 3310 
FR 


En 
REH 44 TRASFERENCIA AL BUFFER ak 
REM 


IF CC=1 THEN SN$="":GO0TO 3599 
SN$=LEFTS$(BS$(NC),CC-1> . 

IF CC=LC(NC> THEN DES$=""-:COTO3610 
N=LCINCI=CC : DES=RIGHTS$CESFCNCI ¿NH 
BS$(NC>=SN$+AF+DES 

RETURN 


Lo 8625 REM OS ER 
3628 REM YoK COMANDOS Wk 


2640 REM 


3620 
3700 
3710 
2720 
3725 
3730 


IF FS55 THEN 3710 

RETURN 

IF FS=9 THEN GOSUB 123000: RETURN 
IF FS=8 THEN GOSUB 4080:RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740.39109 


3723 RETURN 


3740 
3743 


REM 
REM 4% INSERCIÓN at 


3750 REM 


3770 
3780 


IF CC=LCCUNCITHEN RETURN 

IF CC=1 THEN SN$="":G0TOU3200 
SH$=LEFTS$(BS$(NC),CC-15 
NaLCONC>=CC+1 :DES=RICHTSCESUNCI NN 
C+=BL$ 

A$=SH$+C$+DES 

BSCNCI=LEFTSCAS, LOCNCIO 

ARA: 
ASCO 3 W=CW NC) :GOSUB 11000 
AAA E 

(434) 

PRINT B$(NC>:S=-1 

IF RIGHTS$CESCNCA. 1)=PDS$ THEN 3790 
RETURN 


REN 
pas MORA BORRADO modo 
REN 


IF TP<NC)<71 THEN 3950 

IF MIDSCESCNCI,2,1)=PDS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LCINC> THEN DE$="":GOTO 3980 
NsLC(NCI=CC: DES$=RIGHT$CBGCNCI ¿NN 
SH3=LEFTSCBG(NC>,CC-1) 


B IF TPCONC=1 OR TPONC>=2 THEN C$=NS$:G0TO 4010 


C$=AS$ 

BS NC)=SN$+DE$+C$ 

ARA 
ASCXCNCI ¡W=CY UNC) :GOSUB 11000 
AZAR: 

PRINT BS(NC):S=1: RETURN 
A 
IF LC(NC>=1 THEN RETURN 
Ni=LC(NCI—CC+1 

IF CC=1 THEM B$(NC>="":G60T04100 
ESONCI=LEFTS$CESCONCA/,CC-1) 

IF TP(NC=1 OR TP(NC>=2 THEN 4150 
FOR I=1 TO Ni 

BS(NC>)=BSUNCI+BLG 

HEXT 1 

GOTO 4199 

FOR I=1 TO Ni 

BS NCI=CHRSCIZIFABGLNCO 

NEXT 1 


B 1F RIGHT$CBSCNCI,1)=FDS THEN ES(NCI=BL$+LEFTSECBSONCI/LOCNCI=1) 


ASCACHCO :=CWENCI :GOSUB 11000 

PRINT BS$(£NC RETURN 

REM 44% CTRL PUNTO A4% 

SWHP=9 

IF CC=1 OR CC=LCONC) THEN SHP=1:RETUEN 

FOR I=1 TO LCUCHCA 

1F -MIDSCESCHC.1,1)=BL% THEN I=LCCNC) :SWHP=1 RETURN 
pe 1 ¿RETURN 


REM 
e AG GESTION DISCO Ak 


OPEN1,8,15 

RETURN 
AAA 
pas APERTURA FICHERO 
OPENZ/8/3/NFS 

REN 


6 RETURN 


ED REM ————— 
6482 REM GIERRE CANAL COMANDOS 
R 






PIPA: re =0 
IF R1>238 THEN Re=INTPA“256) :Ri=R1-23I64R2 
FRINTR1. "PUCHRSC3IDE)CHRSCRI CHAS CRZICHRE CL) 
RETURN 
REM 
REM CONTROLES SOBRE LOS FICHEROS 
CUSUEEOOO : COSUEGZOO 
INPUTR1,A.EF,C.D 
COSUEE400 : GOSUBEGOD 

FETURN 


REN 

REM 444 CARGA LOS DATA 444 

 YOS$="  “ESARROLLO - ATRIBUTOS" 

7B03 L=LENCY0S7-2:L$=RICHTS 004.15 

7004 Us=" [EST " 

7005 P=C30-L42:P$="":FORK=1TOP:P$=P4+" "NEXT K 
7008 PRINT"53"5PRINTCHR$C14) 








7003 FRINT"ME *7.|.0. DICIÓNES DRUM. 4.4.” 
7011 PRINT"MER "¿UL;" us il 
7012 PRINT"MRA E 


7015 PRINTUMAULE CP 

7020 PRINT"IBMBADDISS E 

7025 IF 02=1 THEN RETURN 

039 221 -1=22* CUSUBI 1008 - PIN" —————_cPE 
7023 4=25:Y=23:C05UB110900:PRINT"A IL li AA" 

70234 REN 

7040 ON 0Z COTO 7110.7042,7044 
7042 LV=27: GOSUB20000 : NUL=3: D 
7044 LV=45:G0SUB20000 : NUC=2: 
7099 FOR I=1 TO DS:READ D$CI>,Dxc ATI 

7095 FOR I=1 TO NUC:READ TPC LEC NDA OACI CTO 

7037 REM 

7100 NEXT 1 

r110 RETURN 

9000 REM 4kk ERRORES FICHEROS 4% 

9002 IF A=100 THEN 9003 

9009 X=5:=12:G0SUB11000:PRINT"IT—F- . CISCO FUERA DE LINER":GOTO 9010 
39008 2=5:Y=12:C0SUB110600:PRINT"NIMT— , EL FICHERO DATOS HO " 

9007 W=+2:G05UB11000:PRINT"ESTA EN ESTE DISCO":COTO 9010 

5008 X=5:Y=12:GOSUP11000:PRINT"IN—— , ESPACIO DATOS AGOTADO" 

9010 X=6:Y=21:G60SUP11000:PRINT"SPULSAR UNA TECLA PARA VOLVER" 

9015 POKE193.0:WAIT192, 1 

3016 IF A=70 THEN POKE 192,0:RUN 20 

3020 POKE193,08:RETURN 

9150 REM daa INDICA ERROR AMAR 

9152 2=10:=21 'COSUB11000:PRINT"AR LT TA ATA" 

9154 FOR T=1 TO3090:MNEXTT 

39156 *=10:Y=21'C0SUB11000:PRINT" A 

9160 RETURN 

10000 REM HEHREAAREARE DATA HARRARARRA 

10001 DATA 145,17.23,157,140, 133. 136,13,25,124,135/0,0,0,0 

10005 REM 

















10007 DATA"  < -1,//> EMAA Ta A 
E A AS E 
10012 DATA"A  —0- LI: " LAO * un e" 
10014 DATA"A 8 /1 : "Lito to 14 A 
10016 DATA"  —0- "TO/ : E — Y Li0t tie " 
10018 DATA" “Ao dt Va AA 
10020 DATA" a 3: A ES 
10022 DATA" A ta A E a 

10024 DATA" da 2 MAD RL SS y 
10026 DATA" a AS Le 41 el . 
100292 DATA" wa sus +! HAT Le 1 

10030 DATA" A EA e E 


10048 REM proa DZ=2 Moto 





DATA"ATRIBUTO :",4.6 


3 DATA" LEMENTOS : ".4,3 


DATRA4,30,9. 2,7 


2 DATA4,20,0,4,9 






> DATA1,1,0,26,9 


REM EARARARAR UL ARARAARRA 
DATA""LEMENTO : ".4,7 


633 DATA"ATRIBUTO",4,9 






DATA4,20,0.18,7 


0036 DATA4,30,0,2,5 






DATR1,1,0.36,9 


Da REN 












REM ARA POSICIONADO EN 27 does 
POKE 211.,% 

POKE 214.7 

Svsser32 

RETURN 
FEM 44 E 'UDA Add 






o PRINTH$C195" 0 
FOR HE=2 TO 12 


y CETR$: IFRS=""THENLZ020 


IF Eg 





RFC135 THEN 13024 


2 GOSUE11000: PRINTHSCHE) 


20340 NEXT HE 























u 
L 





A MAA Caen 
e e 
ya nl 


y E=2:FOR K5 
2 IMC Zo: 
3 FOR K=2 TO 215TEFP2 


3 TPCKI=TP (2): TPCK 


25 CETRS: IFRS=""THEN13025 
5 LE 





2 CHRGC13) THEN 13035 

prue iOSa: PRINT" E a 
SC 

RETURH 

REM --- DESARROLLO POR LINEAR --- 





43 COSUEZ1OBO:REM GENERA N3 
g IF LEFTECNOS CMD, 10=CHRSC320 OR LEFTSCNOSC NOA, 19=CHR3025) THEN 15005 


EF(10=H0$H9) :02=3: PRINTHOS : GOSUE7000 
=1 TO 10: PRICE>=DTGCK9):P=E+2 NEXT K3 
2 






BSKO=PKSCB) 





COR =LECE) LOCK 1 =1 ENDE KI =HDCZ) ¿NDCK+19=0 
5: IN= 1041: CO =IN:CY(K+19=1H: B=B+2 


w “s% PARA HO" 


? THEN 15040 
15045 
SPUESTAS --—- 


%”" THEN E+c(K9="1":GOTO 15089 
/" THEN EScK3="0":COTO 150209 


1 
R$= REFESA LES HEAT K9 
IF ERC THENCOSUES1SO:COTU 13043 
Er=14 
FOR K9=1 TO 10 
C1é=1110+FUFCH90 E39. 10 
CE F=MIDECRE, KO, 10 
IF C1$=C024 THEN ER=ER-1 





NEXT K 

EE THEN COSUELCOGA:GOTO 15615 
EUSUB 16109 

RETURH 

REM =-- DESHEFOLLO FOR COLUMNA --- 


HMH=10:H3= DEA did 





Do2b KE=Mx :NQ= INTORADOO)4KK+1>:1F N8=1 THEM 15520 


15542 





IF M2=10 THEM 13523 
IF FULKEO<>0 THEN 135520 
IF LEFTSCNOSONEO, 19=CHR$(32) OR LEFT$(NOFCMB), 1)=CHR$(35) THEN 15520 
BD ESE 2=NOFCHG) :PULKS=E 
5 ROF=FOF+MIDECFOPCH370N9. 10 
B=E+2:HEXT K 
DZ=2: PRINTHOS: COSUE78B8 





15542 IN=CY(2) 
13545 FOR K=2 TO 21STEP2 
15599 TPK>3=4: TPCK+19=3:LO(K>=20 :LO<K+102=1 ¿NDCK>=09:NDCk+1)=9 


13959 CXCKI=CXAC20 CA CK+10=0X4C30 0 IN=IN+1:CYCKI=IN:C7CE+19=IH:NEXT K 
13360 =21 
155965 X=7:Y=5:COSUB11000:PRINT"PEMPLERR “0” PARA SI Y “/” PARA NO" 





15579 COSUEZ009 

15572 J=1 

13573 COUSUE3008 

15580 IF FS=6 OR FS=7 THEN 15570 

15582 IF FS=9 THEN 15575 

153859 REM --- RESPUESTAS --- 

155909 ER=0: pe 

15595 FOR K3=3 TO 21STEP2 

15600 IF ES(K3)="S" OR BS(K9)="w" THEN B$(K3)="1":GOTO 15615 
15603 IF BSCK9)="N" OR ESCK9="/" THEN B$(K33="9":COTO 15615 
15610 ER=ER+1 

15619 RS=RI+BGCK9) NEXT K9 

15620 1F ER<)B THENGOSUB29150:G0TO 135578 

15623 ER=10 

15530 FOR K9=1 TO 10 

15633 C1$=MIDS$CRO$,K9,15 

15640 C2$=MID+$(PR$,K3,1) 

15645 IF C1$=C2% THEN ER=ER-1 

15550 NEXT K9 

15655 IF ER<>0 THEN COSUB1E000:GO0TO 15342 

15660 COSUB16100 

156639 RETURN 

16000 REM --- ERROR --- 

16003 PRINTHOS:X=17:Y=12:GOSUB11000:PRINT"AN TS" 

16010 X=12:Y=22:G05UB11000:PRINT"3MPULSAR UNA TECLA" :POKE193.0 
16013 WAIT198,1:POKE192,0:RETURN 

16100 REM --- CORRECTO --- 

16105 PRINTHOS :%=13:Y=12:COSUB11000:PRINT"3al Tel e “T-AT" 
16110 X=12:Y=22:605UB11000:PRINT"IMPULSAR UNA TECLA" :POKE193,0 
16115 WAIT198, 1:POKE198,0:RETURN 

20000 REM RESTORE DATA 

20003 RESTORE 

20043 IF LY<=06 THEN RETURN 

20050 FOR I=1 TO LW:READ LYS:NE«TI 

20100 RETURN 

21000 REM --- RANDOM ENTRE 1 Y Mx-1 --- 

21009 K9=11x 

21010 N9=INTURNDCD74K9+1) 

21012 IF N9=1 THEN 21010 

21615 RETURN 
















PEINTHOS : PURES 
“CUSUELOS4:PRINI CI 
mo PULSAR UNA TECLA"-PULEL 


1? En 
Ko J=J+1 NEXTK 
TF 9:TA.30=69: TAC6)=65: TAC7)=82 





S PRINTRZ. RAS 
SUB 1024 
De COSUB1023: INPUTR2. RAS: Ma=", 














44 FOR N3=1 10 5 
41 ; REM PREPARA SFRITE $H5 

SUBI1OS4:PRINT" -ONFIRMA EL SPRITE (S/N) 75:CETYS:1F Y$="" THEN4Z 
/" OR Y$="N" THEN 41 

2209" AND YE<5"5" THEN 42 


SUESDO: REM PRESENTACION TOTAL 

SS COSUESGUB 

lun «=1:v=20: COSUELOS4 :PRINT"E-ESPUESTH PREVISTA (4-6) 7":POKE 193,0. 
103 CET R3:1F R$="" THEN 105 

106 R=YALCR$> IF ROA UR R>56 THEN 103 














INT" A 

4 PRIHT"SWEGURO £5H2 ".,:IHPUT 33% 
2% THEN COSUBSSO: COTO10D 

la tada 103 


FO 1 T0 E see eri HEXT K 
20 REM --- ESCRIBE REGISTROS -=- 
2 PR=IH 














20 ¿ae OAPESusES ¿J2) NEXT K9 


3 3-21 TO 41 ARF=ARÍ+SPGCKSO. JO) NEXT K9 
A+1:GOSUE 1025: PRINTHZ, ARS 





K9=42 TO 62: ARAS=ARAS+SP$CK9, J9):NEXT K9 
PAr1: COSUE 1023 :PRINTRZ. RAS 


ER+ 1 GOSUELOZS:PRINTRZ)+ PIS 
SEl'CLOSEZ 


SP+21,) PEEKCSP+21 0 AHD234 
P+21, PEEKCSP+Z1 ANDES 
+21, PEEKCSP+21AND251 
F+21) PEEKRCSP+212AND247 
P+21, PEER CSP+215AND239 
+1 PRINTHOS 
12: COSUP1OS9: boton li INTRODUCCION (SN) "INPUT" FS 

¿le 1F Es="N0 UR F$="," THEN 24 
219 1F F325"5" AND F3<5"6" THEN 10 
240 COSUE 1003: CUSUE 1008 
] 16 THEN Mat="B"+RIGHTECSTRFCM3), 1) :G0TO 260 
ICHTSCSTRECMA) 20 

TO 61: Mas=1143+"8" NEXT 
¿GOSUB1D25PRINTRZ, MG 
; 1819 GOSUB 1020 
274 1F F4="8" OR Fó="e" THEN RUN 
ero PRINTAOS POKEG456,6:ELFR:LOAD"TEST",E 


8 W=20: GOSUE1OS4 :PÉINT" A 
24=22:D0SUIB1054:PRINT" "RETURN 
144 ACTIVA REGISTROS SPRITES ++ 

3243 

204 PORKE 3P+21,31 

506 J=1:FOR K=2040 TO 2044:POKE K,LZCJ>:J=3+1:NEXTK 
208 FOR E=39 TO 43:POKE SP+K.1:NEXT K 

310 FOKE SP+23,31:POKE SP+29,31 

612 PORKE SP.65:POKE SP+1,50 

5314 POKE S5P+2,140:POKE SP+3,90 

816 POKE 5F+4,65'FOKE S5P+5,145 

218 POKE 5P+6,140:POKE SP+7,145 

220 POKE SP+2,220-POKE S5P+2,145 

222 X=3:Y=9:GOSUB1O54:PRINT"A1" 

3 A=13:1=9 : GOSUE1LOS4:PRINT"Z" 

3: Y=17 G0SUB1OS4:PRINT"4" 

=17:GOSUELOS4 PRINTUS" 

226 M=23:1Y=17 :COSUE10394:PRINT"6" 

2500 RETURN 

200 REM 4% CABECERA 4% 

9039 PRINTHOS :=1 + 1=0: COSUBLOS4 :PRINT" + HTRODUCCION TEST COH SIMEOLOS H.";14x:RETU 


1003 REM APERTURA CANAL COMANDOS 

1005 OPEN1,3.,1 

1005 RETURN 

1003 REN PESTO: EeEn 

1016 OPENZ,3.3 ETURH 

1014 REN CIERRE CANAL COMANDOS 

1015 CLOSE1 

1017 RETURM 

"1620 REM CIERRA FICHERO 

16022 CLOSEZ 

1023 RETURN 

1025 REM APUNTA AL REGISTRO 

1827 RI=FA:R2=8 

1022 1F R1>256 THEN R2=INT<¿PA/256):R1=k 
1029 PRINTR1. "F"CHRFCO+9679CHRECRIOCHREL 
1630 RETURN 
























P 





















z 
EA 


-2Z36RRZ 
2ICHRFC10 















REM CONTROLES SOBRE LOS FICHEROS 
COSUE1663: COSUE1DOS 
INPUTH1,A.EF.C.D 
COsUE15614:G0SUP1020 

RETURN 

FE“ CONTROL FIN FICHEROS 

IF MCHEM THEN RETURH 

FRINTHOS 





HEROS 444 

ps + CISCO FUERA DE LINEA":COTO 1959 
o4 TE —I— , EL FICHERO DATOS" 

SUBLES4: PRIN m2 ESTA CREADO EN ESTE DISCO" 

UE1UT4 -PRINT"EFULSE UNA TECLA PARA CONTINUAR" 


RETURH 
REN Ana POSICIONADO EN Y A 


73 POKE 211 


$ POKE 214,4 





FEM 4% CREACIÓN FIGURA ++ 


BED FRINTHOS; CHRFC14) 3 POKESIZ90+6 


62 Pl=LZCNSIAE4 








S: 1F 





¿ THEN FF=WNS3+1 

TO 62 -POFEP1+1.0:ME+TI é 
POKESP+21,1:POKE2040.+L2Z0H5):POKESP+39, 1:POKESP+23,1:POKESP+29, 1 
O: POKESP+1,60 


FOR J=1 TO 24 


3 4=4+1:COSUE1O54 


JISSTRECIO IF LENCIJF)=2 THEN J$=RIGHTSFCJ40 20 








PRINT"A"¡LEFTSCJE, 1) 
Y=Y+1:GOSUB1OS4 :PRINT"3A"¡RICHTSCIF, 10 
2 Es sl: 

y NEXT J 
4 mato Y=9: GOSUB1OS4 :PRINT"A ":Y=+1:GOSUE10394:PRINT"Aa " 

6:Y=9:COSUE1OS4 :PRINT"A "o =1+1:COSUE1OS4 :PRINT"n 

> TO J+20 
Y]: GOSUB1O54: PRINT"A¡CHRSCJI SPOC2Z4 o" 
NEXT J 
> " 








FRINT" 
4=1 9=24: COSUELOS4 :PRINT" 0 IMBOLO N, "¿FF 
9: COSUELOS4:PRINT"M ———" 


10 
post: COSUBLOS4: PRINT" 1 e 


25 NEXT Ki 
yes ponumens: PRINTe=-=>.)2 


3 CETA$: IFASO THEN 104 


FOR J= -1 TO 21 

E=K+4b 

FOR_I=K TO K+23:POKEI,160:POKEI+54272, 14: NEXTI 
NEXT J 

REM 


3 REM 


¿0H GOSUELOS4:PRINTU Ti :ENCIENDE"; 
Y=1+1:COSUELOS4:PRINT"A! GAPACA " 

Y=y+l: COSUBLOS9: PeINTEa : INTRODUCE mE 

AU0=2:'1B=2: : cas ab:=18:51=1:52=1:CC=14 






COSUB1054 :PRINT"HA ", 
FOR T=1 TO S30:NEXTT 
COSUP1054 :POKEG46.CC:FRINT"A ", 


2 FOR T=1 TO 30:NEXTT 
3 COTO 16098 


GOSUE 1167:1F FA=7 THEN RETURN 


63 COTO 16395 


REM 


7 REM ea TECLA 


62 FA=0 
69 CA= 
y FOR I=1 











IF CA=TAL 1 Hen FA=1:I=7 


2 NEXT 1 
2 IF FA=6 THEN RETURN 


ÓN FA COSUB 1116,1121,1126,1131.11236,1144,1152 








RETURN 
Y=Y-1:1F OD THEN Y=Y+1: RETURN 
52=52-1 


> COSUB1136:1F CPEEK<P1+ETIANDZ1B1I>50 THEN CC=6:COTO 1120 


CC=14 
RETUEH 
srl 1F YO YF THEN Y=Y-1:RETURH 


cOsUb1 106: IF (PEEK<P1+BTIANDZ1E1379 THEN CL=B:COTO 1125 
CC=1: 

RETURN 

ASA TF AORO THEN =2+1:RETURH 

51=51-1 


2 COSUB1136:1F (PEEKCP1+ETS5ANDOTEI)>6 THEH CC=8:COTO 1130 





pote Je ARE THEN 9-1: RETURN 


3 COSUE1136:1F (PEEKCP1+ETIAND2TE1570 THEM CC=0:C0TO 1135 


CC=14 
EETURN 
REM ENCIENDE EH EL SPRITE 

Eles2 lA HINTEOS 11085 

Pl= RS +INT0C31-19,242 

IF FAco3S THEN RETURN 

POKFE PI+ET,PEEKCF1+BT> OR Z¿TPI 

IF (FEEKCP1+ETIANDETEID70 THEN Cc=8 
IF O N=XF+1 THEN N=2:Y=+1 :RETUEH 
RETURN 

REM OAPACA EN EL SPRITE 
ET=cS2- 1) 23+INT0CS1> Sena 
















01370 THEN C0= 
+1 RETURN 


SPGC1I. NS), 12:G0T0 11 
O RICHTICEP4 CI. NS7/ 20 :GOTOL1SS 
12,3) 





53 
E1C1W0 THEN = 
ALS FRIGATEA 
1 






US 


REM adela DESARROLLO SIMBOLOS FAA 
rece POKES3281,6:POKES3230, 14: POKEESO. 
R=7:Y=12:G 








COSUE1054: PRINT"Z “INTRODUCIR EL DISCO DATOS ":Y=y+ 
COSUB1B54:PRINT"Y PULSAR UNA TECLA" :POKE192.0-WAIT192,1:F 
HO$=""7" : PRINTHOS : PRINTCHR$(14) 

DIM 3PF(62,5)+,LZ(5) 

J=1:FOR K=135 TO 199:L2Z(J)=kK:J=J+1 :HEXTK 

NF3="SIMPOLOS" : COSUE1G32 

IF A=0 THEN 30 

IF A=74 THEN 1045 

IF A=62 THEN 1043 

BI AROSA TROL HS PRSPAESA 


IN=2+16(TE-1) 





120 REM --- LEE LOS REGISTROS --- 


2 PR=IH 


125 FOR J2=1 TO 5 

140 PA=PR:COSUE 1025: INPUTR2. ARAS 
142 COSUB 1059 

150 PA=PA+1:COSUE 1025: INPUTH2. ARS 
132 COSUE 1156 

150 PA=PA+1 :COSUB ERES INFUTH2, AÁÑS 
162 COSUB 1160 

170 PR=PR+2 

173 NEXT J9 

125 PA=PA+1 :COSUE1025: INPUTH2,RIF 
150 RI=WALCRISF) 

200 COSUB 1200 

2u45 COSUB 500 





210 =1:Y=20'COSUB1034 PRINT"SWSUE RESPUESTA (4-5) ?":PCRE 192,0 
212 CET R$:IF R$="" THEN 212 

214 (RG: 1F R<4 OR Re THEN 212 

¿16 VE1OS4 :PRINT"AM ¿RA 

era? =22: COSUB1OS4 :PRINT"=wEGURO (SN2 "5 + INPUT 34 

220 1F S$="N" OR 5$="/" THEN GOSUBSSO:GOTO 210 

222 1F-5$<>"8" AND 5$<>"8" THEN 218 


230 EE R=RI_ THEN GOSUB 600:COTO 240 
237 COSUE £670:COTO210 
240 PRINTHOS 


POKE SP+21,PEEKCSP+21ANDZO4 


242 POKE SP+21,PEEK<SP+21)AND252 


242 POKE SP+21,PEERK 
244 POKE S5P+21,PEEK. 


(SP+210HAND231 
SP+215AND247 






245 POKE SP+21, PEEK<SP+219AND239 

246 POKE SP+K1,K2:POKE SP+K2,K4:POKE SP+CC,1 

230 =2-Y=12:COSUB1O059:PRINTUETTRO TEST ¿5 No ac INPUT F3 
252 1F F3="N" OR F$="," THEN 300 

204 IF F$29"5" AND F3<>"e" THEN 250 

256 TESTE+1:1F TE<MA THEN 37 


606 1F R=5 THEN K1= 
€07 IF R=6 THEN F1=2: 3=2 
ELO X=20:1=5:GOSUBIOSA ¿PRINTS 








260 4=10Y=+5:COSUB1054 :PRINT"-ICHERO DATOS TERMINADO" 


=22:5605UB1054 :PRINT"SPULSAR UNA TECLA PARA CONTINUAR" 
POKE192,0:HAIT138, 1 
COSUB1O14: COSUE1O020:PRINTHOS :POKES46.6:CLR:LOAD"TEST".2 


0: GUSUB10534 :PRINT" S 
OSUB1634:PRINT" "RETURN 

20: cOSUE1DS9: ¿PRINT" ANMEST  SUPERADOR 2 
K L=41:K3: =65: :K4=143: dan DU 













€15 POKE "5P+K1,220:POKE SP+K2,96:POKE SP+CC.10 


E95 X=1:Y=22: 00SUB1054 :PRINT"ME: PULSAR UNA TECLA PARA CONTINUAR E 

569 CET H$:IF H3=""0RH$=CHR3(13) THEN 660 

563 X=0:Y=22:G0SUE1954:PRINT" "¿RETURN 
67b 2=8:Y=20'COSUELNGS4 :PRINT" 47 —J]-E *4 «COTOGOS 


509 REM 4* ACTIVACION REGISTROS SPRITES Y POSICIONES EN PANTALLA 4k 


PRINTHOS :COSUE900 


302 SP=53248 

204 POKE SP+21,31 

206 J=1:FOR K=20940 TO 2049:POKE K/,L2CJ2:J=J+1: HERTE 
dub E 







=29 TO 42:POKE SP+K, 1 HEXT K 
SP+23,31:POKE 5P+29,31 
SP.65: POR +1,50 
5P+2,140 5P+3, 50 

9: SP+3, 145 
SP+6, 140: FOKE S5P+7,145 







 SP+8,220:POKE 5P+9,145 
294=39 GOSUB1034:PRINT" 31" 
OSUB1OS9:PRINT"2" 
SUBIOS4 :PRINT"S" 
SUELOS PRINT"9" 
7 COSUB1054 :PRINT"S" 
4=17:GOSUELOS4 PRINT"G". 
RETURH 
REN 4 CABECERA dk 
























O 04: COSUE 1634: PRINTUST?" 








05 PRINTHOS :=1:Y=9:COSUE1OS4:PRINT"SFESARROLLO TEST CON SIMEOLOS H."+TE 
RETURN 
FEM APERTURA CANAL COMANDOS 
DFEM1,2.15 


RETURH 

3 REM APERTURA FICHERO 
DPENZ, FF RETURN 

REM CIERRE CANAL COMANDOS 
16 CLOSE1 









FICHERO 





REM APUNTA AL REGISTRO 

1027. Ri=PA:R2=D 

1025 1F Ri>256 THEN Re=INT(PA-256):R1=R1-2504h2 
1029 PRINTRH1."PUCHRPCIAIS ICH CRIOCHRECR2I CHE TI 


1030 RETURN 
1032 F REM EAS SOBRE LOS FICHEROS 


2 INPUT, A. 
1035 C0SUBIO14 + GUSUE 11 











RETURN 
- 1045 REM 44% ERRORES FICHEROS ++4 


:9=12:C0SUB 1059 :PRINT"NC IT. CISCO FUERA DE LINEA":CuTO duo 
143 =12:COSUE1O54 -PRINT"EN— , EL FICHERO HO ESiA” 

1949 Y=Y+2:COSUE1954:PRIMT"EN ESTE DISCO" 

1050 *X=5-Y=21 -COSUELJOSO4:PRINT"EPULSE UNA TECLA FARA VOLVER" 

1651 POKE193,0:WAÍT198, 1 

10732 POKE152.5:RUN 16 

1054 REM *kkk POSICIONADO EN X,Y Ad 

1055 FOKE 211.,% 

1056 POKE 214,Y 

1037 SWS38732 

1058 RETURN B 

1059 REM 4% LECTURA FICURAS 4x 


1154 FOR I=0 TO 20:SP$C1,J9)=MIDICARS, E, 25 P=E+2 HET 1 
1155 RETURN 

1156 F=1 

1157 FOR I=21 TO 41:SPc1,J9=M1DFCARF.,B,37:E=E+3:ME%T 1 
1133 RETURN 

1160 E=1 

1161 FOR I=42 TO 62:S5P+c1.J32=MIDG(ARF,P, 37 E=E+ 30 HEST 1 
1162 RETURN 

1200 REM SPRITE EN MEMGRIA 

1205 FOR J=1 TO S 








OR K 
1214 POKE EL+K5 
1216 NEXT K9 
1213 NEXT J 
1220 RETURN 
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MI(+) 


'MX(+) 


BS(») 
ss 
DO 
R 

l 

MX 
PP 
PU(») 


NFS 
A,BS$,C,D 


GA 


RELACION DE VARIABLES - COMMODORE 64 


= matriz de los buffers (1 por campo 
de introducción) 

=longitud del campo de introduc- 
ción 

= número de decimales en el campo 
de introducción 


= coordenadas en el vídeo del cam- 
po de introducción 


=coordenadas en el vídeo de la 
descripción 

= matriz numérica con los códigos 
ASCII de las teclas de comando 

= descripciones en la máscara ví- 
deo 

=voces del menú principal 

= blank 

= punto decimal 

= Carácter “-”; identifica los campos 
de introducción alfanuméricos 

=carácter "*"; identifica los cam- 
pos de introducción numéricos 

= borrado de la pantalla 

=número de campos de introduc- 
ción en la máscara vídeo activada 

=número de descripciones en la 
máscara vídeo 

= sigla del test considerado 

= matriz de las cadenas para la ayu- 
da 

= número de preguntas previstas 

= cadena de 1/O con el disco 

= último registro introducido 

= longitud registro 


= matriz de puntuaciones mínimas 

= matriz de puntuaciones máximas 
(una gama de puntuación está 
constituida por un mínimo y un 
máximo) 

= matriz de los diagnósticos finales 

= sigla del test considerado 

= indicador pregunta actual 

= indicador respuesta dada 

= índice bucle sobre las preguntas 

= último registro introducido 

= puntuación obtenida 

= puntuaciones asociadas a las 10 
preguntas 

= fichero actual 

= gestión errores en disco 


= matriz de los buffers (1 por campo 
de introducción) 

=longitud del campo de introduc- 
ción 

= número de decimales en el campo 
de introducción 


= coordenadas en el vídeo del cam- 
po de introducción 


=coordenadas en el vídeo de la 
descripción 

= matriz numérica con los códigos 
ASCII de las teclas de comando 

= descripciones en la máscara ví- 
deo 

=voces del menú principal 

= blank 

= punto decimal 

= carácter *—”; identifica los campos 
de introducción alfanuméricos 

=carácter “+”; identifica los cam- 
pos de introducción numéricos 

= borrado de la pantalla 

=número de campos de introduc- 
ción en la máscara vídeo activada 

=número de descripciones en la 
máscara vídeo 

= matriz de las cadenas para la ayu- 
da 


PA 
ss 
NFS 
LR 
AAS 
MX 


UA 


PA 
AAS 
NRM 


NS 
R 
MX 
sP 
P1 


CA 


FA 


Us 
SPS(+, +) 


LZ(+) 


A,BS,C,D 
MX 

AAS$ 

RI 

R 

TE 

NFS 

BL 


IN 


= registro actual 

= sigla del test considerado 
= nombre fichero datos actual 
= longitud registro 

= cadena de l/O con el disco 
= último registro introducido 


= matriz de los buffers (1 por campo 
de introducción) 

=longitud del campo de introduc- 
ción 

= número de decimales en el campo 
de introducción 


= coordenadas en el vídeo del cam- 
po de introducción 


=coordenadas en el vídeo de la 
descripción 

= matriz numérica con los códigos 
ASCII de las teclas de comando 

= descripciones en la máscara ví- 
deo 

=voces del menú principal 

= blank 

= punto decimal 

= Carácter "-”; identifica los campos 
de introducción alfanuméricos 

=carácter “4”; identifica los cam- 
pos de introducción numéricos 

= borrado de la pantalla 

=número de campos de introduc- 
ción en la máscara vídeo activada 


=número de descripciones en la 
máscara vídeo 

= matriz para los elementos 

= matriz de los punteros a atributos 

= matriz de atributos 

= sigla del test considerado 

= último registro 

= registro actual 

= indicador de error 

= respuesta 


= matriz para los datos en forma al- 
fanumérica de los 5 sprites 

=teclas reconocidas 

= matriz de los bloques reservados 
a datos sprite 

= flags para errores en disco 

= registro actual 

= cadena de l/O con el disco 

=número máximo de introduccio- 
nes 

= sprite actual 

= respuesta prevista 

= última introducción 

=1.*% registro del VIC-I1 

= posición de partida para los datos 
sprite 

=código de la tecla pulsada en 
creación sprite 

= índice en la matriz TA(») 


= matriz para los datos de los 5 spri- 
tes 

= matriz de los bloques reservados 
a datos sprite 

= flags para errores en disco 

= último registro introducido 

= cadena de l/O con el disco 

=respuesta introducida 

= respuesta prevista 

=test actual 

= fichero considerado 

= dirección de partida para los fi- 
cheros datos sprite 

=registro de partida de los datos 
test núm. TE 





PROGRAMA DE 
UTILIZACION TEST 
ATRIBUTOS 


La descripción de los atributos, 
sin embargo, se carga en 
DT$(10) para ser utilizada en 
las otras partes del programa 


El test se desarrolla 
seleccionando un atributo y 10 
nombres. Para cada nombre, el 
usuario debe decir si el atributo 
está 


El atributo 
se transfiere 
aB5(1) 


Principio bucle extracción de 
los 10 nombres de elementos 


La presentación de las 
descripciones de los 
atributos es facultativa. 
Además, en el diagrama se 
ha omitido la petición de la 
sigla “nn” de identificación 
del test 
Los nombres de los elementos 
se cargan en NO$(100), los 
flags en FOS$(100) y en MX el 
último registro (+) El test continúa presentando 
un nombre de elemento y 
pidiendo cuáles son los 
atributos que tiene 


E. 
TES 


El usuario debe introducir, para 
cada atributo, Sl o NO. El valor 
Sl es convertido en 1 y el NO en 
O. La respuesta está contenida 
en R$ 


El nombre extraído 
no es activado; hay 
que seleccionar otro 


Cada byte 
corresponde 
a un atributo 


Las respuestas se 
transfieren a R$ 


(*) El fichero EL“nn” está 
constituido por un máximo de 
100 registros, cada uno con 
30 caracteres (20 para el 
nombre del elemento y 10 
para los flags) y puede 
cargarse todo en memoria. 


(**) El correspondiente flag de 
atributo (FO$(N8)) se 
transfiere a RO$, o sea 
RO$ = ROS + MID$ 
(FO$(N8),N9,1) 
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Test con puntuación. La foto muestra la fase inicial de 
la generación de un test del tipo “con preguntas y 
puntuación” en la versión Apple. Obsérvese que el 
procedimiento HELP (ayuda) siempre está en línea 

O sea, es activo. 


E SITOBLaL FOR 


e Pa TA! 


La siguiente máscara se utiliza para la introducción 
del texto que contiene las necesarias explicaciones. 


Para cada pregunta (la toto corresponde a la n.” 2) 
deben indicarse los puntos asociados a todas las de 

: : SA EOITORIAL FORUM O | 
respuestas previstas. Estos puntos se irán sumando I 5 . 


durante el desarrollo del test para dar el “juicio”. ea a y 
p AYUDAS CERCA a 


Como se ha indicado, la máquina emite el “juicio” en 
base a la puntuación alcanzada. La foto muestra la fase 
de definición de las “gamas” de puntuación. 


EEE 
ERE 
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Test con atributos. En la foto se muestra la fase 
de generación que, como se ve, es completamente 
análoga a las de las otras versiones. 


La máscara que sigue se utiliza para asociar a cada 
elemento (en la foto el imán) uno o más atributos 
definidos anteriormente. En esta versión, el símbolo “1” 
indicará que el atributo lo tiene el elemento. El símbolo 
“0”, que el atributo le es ajeno. 


Test por símbolos. La lógica y la finalidad son 
idénticas a las de las otras versiones, mientras que el 
desarrollo del programa es notablemente distinto. De 
hecho, la ausencia de una gestión de los sprites ha 
obligado a desarrollar una data entry de alta 
resolución. 


A pesar de la notable diversidad de los programas, el 
procedimiento conserva las mismas funcionalidades 
de los otros. La foto muestra la máscara vídeo utilizada 
para seleccionar el tipo de lógica que se desea seguir 
en el desarrollo de un test por atributos. 


AS 
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Test por símbolos. La foto muestra la máscara vídeo 
de la versión MSX utilizada en la fase de construcción 
de cada uno de los símbolos previstos en este test. En 
la misma máscara aparecen las breves notas 
explicativas necesarias para el empleo de esta función. 


PIDIIADINATADA 


Figura mo 


Terminada la fase de generación, se puede pasar al 
Uso del test. En este caso, los símbolos utilizados son 
números y, por tanto, la finalidad del test es la de 
comprobar la capacidad de analizar algunas sencillas 
series numéricas. 


« 3 >» 


ATest 2% INDICAR LA RESPUESTA: 


La respuesta dada es correcta: efectivamente, el 
elemento necesario para completar la serie es 9. 


>. 


Respuesta 


Test con atributos. La foto muestra la máscara de 
selección de la función en la generación de un test 
con atributos. 
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Test: lógica y leyes asociativas/Versión Apple ll 


Preguntas-Generación 


LO RE 
20 REM TEST-GENERACION PREGUNTAS 
30 REM VERSION DOS 

AO REMO 


50 REM INICIALIZACIONES 
60 DIM TF (15),TP(20),LC(20),ND(20),C 
X (20) ,CY (20) ,DX (20) , DY (20) ,B$(20) 


,D$ (20) 

70 BPS= CHRS (7): 
NS$ = "4": 

. AS$ = CHR$ (95): 
PDS =".": 
pm 


D$ = CHR$ (4): 
US$ = CHR$ (13): 
ZE$ = "0": 
GIU$ = " ": 
SL$ ="/" 
80 B$ =" dd 
BA$ = B$ + B$ + B$ + Bó$: 
BS ="" 
90 HE$ = "AYUDA. CTRL - Y" 
100  HE$(1) = "CTRL Y. AYUDA (ESPACIO 
? PARA CONTINUAR) " 
110 HE$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION » 
120  HE$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION " 
130 — HES$(4) = "CTRL I. PERMITE LA INSE 
RCION DE ESPACIOS" 
140  HE$(5) = "CTRL D. BORRA UN CARACT 
ER " 
150  HES$(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL ” 
160  HE$(7) = "CTRL W,A,S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 
170  HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO A 
172 TEXT: 
HOME : 
YT = 12: 
TI$ = "CUANTAS UNIDADES HAY ?(1/2 
1.2 
GOSUB 11200 
174 GET A$: 
IF AS < "1" OR AS > "2" THEN 172 
176 — DR$ = A$: 
PRINT DR$ 
178 HOME : 
YT = 12: 
TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 
GOSUB 11200: 
GOSUB 11100 
179  ONERR GOTO 40000 
180  MP% = "TEST - GENERACION" 
190  RESTORE : 
READ DA$,NV, AS, As: 
FOR 1 = 1 TO 15: 
READ TF (1): 
NEXT 1 
195 DIM P$(20) 
200  GOSUB 500 
210  GOSUB 5000: 
IF FS = 7 THEN GOSUB 4600: 
TEXT 
HOME 
END 
215  GOSUB 8000: 
IF FS = 7 THEN GOSUB 6600: 
G0To 200 


220 


230 


410 


510 
520 
530 


550 


570 


2010 


2030 


2035 


2040 


2050 


GOSUB 12000: 

IF FS = 7 THEN GOSUB 4600: 
GOTO 215 

GOSUB 14000: 

IF FS = 7 THEN GOSUB 6600: 
GOTO 220 

Y =5S: 

X= 1: 

GOSUB 11000: 

INVERSE : 

PRINT — LEFTS (BA$,40);: 
NORMAL 

REM AAA _ 

REM PRESENTA CABECERA 

REM A 

POKE 34,0: 

HOME : 

INVERSE : 

PRINT " E. G. S. "+ LEFTS (BA$ 
+7) + "EDITORIAL FORUN, S.A." 


YT = 3: 

TI$S = MP$: 

GOSUB 11200 

Y = 2: 

X=1: 

INVERSE : 

GOSUB 11000: 

PRINT " ": * 

Xx = 40: 

GOSUB 11000: 

PRINT * “ss 

Y =3: 

X= 1: 

GOSUB 11000: 

PRINT " ": 

Xx = 40: 

GOSUB 11000: 

PRINT * “3: 

Y = 4: 

X= 12 

GOSUB 11000: 

PRINT " ": 

Xx = 40: 

GOSUB 11000: 

PRINT * "za 

Y =53 

X= 1: 

GOSUB 11000 

PRINT— LEFTS (BA$,40);: 
NORMAL : 

POKE 34,5 

RETURN 
EA 
REM PRESENTA MASCARA 
REM 
HOME : 

IF OPZ < > O THEN Y 
X= 1: 

GOSUB 11000: 

PRINT " VOZ ";0PZ 
IF HE< > 1 THEN YT 
TIS = HES: 

INVERSE : 

GOSUB 11200: 

NORMAL 

YT =-7: , 

TIS = IN$: 

GOSuB 11200 

IF CO < >0 THEN Y = 7: 





<" 
Á 


" 
E 





X= XT + LEN (IN$) + 1: 


GOSUB 11000: 
PRINT CO 
2060 SP = 33 - LEN (VO$(0PZ)) 
2070 SP$ = " 
2080 IF SP = 0 THEN 2100 
2090 FOR J= 1 TO SP: 
SP$ = SP$ + BL$: 
NEXT 
2100 LP = LEN (PROG$) 
2110 SI = INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
2120 SI$ ="": 
DES = "" 
2130 FOR J = 1 TO SI 
2140 SI$ = SI$ + BL$ 
2150 NEXT 
2160 FOR J = 1 TO DE 
2170 DE$ = DES + BL$ 
2180 NEXT 
2240 REM MASCARA 
2250 FOR J = 1 TO NUC 
2260 As." 
2270 X= DX(J): 
Y = DY(J): 
GOSUB 11000: 
: 
PRINT D$(J) 
2280 NORMAL. 
2290 IF TP(J) < > 5 AND TPC) 
< > 4 THEN 2330 
2300 X = CX(J): 
Y = CY (0): 
GOSUB 11000 
2310 PRINT B$(J) 
2320 GOTO 2500 
2330 Ni = LC(J): 
N2 = ND(J): 
IF TP(J) = 1 0R TP(D) =2 
THEN C$ = NS$: 
GOTO 2350 
2340 C$ = AS$ 
2345 IF Ni = 1 THEN A$ = C$: 
GOTO 2390 
2350 FOR 1 = 1 TO N1 - N2- d: 
AS = As + Cs: 
NEXT 1 
2360 IF N2 = O THEN As = As + C$: 
GOTO 2390 
2370 AS = A$ + PDS 
2380 FOR 1 = 1 TON2: 
A$ = As + ZE$: 
NEXT 1 A 
2390 X = CX(J): 
Y = CY(J): 
GOSUB 11000 
2400 PRINT A$ 
2410 BSD) ="" 
2420 FOR K = 1 TO Ni - N2 - 1 
2430 BS (J) = ES(J) + EL$ 
2440 NEXT K 
2450 IF N2 = 0 THEN B$(J) = B$(J) 
+ BL$: 
GOTO 2500 
2440 B$(J) = B$(J) + PDS 
2470 FORK = 1 TON2 
2480 B$(J) = B$(J) + BL$ 
2490 NEXT K 
2500 NEXT J 
2510 RETURN 
2600 REM ———— 


2610 
2620 
2625 


2640 
2650 


2660 


2670 
3000 
3010 
3020 
3030 
3040 


3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 


3200 


3220 


3230 

240 
3260 
3270 


3280 
3290 


3300 


3310 


REM COMPLETA MASCARA 

REN E>-——_——_—_—___——— == 

IF.” LEFTS (NF$,2) = "FT" THEN 265 
0 

TIS = "INTRODUCIR LA PREGUNTA N." 
+ STR$ (JD): 

YT =2: 

GOSUB 11200 

RETURN 

Y = 10: 

X = 16: 

GOSUB 11000: 

PRINT "MIN" 

X = 26: 

GOSUB 11000: 

PRINT "MAX" 

RETURN 
REM — > 
REM DATA ENTRY 





GOSUB 3240 

IF FS = O THEN 3100 

IF FS > 4 THEN 3210 

GOTO 3120 

J=J+1: 

IF J > NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
1F 3 +1 THEN J=J- 1; 

GOTO 3040 

PRINT BP$;: 

FSim 03 

J = NUC: 

GOTO 3040 

IF J < NUC THEN J =J+ 1: 

GOTO 3040 

PRINT BF$;: 

FS =0: 

GOTO 3030 

IF CC < LC(J) THEN SO = 1d: 

CC = CC + 1: 

X= X+d: 

GOSUB 11000: 

GOTO 3060 

PRINT BF$: 

FS = 0: 

GOTO 3100 

IF CC > 1 THEN SO 

CC = CC - 1: 

X=. X-d3 

GOSUB 11000: 
GOTO 3060 

PRINT BF$;: 

FS =0: 

GOTO 3040 

IF FS > 8 THEN FS = O: 
GOTO 3060 

IF FS = 8 THEN FS 
GOTO 3100 

RETURN 

AM or 

REM LECTURA DE UN CAMPO 

REM === 

FS=0 

IF TP(NC) = 4 THEN RETURN 

IF TP(NC) = 2 THEN GOSUB 9000: 
B$(NC) = LEFTS$ (B$(NC),LC(NC)): 
CC = LEN (B$(NC)) + 1: 

GOSUB 4080: 

RETURN 

IF MID$ (B$(NC),CC,1) = FD$ 
THEN X = X + SO:z 

CC = CC + SO 

GOSUB 11000 


'" 
2 


3320 


3340 
3350 


3360 
3370 
3380 
3390 


3400 


3410 
3420 
3430 
3440 


3450 
34650 


3520 
3530 
3540 
355 

3560 
3570 


3580 


3590 
3620 


3630 
3640 
3650 
3660 
3670 


3680 
3690 


3700 


3710 
3720 
3730 
3740 
3730 
3760 


3770 
3780 


3790 
3800 
3820 
3830 
3840 


3850 


3870 
3880 
3890 


3900 
3910 


GET A$: 
IF A$ = "" THEN 3320 
CA = ASC (A$): 
IF CA > 31 THEN 3380 
FOR I = 1 TO 15 
IF TF(I) = (CA) THEN FS 
= 1: 
GOSUB 36430: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 OR (CA 
> =48 ANDCA< = 57) THEN 341 
0 
PRINT BF$;: 
GOTO 3320 
IF CAX > 46 THEN 3440 
GOSUB 4270 
IF SWP = 1 THEN 3400 


'0 

CINC) THEN RETURN 

CC = CC + 1: 

X=X+1: 

GOTO 3300 

RE AAA ko 

REM TRANSFERENCIA AL BUFFER 
REM e 
IF CC = 1 THEN SN$ 
GOTO 3370 

SN$ = LEFT$ (B$(NC),CC - 1) 

IF CC = LC(NC) THEN DS$ = "": 
GOTO 3590 

N = LC(NC) - CC3 

DS$ = RIGHTS (B$(NC),N) 

B$ (NC) = SN$ + A$ + DS$ 

PRINT A$: 

RETURN 

REM == 

REM+ COMANDOS 

REM === 

IF FS > S THEN 3490 

IF FS = 5 AND TP(NC) = 1 THEN 
GOSUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 

RETURN 

IF FS = 8 THEN GOSUB 4080: 

RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740,3910 

RETURN 

REN” === == 

REM INSERCION 

RE As 

IF CC = LC(NC) THEN PRINT BP$: 

RETURN 

IF CC = 1 THEN SNS = "":z 

GOTO 3800 

SN$ = LEFT$ (B$(NC),CC - 1) 

N = LC(NC) - CC + 1: 

DS$ = RIGHTS (B$(NC),N) 

cs BL$ 

AS = SN$ + C$ + DS$ 

BS(NC) = LEFT$ (A$,LC(NC)) 

XX =X:z 

E Y 











o." 


PRINT BS$(NC): 

50.4 

IF RIGHT$ (B$(NC),1) = PD$ 
THEN 3780 

RETURN 


3920 
3930 
3940 
3950 


3960 
3970 
3980 
3990 


4000 
4010 


4020 
4030 
4040 


4050 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 
4150 


4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


4240 


4250 
4260 


4270 
4280 
4290 
4300 
4310 


4320 
4330 


4340 


5000 
5010 
5020 
5030 


5040 


REM BORRADO 

REM —=—=-= 

IF TP(NC) < > 1 THEN 3960 
IF — MIDS (B$(NC)>,2,1) = PD$ 
AND CC = 1 THEN RETURN 

IF CC < 1 THEN FPRINT BP$: 

RETURN 


IF CC = LC(NC) THEN DS$ = "": 
GOTO 4000 
N = LC(NC) - CC: 


DS$ = RIGHT$ (B$(NC),N) 
IF CC = 1 THEN SN$ = "": 
GOTO 4010 
SN$ = LEFT$ (B$(NC),CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 
GOTO 4030 
C$ = AS$ 
B$ (NC) = SN$ + DS$ + CS 
XX =X: 
AN 
X = CX(NC): 
Y = CY (NC): 
GOSUB 11000 
X = XX: 
Y = YY 
PRINT B$(NC): 
SO = 1: 
RETURN 
REM ===> 
REM ALINEADOS 
REM === 
IF LC(NC) = 1 THEN RETURN 
Ni = LC(NC) - CC + 1 
IF CC = 1 THEN BS(NC) = ""s 
GOTO 4150 
B$(NC) = LEFT$ (B$(NC),CC 
7 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN 4200 
FOR I = 1 TO Ni 
B$(NC) = B$(NC) + BL$ 
NEXT 1 
GOTO 4240 
FOR I = 1 TO Ni 
B$ (NC) = BL$ + BS$(NC) 
NEXT 1 
IF — RIGHTS (B$(NC),1) = PD$ 
THEN B$(NC) = BL$ + LEFTS (B$(N 
C),LC(NC) - 1) 
X = CXI(NC)2 
Y = CY (NC) 
GOSUB 11000 
PRINT B$ (NC): 
RETURN 
REN ——————— 
REM CTRL.PUNTO 
RE 
swP = 
IF CL 
=1: 
RETURN 
FOR I = 1 TO LC(NC) 
IF MID$ (B$(NC),1,1) = FDS$ 
THEN 1 = LC(NC): 
SWP = 1: 
RETURN 
NEXT 1: 
RETURN 
RE -——————————_——— 
REM INT.SIGLA Y N.PREGUNTAS 


1 OR CC = LC(NC) THEN SWP 





REM 

LM = 

GOSUB 7000 

IN$ = "INTRODUCIR LOS DATOS. ": 
CO = 0: 

GOSUB 2000 

GOSUB 3000: 


IF FS = 6 THEN 5040 


5060 
5070 


5075 


5080 


6050 


6200 
6210 
6220 
6230 
6240 
62530 
6260 
6270 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6600 
6610 
6620 
6630 
6640 


6660 
7000 
7010 
7020 
7030 
7040 


7050 
7060 


7070 


7075 


7080 
7085 


7090 
7092 
7095 


7100 


7110 


IF FS = 7 THEN RETURM 
NO = VAL (B$(2)): 
IF NO< =0 OR NO > 20 THEN 
GOSUB 1900: 
TP(1) = 4: 
TP(2) = 4: 
GOSUB 2000: 
GOSUB 7000: 
GOTO 5050 
N$ = B$(1) 
NFS = "FP" + N$: 
LR = 33: 
GOSUB 6000 
NR = 1: 
AAS = B$(2): 
GOSUB 6400 
RETURN 
REM o n--- 
REM APERTURA FICHERO 
REM: -—============= 
PRINT DS 
PRINT D$;"OPEN";NF$ + ",D" 
+ DR$;",L"¿LR + 2 
PRINT D$ 
RETURN 
REM 
REM LECTURA REGISTRO 
RE >= 
PRINT D$ 
PRINT DS; "READ";NF$;",R";NR 
INFUT AAS 
PRINT D$ 
RETURN 
REM === ===> ====>== 
REM ESCRITURA REGISTRO 
REM: === non 
PRINT D$ 
PRINT DS; "WRITE"¿NF$;",R"¿NR 
PRINT— CHR$ (34) + AAS 
PRINT D$ 
RETURN 
RE 
REM CIERRA FICHERO 
NASA 
PRINT DS 
PRINT D$; "CLOSE" 
PRINT DS 
RETURN 
REM a 
REM LECTURA DE LOS DATOS 
== 
RESTORE 
READ DA$: 
READ NV 
FOR I = 1 TO NV + 15: 
READ DA$: 
NEXT 1 
IF LM = O THEN 7075 








TO LM - 1: 


ND 
NEXT 1 
READ NUC: 

IF NUC = O THEN RETURN 

IF NV - LM - 1 = 0 THEN 7090 

FOR 1 = 1 TO NV — LM - 1: 
READ DA$: 

NEXT 1 


ND + DA + (DA kk 7): 


FOR I = 1 TO NUC: 
READ TP(1),LC(1),ND(1),DX(1),D 


7120 


8010 
8020 
8030 


8040 


8050 


8060 
8070 


8090 
8g100 


8e110 
8120 


8130 


10000 
10010 
10020 
10030 
10040 
10050 


10040 
10070 


10080 
10090 
10100 
10110 
10120 
11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 
11230 


YID,CX(D,CY UD: 

NEXT 1 

RETURN 

REM: =====>=======2ñia 
REM INTRODUCCION PREGUNTAS 
O 


ID = 2: 
JD =1 
NUC = 20 
FOR I = 1 TO 20: 
TP(1) = 3: 
ND(1) = 0: 
LC(1I) = 35: 
DSID ="": 
DX(1) = 1: 
DY(1) = 1: 
CX(1) = 4: 
CY(D) =1+3: 
NEXT 1 
INS = "Me 
HE = 1 
POKE 34,0: 
GOSUB 2000: 
GO0SUB 2400 
GOSUB 3000: 
IF FS = 6 THEN 8060 
IF FS = 7 THEN RETURN 
FOR 1 = ID TO ID + 19: 
NR = 1 
AAS = B$(I - ID + 1): 
GOSUB 6400 
NEXT 1 


IF JD £ NO THEN JD = JD + 1: 

ID = ID + 20: 

GOTO 8050 

GOSUB 6600: 

GOSUB 500: 

HE = 0: 

RETURN 

REM -———- 

REM DATOS 

REM ----- 

DATA "TESTS - GEN." 

DATA 2,0",0" 

DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 

DATA 2,2 

DATA "SIGLA DEL TEST.", "NUMERO DE 
PREGUNTAS. " 

DATA 3,2,0,12,11,28,11 

DATA 1,2,0,7,13,28,13 

DATA "RESULTADOS. ","" 

DATA 3,40,0,16,11,1,14 

DATA 3,40,0,1,1,1,16 

REMO > 

REM POSICIONA CURS 











REM ESPERA CARACTER 

REM A AA 
GOSUB 11600: 

YT = 23: 

TI$ = "PULSAR UNA TECLA": 
FLASH : 

GOSUB 11200 

PRINT BP$;: 

Xx = 20: 

Y = 23: 

GOSUB 11000: 

GET A$: 

GOSUB 11400 

RETURN 

REM 

REM CENTRA EN VIDEO 

REN == 

IF TIS = "" THEN RETURN 


11235 
11240 
11250 
11260 
11500 
11610 


11620 
11630 


11640 


11650 
12000 
12010 
12020 
12030 


12040 


12050 


12060 


12070 


12080 


12090 


- 12100 


12110 


12120 


12130 
12140 
12150 


12160 


12170 


12180 
12190 


13000 
13010 
13020 
13030 


13040 
13050 
13060 


13070 
13080 
13090 


TIS = LEFTS (TI$, 40) 

XT = (42 — LEN (TI$)) / 2 
HTAB XT: 

VTAB YT 

PRINT TI$;: 

RETURN 

REM o 

REM BORRA ULTIMA LINEA 

REM y 

Y = 23: 

X=1: 

GOSUB 11000 

NORMAL : 

PRINT— LEFTS (BA$,40);: 
Y = 10: 








NF$ = "FR" + N$: 
LR = 35: 
GOSUB 4000 
NUC = 20: 
Y = 11: 
FOR I = 1 TO 20 STEP 2 
TP(1) = 3: 
TP(1 + 1) = 1: 
LC(D = 33 
LOL + 1) = 2: 
DAD = ": 
D$(1 +1) = "" 
DX(1) = 1: 
DX(1I + 1) 
ex) =2 
CX(1 + 1) 
CY) =J: 
CY(1 +1) =J 
J=J+1: 
NEXT 1: 
D$(1) 
D$ (2) 
DX (1) 
DY (1) 
DX (2) 
DY (2) 
Red. 
FOR JR = 1 TO NO 


" 


1: 


37: 


"RESPUESTA": 
"PUNTOS": 

2: 

9: 

35: 
9 


”....n uno 


IN$ = "RESPUESTA A LA PREGUNTA 
N." + STR$ (JR): 
co=0 
GOSUB 2000: 
GOSUB 3000 
IF FS = 6 THEN 12120 
IF FS = 7 THEN RETURN 
Y =1: 
FOR 1 = IR TO IR + 9 
NR = I: 
ABS = BS(J) + B$(J + 1): 
GOSUB 4400 
J=J+2: 
NEXT 1: 
IR = IR + 10 
NEXT JR 
GOSUB £600: 
RETURN 
REM A 
REM AYUDA 
REM o 
XX =X: 
YY = Y 
INVERSE 
K=1 
X= 1: 
Y=3S: 


GOSUB 11000 

PRINT HES(K)5 

B= PEEK ( - 16384) 
POKE - 16368,0 


13100 
13110 
13120 


13130 
13140 


13150 Y 


13160 
13170 
13180 
14000 
14010 
14020 
14030 


14040 


14050 


14060 


14065 


14070 


14075 


14080 


14090 


14100 
14110 


14120 


14130 
14140 


14150 
14160 
14170 
14180 
14190 
14200 
14210 


14220 


14230 


14240 


IF B< 128 THEN 13080 

IF B > 160 THEN 13080 
K=K+t: 

IF K > 8 THEN 13140 


GOSUB 11000: 
PRINT LEFT$ (BA$,40); 





GOSUB 1 
NORMAL 
X = XxX: 
Y = YY 
RETURN 
REM: == rs 
REM INT.GAMAS DE PUNTUACION 


NFS = "FT" + N$: 

LR = 80: 

GOSUB 5000 

NUC = 20: 

do 12; 

FOR 1 = 1 TO 20 STEP 2 
LCD) = 2: 
LC(1 + 1) 
TP(D) = 1: 
TP(I +1) 
CX(1) = 16 
CX(1 +1) 
CY) =J: 
CY(1+1)=J 
D$(1) = STR$ (J - 11) + ",": 
DS1+1)= "": 

DX(I) = 13: 
DXUT ES dr 
DY(I) =J: 
DY(1 +1) =1 
Y=J+1: 

NEXT 1 

IN$ = "INTRODUCIR LAS GAMAS DE PU 

NTUACION" 

GOSUB 2000: 

GOSUB 2600 

GOSUB 3000: 

IF FS = 6 THEN 14080 

IF FS 7 THEN RETURN 

NR = 1: 

AMS = "" 

FOR 1 = 1 TO 20: 

AAS = ARAS + B$(1): 
PS(I) = B$(1): 

NEXT 1 

GOSUB 4400 

LM = 1: 

GOSUB 7000 

JD = 1: 

FOR ID = 1 TO 10 
IN$ "PUNTUACION " + P$(JD) 
AAA 
GOSUB 2000: 

GOSUB 3000 

IF FS = 6 THEN 14170 
IF FS = 7 THEN RETURN 
NR = 1D + 1: 

AAS = B$(1) + B$(2): 
GOSUB £400 

JD = JD + 2: 

NEXT ID 

GOSUB 6600: 

HOME : 

YT = 13 

TI$ = "GENERACION EFECTUADA": 

INVERSE 

GOSUB 11200: 


2: 


26: 


"oa 


40000 
40010 
40020 


40025 
40030 


40040 
40050 


40060 


40070 


40080 
40090 


40100 
40110 





HOME 

IF  PEEK (222) = S THEN 40130 

IF PEEK (222) < > 8 THEN 40060 
YT = 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUB 11200: 

PRINT : 

END 

IF PEEK (222) < > 13 AND 

PEEK (222) < > 11 THEN 40080 
YT = 13: 

TI$ = "NOMBRE FICHERO NO VALIDO": 
INVERSE : 

GOSUB 11200: 

PRINT : 

END 

IF PEEK (222) < > 9 THEN 40100 
YT = 13: 

TI$ = "DISCO LLENO": 

INVERSE : 

GOSUB 11200: 

PRINT : 

END 

IF  PEEK (222) < > 4 THEN 40115 
YT = 13: 

TI$ = "DISCO PROTEGIDO": 

INVERSE : 

GOSUB 11200: 

PRINT : 

END 

Ls PEEK (218) + 256 % PEEK (21 
9) 

HOME : 

YT = 13: 

TIS = "ERROR " + STR$ ( PEEK (22 
2)) + "EN "+ STR$ (L): 

GOSUB 11200: 


END 
40130 TI$ = "EL NOMBRE DEL FICHERO NO E 
XISTE": 
VID 
INVERSE : 
GOSUB 11200: 
PRINT : 
END 
Preguntas-Uso 
10 REM —————_ 
20 REM TEST-PREGUNTAS-USO 
30 REM VERSION DOS 
40 REA ——_—_ 
50 REM INICIALIZACIONES 
60 DIM B$(20): 
BP$ = CHR$ (7): 
D$ = CHR$ (4) 
70 B$ = " » 
80 BAS = B$ + BS + B$ + B$: 
NS 
172 TEXT : 
HOME : 
YT = 12: 
TI$ = "CUANTAS UNIDADES HAY ?(1/2 
": 
GOSsuB 11200 
174 GET A$: 
IF AS < "1" OR AS > "2" THEN 172 
176 DR$ = A$: 
PRINT DR$ 
1798 HOME : 
YT = 12: 


TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 


179 
180 


210 
220 


s10 


530 


540 


5040 


5070 


5090 


GOSUB 11200: 

GOSUB 11100 

ONERR GOTO 40000 

MP$ = "TEST - USO" 
GOSUB 500 

GOSUB 5000 

HOME 2 

GOTO 210 
AAA 
REM — PRESENTA CABECERA 
y ES A O 
POKE 34,0: 

HOME ; 

INVERSE : 

PRINT " E. G. S. "+ LEFTS (BAS 
17) + "EDITORIAL FORUM, S.A." 
+" 

NORMAL 

YT =3: 

TIS = MP$: 

GOSUB 11200 

Y = 2: 

X= 1: 

INVERSE + 

GOSUB 11000: 

PRINT * *"; 

Xx = 40: 

GOSUB 11000: 
PRINT=2>"p3 


Y =3: 

X= 1: 
GOSUB 11000: 
PRINT " ": 

X = 40: 
GOSUB 11000: 
PRINT " "ss 
Y = 4: 

X= 1: 
GOSUB 11000: 
PRINT " ": 
Xx = 40: 
GOSUB 11000: 
PRINT " “ps 
Y =53 

X= 1: 


GOSUB 11000 
PRINT— LEFTS (BA$,40);: 
NORMAL: 

POKE 34,5 


REM START 
REM  -—-—-— 
YT =7: 
TIS = "INTRODUCIR LA SIGLA DEL TE 
ST": 

GOSUB 11200 

X = 16: 

Y = 13: 

GOSUB 11000: 

PRINT "SIGLA "; CHR$ (95); 

CHR$ (95);: 

X= 212 

GOSUB 11000 

INPUT S$: 

IF S$ = "" THEN 5040 

S$ = LEFTS (S$,2): 

IF LEN (S$) < 2 THEN S$ = S$ 

o. 

NFS = "FP" + S$: 

LR = 35: 





5100 
s110 


5120 


5130 


5140 


5145 
5150 
5160 
5170 


5180 


5190 


5220 
5230 


5250 
5260 
5270 


5280 


5290 


5300 


5310 


STA 
332 


5350 
5360 


5370 


5380 
5390 


5400 
5410 


JD 
FOR I = 1D TO 1D + 19: 
NR = 1 
GOSUB 6200: 
B$(1 —- ID + 1) = ARAS 
NEXT I: 
POKE 34,0 
HOME : 
YT = 1: 


TI$ = "PREGUNTA N." + STR$ (JD): 
INVERSE : 
GOSUB 11200 
NORMAL 
X= 4: 
FOR Y = 2 TO 21: 
GOSUB 11000 
PRINT B$(Y - 1): 
NEXT Y 
GOSUB 11100: 
GOSUB 500 
GOSUB 4600: 
NFS = "FR" + S$:2 
LR = 35: 
GOSUB 4000 
FOR 1 = IR TO IR + 9: 
NR = 1: 
GOSUB 6200 
B$(1 - IR + 1) = LEFTS (AA$,3 
3) 
P(I - IR + 1) = VAL ( MIDS (A 
A$,34,2)) 
NEXT 1 
YTa 73 
TI$ = "ELEGIR UNA DE LAS SIGUIENT 
ES SOLUCIONES": 
GOSUB 11200 
X= 3: 
FOR Y = 10 TO 19: 
GOSUB 11000 
PRINT Y - 103". "¿BS(Y - 9) 
NEXT Y 
Y = 22: 
GOSUB 11000: 
PRINT "CUAL ?"; 
GET A5$: 
IF A$ < "0" OR AS > "9" THEN 5270 


I= VAL (A$): 
PP PP + P(1 +1) 
IF JD < NO THEN GOSUB 6600: 
NF$ = "FP" + S$; 
LR = 35: 
GOSUB 4000: 
JD = JD + 1: 
IR = IR + 10: 
ID = ID + 20: 
G0TO 5110 
GOSUB 6600 
NFS = "FT" + S$:2 
LR = 80: 
GOSUB 6000 
NR = 1: 
GOSUB £200 
J=d1: 
FOR 1 = 1 TO 40 STEP 4 
MI(J) = VAL ( MIDS (AA$,1,2)) 
VAL ( MID$ (AA$, 1 


> = MI(1I) AND PP 
MX (1) THEN 5420 


TI$ = "ERROR DE GENERACION TEST": 
INVERSE : 


3430 
5440 


5450 


5460 


5470 


5490 


6000 
$010 
6020 
6030 
6040 


6050 
6060 
6200 
£210 
6220 
6230 
6240 
6250 
6260 
6270 
6600 
5610 


6620 
6630 
66540 
6550 
6660 
11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 


GOSUB 11200: 

END 

NR =1 + 1: 

GOSUB 4200: 

B$ (1) LEFTS$ (AAS, 40) 
B$ (2) MID$ (AA$, 41,40) 
HOME : 

YT = 9: 

TIS = "RESULTADOS. ": 
INVERSE : 

GOSUB 11200: 

NORMAL 
PRINT 
PRINT 
PRINT 
PRINT B$(1): 

FRINT B$(2) 

X = 12: 

Y = 21: 

GOSUB 11000: 

PRINT "OTRO TEST ? (S/N) "; 

GET A$: 

IF AS < > "S" ANDAS< > "N" 
THEN 5460 

IF AS = "S” THEN RETURN 

TEXT 
HOME 
END 
a A 
REM APERTURA FICHERO 
REM A Ao 
PRINT Ds 
PRINT DS; "OPEN"¿NF$ + ",D" 
+ DRS;",L"; 

PRINT D$ 

RETURN 


e. .. 0. 





AS 

REM LECTURA REGISTRO 

REM A A AA 
PRINT D$ 

PRINT D$; "READ";NF$;",R"¿NR 
INPUT AAS$ 

PRINT DS 





REM CIERRA FICHERO 


REM 
PRINT DS 

PRINT D$;"CLOSE"¿NF$ 
PRINT DS 

RETURN 

REM === 
REM POSICIONA CURSOR 





REM ESPERA CARACTER 
REA: === 
GOSUB 11600: 

YT = 23: 

TIS = "PULSAR UNA TECLA": 
FLASH : 

G0SUB 11200 

PRINT BP$;: 

Xx = 20: 

Y = 23: 

GOSUB 11000: 

GET AS: 

GOSUB 11600 

RETURN 

REI A A AAA 
REM CENTRA EN VIDEO 
EN AAAÁAAA AAA 


30 IF TIS = "" THEN RETURN 





TIS = LEFTS$ (TIS, 40) 


O XT = (42 - LEN (TIS)) / 2 


HTAB XT: 


11260 


11600 
11510 
11620 
11630 


11640 


11650 
40000 
40010 
40020 


40025 


40030 
40040 
40050 


40115 


40120 


40130 


40140 


VTAB YT 

PRINT TIS;: 

RETURN 

REM o — 
REM BORRA ULTIMA LINEA 
REN —————_——— — 
Y = 23: 

X= 1: 

GOSUB 11000 

NORMAL : 

PRINT LEFTS (BA$,40);: 
Y = 10: 

GOSUB 11000 

RETURN 


REM GESTION ERROR 

REM A 

TEXTS 

HOME 

IF” PEEK (222) = S THEN 40130 
IF. PEEK (222) < > 8 THEN 40115 
YT = 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUB 11200: 

PRINT : 

END 

L = PEEK (218) + 256 * PEEK (21 
9) 

HOME : 

YT = 13: 

TIS = "ERROR " + STR$ ( PEEK (22 
21) + "EN "+ STRS (L)2 

GOSUB 11200: 

END 

IF E = 1 THEN YT = 13: 

TIS = "EL TEST NO EXISTE": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 200 

YT = 13: 

TIS$ = "LOS DATOS NO EXISTEN": 
INVERSE ; 

GOSUB 11200: 

NORMAL : 

END 


Atributos-Generación 


10 
20 
30 
40 
s0 
50 


70 


90 
100 


110 


120 


130 


REM - 
REM TEST-GENERACION ATRIBUTOS 
REM VERSION DOS 

REMO 





REM INICIALIZACIONES 
DIM TF(15),TP(20),LC(20),ND(20),C 
X (20) ,CY (20) ,DX (20) ,DY(20),B$(20) 





,D$(20) 
BP$ = CHRS (7): 

NS$ = "4": 

AS$ = CHR$ (95): 

PDS =".": 

BLS = "o": 

DS = CHR$ (4): 

US$ = CHR$ (13): 

ZES = "0": 

GIUs ="": 

SL = "/" 

BS =" " 
BAS = BS + ES + B$ + BS: 
>.” 


HES = "AYUDA. CTRL-Y " 

HE$(1) = "CTRL Y.AYUDA (*ESPACIO” 
PARA CONTINUAR) " 

HES$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION E 

HES(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION " 

HES(4) = "CTRL I. PERMITE LA INSE 


140 
150 
160 


170 


174 
176 


178 


179 
180 


190 


210 
215 
225 


230 
235 


250 


410 


s10 
520 
530 


RCION DE ESPACIOS" 
HE$(5) = "CTRL D. BORRA UN CARACT 


ER " 
HES (6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL " 


HES(7) = "CTRL W,A,S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 
HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO z 
TEXT: 
HOME : 
YT o. 12: 
TI$ = "CUANTAS UNIDADES HAY ?( (1 
YE 
GOSUB 11200 
GET A$: 
IF A$< "1" OR AS > "2" THEN 172 
DR$ = A$: 
PRINT DR$ 
HOME : 
YT = 12; 
TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 
GOSUB 11200: 
GOSUB 11100 
ONERR GOTO 40000 
MP$ = "TEST - ATRIBUTOS - GENERA 
CION" 
RESTORE + 
FOR I = 1 TO 15: 
READ TF (1): 
NEXT 1 
GOSUB 500 
GOSUB 5000 
IF FS = 7 THEN GOSUB 6600: 
GOTO 250 
GOSUB 8000 
IF FS = 7 THEN GOSUB 4600: 
GOTO 210 
GOSUB 12000 
IF FS = 7 THEN GOSUB 6600: 
GOTO 220 
TEXT 2 
HOME : 
END 
Y=5 
X= 1: 
GOSUB 11000: 
INVERSE : 
PRINT— LEFTS (BA$,40);: 
NORMAL 
RE 
REM PRESENTA CABECERA 


PRINT " E. G. S. "+ LEFTS (BA$ 
,7) + "EDICIONES FORUM, S.A." 
+" 
NORMAL 

YT =3: 

TIS = MPS: 
GOSUB 11200 
Y =2: 

X = 1: 
INVERSE : 
GOSUB 11000: 
PRINT " "s 

X = 40: 
GOSUB 11000: 
PRINT " "s: 
Y = 3: 

X= 1: 
GOSUB 11000: 
PRINT " "s 
Xx = 40: 
GOSUB 11000: 
PRINT * "ss 


Y 
Xx 


ou 


4: 


to 


G0SUB 11000: 


PRINT O" ": 
Xx = 40: 
GOSUB 11000: 


570 - 
2010 


2030 


2035 


2040 


2060 
2070 


2090 


2100 
2110 


2120 


2130 
2140 
2150 
2160 
2170 
2180 
2240 
2250 
2260 
2270 


2280 
2290 


2300 


2310 
2320 
27330 


2340 
2345 


2350 


PRINT " ";: 
Y =353: 
X=1: 
GOSUB 11000 
PRINT — LEFTS (BA$,40);: 
NORMAL : 
POKE 34,5 
RETURN 
REN -———__—__—_—_— 
REM PRESENTA MASCARA 
REM A 
HOME : 
IF OPZ < >0 THEN Y = 72 
X = 1: 
GOSUB 11000: 
PRINT " VOZ ";0PZ 
IF HE< > 4 THEN YT =5S: 
TIS = HES: 
INVERSE : 
GOSUB 11200: 
NORMAL 
YT = 7: 
TIS = INS: 
GOSUB 11200 
IF CO< >0 THEN Y =7: 
X= XT + LEN (IN$) + 1: 
GOSUB 11000: 
PRINT CO 
SP = 33 - LEN (VO$(0PZ)) 
SPSS ==" 
IF SP = O THEN 2100 
FOR J = 1 TO SP; 
SP$ = SP$ + BL$: 
NEXT 
LP = LEN (PROG$) 
SI = INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
SIS ="": 
DES = "" 
FOR J = 1 TO SI 
SIS = SIS + BL$ 
NEXT 
FOR J = 1 TO DE 
DES = DES + BLS$ 
NEXT 
REM MASCARA 
FOR J = 1 TO NUC 
as = 0 
X = DX(J): 
Y = DY(J): 
GOSUB 11000: 


PRINT DS (J)> 

NORMAL 

IF TP(J) < > 5 AND TP(J)> 

< > 4 THEN 2330 

Xx = CX(J):3 

Y = CY(J): 

GOSUB 11000 

PRINT B$(J) 

60TO 2500 

Ni = LC(J): 

N2 = ND(J): 

IF TP(J) = 1 OR TP(J) = 2 

THEN C$ = NS$: 

GOTO 2345 

C$ = AS$ 

IF Ni = 1 THEN AS = CS: 

GOTO 2390 e 

FOR 1 = 1 TO Ni — N2 — 1: 
AS = AS + C$: 

NEXT 1 

IF N2 = O THEN A$ = AS + CS: 


2370 
2380 


2390 


2400 
2410 
2420 
2430 
2440 
2450 


2460 
2470 
2480 
2490 
2500 
2510 
2500 
2610 
2620 
2630 
3000 
3010 
3020 
3030 


3040 


3050 
3060 
3070 
3080 
3090 
3100 


3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 





GOTO 2390 
AS = AS + PDS 
FOR 1 = 1 TO N2: 
AS = AS + ZE$: 
NEXT 1 
X = CX(J): 
Y = CY(J): 
GOSUB 11000 
PRINT AS 
BSD ="" 
FOR K = 1 TO Ni - N2 - 1 
BS$(J) = BS(J) + BL$ 
NEXT K 
IF N2 = O THEN B$(J) = B$(J) 
+ BLS: 
GOTO 2500 
B$(J) = B$(J) + PD$ 
FOR K = 1 TO N2 
BS$(J) = B$(J) + BLS 
NEXT K 
NEXT J 
RETURN 


REM 


REM COMPLETA MASCHERA 
PA 
RETURN 

REM 

REM DATA ENTRY 

REA —————— 

J=1 

NC = J: 

X = CX(NC):2 

Y = CY(NC) 

CC = 1 

GOSUB 3240 

IF FS = O THEN 3100 

IF FS > 4 THEN 3210 

GOTO 3120 

Jy=J+1: 

IF J > NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
IF J >1 THENJ=J- 1: 
GOTO 3040 

PRINT BPS;: 

FS = 0: 

J = NUC: 

GOTO 3040 

IF J < NUC THEN J =J+d1: 
GOTO 3040 

PRINT BP$;: 

FS =0: 

GOTO 3030 

IF CC < LC(J) THEN SO = 1: 
CC = CC + 1: 
AE 
GOSUB 11000: 
GOTO 3060 
PRINT BP$: 

FS = 0: 

GOTO 3100 

IF CC > 1 THEN SO 
C£:= D5:="18 
CA AA 
GOSUB 11000: 
GOTO 3060 
PRINT BPS:;: 

FS = 0: 

GOTO 3040 

IF FS > 8 THEN FS 
GOTO 3060 

IF FS = 8 THEN FS 
GOTO 3100 
RETURN 

A AAA 
REM — LECTURA DE UN CAMPO 
a. ([I[I[I[lIiOAAAA 
FS =0 

IF TP(NC) = 4 THEN RETURN 


" 





3290 


3300 


3310 


3320 


3330 


3340 
3350 
3355 


3337 
3360 
3370 
3380 
3390 


3410 
3420 
3430 
3440 


3450 
3450 


352 
3530 
3540 


3680 
3690 


3700 


3710 
3720 
3730 
3740 
37530 
3760 
3770 


3780 


3790 
3800 


3820 
3830 
3840 


3850 


IF TP(NC) = 2 THEN B$(NC) = 
LEFT$ (B$(NC),LC(NC)): 
CC = LEN (BS$(NC)) + 1: 
GOSUB 4080: 
RETURN 
IF MID$ (B$(NC),CC,1) = FD$ 
THEN X = X + SO: 
CC = CC + SO 
GOSUB 11000 
GET A$: 
IF A$ = "" THEN 3320 
CA = ASC (A$): 
IF CA > 31 THEN 3380 
FOR I = 1 T0 15 
IF TF(1) < > (CA) THEN 3340 
FS = 1: 
GOSUB 3430: 
IF EE = 1 THEN EE = 0: 
GOTO 3070 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 OR (CA 
> = 48 AND CA< =57) THEN 341 
0 
PRINT BP$;+ 
GOTO 3320 
IF CA< > 46 THEN 3440 
GOSUB 4270 
IF SWP = 1 THEN 3400 
Ss0.= 1: 
GOSUB 3520 
IF CC = LC(NC) THEN RETURN 
CC =CC + 1: 





ei add 

GOTO 3300 

REM — 
REM TRANSFERENCIA AL BUFFE! 
a —_—_—————H>>>>——_——_—_———— 
IF CC = 1 THEN SN$ = "": 
GOTO 3370 

SN$ = LEFTS (B$(NC),CC - 1) 


IF CC = LC(NC) THEN DS$ = "": 
GOTO 3590 

N = LC(NC) - CC: 

DS$ = RIGHT$ (B$(NC),N) 
BS$(NC) = SN$ + A$ + DS$ 
PRINT A$: 

RETURN 

REM 

REM_ COMANDOS 

A 

IF FS > =S THEN 3690 

IF FS = 5 AND TP(NC) = 1 THEN 
GOSUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

IF FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740,3910 
RETURN 

A 

REM INSERCION 

REN 

IF. CC = LC(NC) THEN PRINT BPS: 
RETURN 

IF CC. = 1 THEN SN$ = "": 
GOTO 3800 

SN$ = LEFT$ (B$(NC),CC - 1) 
N = LC(NC) - CC + 1: 

DS$ = RIGHTS (B$(NC),N) 

C$ = BL$ 

AS = SNS + C$ + DS$ 

B$(NC) = LEFTS (A$,LC(NC)) 
XX =X: 

YY = Y 


3860 


3870 


3880 


3890 


3900 
3910 
3920 
3930 
3940 
3950 


3960 


3970 


3980 


3990 


4000 
4010 


4020 
4030 
4040 


4050 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 


4150 


4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


4240 


4250 
4260 


4270 
4280 
4290 
4300 
a310 


4320 
4330 


4340 


X = CX(NC): 
Y = CY (NC): 


GOSUB 11000 
X = XX: 
Y = YY 
PRINT BS (NC): 
Y0 == 
IF RIGHTS (B$(NC),1) = PD$ 
THEN 3780 
RETURN 
REM —————— 
REM BORRADO 
REM nn 
IF TP(NC) < > 1 THEN 3960 
IF MIDS (B$(NC>,2,1) = PD$ 
AND CC = 1 THEN RETURN 
IF CC < 1 THEN PRINT BP$: 
RETURN 
IF CC = LC(NC) THEN DS$ = "":z 
GOTO 4000 
N = LC(NC) - CC: 
DS$ = RIGHTS (BS$(NC),N)> 
IF CC = 1 THEN SN$ = "":z 
GOTO 4010 
SN$ = LEFTS (B$(NC),CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 
GOTO 4030 
C$ = AS$ 
B$ (NC) = SN$ + DS$ + C$ 
XX =X: 
YY = Y 
X = CX(NC): 
Y = CY(NC): 
GOSUB 11000 
X= XX: 
Y = YY 
PRINT BS (NC): 
SO = 1: 
RETURN 
REM —---— Se 
REM ALINEADOS 
REM --—--——--- 
IF LC(NC) = 1 THEN RETURN 
N1 = LC(NC) - CC + 1 
IF CC = 1 THEN BS$(NC) = "": 
GOTO 4150 
B$(NC) = LEFT$ (B$(NC),CC 
= 11 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN 4200 
FOR I = 1 TO Ni 
B$ (NC) = BS$(NC) + BL$ 
NEXT 1 
GOTO 4240 
FOR I = 1 TO Ni 
B6 (NC) = BL$ + B$(NC) 
NEXT 1 
IF. RIGHTS (B$(NC),1) = PDS 


THEN B$(NC) = BL$ + LEFTS (BS :n 
C),LC(NC) - 1) 
X = CX(NC): 
Y = CY (NC) 
GOSUB 11000 
PRINT B$ (NC): 
RETURN 
REM -—————— 
REM CTRL.FPUNTO 
RE ci 
SW? =0 
IF CC = 1 0R CC = LC(NC) THEN SWP 
= 4 
RETURN 
FOR 1 = 1 TO LC(NC) 
IF MIDS (B$(NC),1,1) = PD$ 
THEN 1 = LC(NC): 
SWP = 1: 
RETURN 
NEXT 1: 


5000 
so10 
5020 
5030 


5050 


5050 
5070 


5080 


5090 


5100 


s110 
5500 
5510 
5520 
5530 


3540 


5550 
£000 
56010 
6020 
6030 
6040 


6050 
£060 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6600 
£610 
6620 
6630 
6640 
6650 
5660 
8000 
8010 
8020 
8030 


8040 


REM INTRODUCCION SIGLA 
RE AS 
EE = 0: 
HOME : 
YT =7: 
TIS "INTRODUCIR LA SIGLA DEL TE 
ST.": 
GOSUB 11200 
X = 16: 
Y = 13: 
GOSUB 11000: 
PRINT "SIGLA "; CHR$ (95); 
CHR$ (95) 
X= 21: 
GOSUB 11000: 
INPUT S$: 
IF S$ = "" THEN 5040 
S$ = LEFT$ (S$,2) 
NFS = "AT" + S$: 
LR = 30: 
GOSUB 6000 
E = 3: 
NR = 1: 
GOSUB £200 
IF EE = O THEN E = 4: 
GOSUB 5500 
IF EE = 1 THEN GOSUB 6600: 
GOSUB 6000: 
GOTO 220 
RETURN 
REA. ————————— 
REM ACTUALIZACION 
RAS 
FOR 1 = 1 TO 10: 
NR = I: 
GOSUB £200 
BS$(1) = AMS: 
NEXT 1 
RETURN 
A 
REM APERTURA FICHERO 
REN. == 
PRINT DS 
PRINT DS; "OPEN"¿NF$ + ",D" 
+ DR$;",L"¡LR + 2 
PRINT D$ 
RETURN 
REM 
REM LECTURA REGISTRO 
REN -zPE=-—_—_—_ e nÁn_— 
PRINT D$ 
PRINT D$; "READ"¿NF$;",R"¿NR 
INPUT AAS$ 
PRINT D$ 
RETURN 
A 
REM ESCRITURA REGISTRO 
REN == iii 
PRINT D$ 
PRINT DS; "WRITE"5NFS$;",R"¿NR 
PRINT— CHR$ (34) + AAS 
PRINT DS 
RETURN 
A 
REM CIERRA FICHERO 
A AR 
PRINT D$ 
PRINT D$; "CLOSE"¿NF$ 
PRINT D$ 
RETURN 
A A A AAA A 
REM _ INTRODUCCION ATRIBUTOS 
A A 
NUC = 10: 
FOR I = 1 TO 10: 
TPID = E 
LC(1) = 30: 





3050 


8060 


8070 


8080 


8090 


8100 
8110 


8120 
8130 


10000 
10010 
10020 
10030 


11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 
11230 
11235 
11240 
11250 


11260 


11600 
11610 
11620 
11630 


11640 


11650 
12000 
12010 
12020 
12030 


12032 


ND(D) 
DX (1) 
CX(1) 
DY (1) 
CY 
D$(1) 

NEXT 1 

IN$ = "INTRODUCIR LOS ATRIBUTOS." 

C0O=0 

GOSUB 2000: 

IF E = 4 THEN FOR I = 1 TO 10: 
TPL = 32. 

NEXT 1 

GOSUB 3000: 

IF FS = 6 THEN 8080 

IF FS = 7 THEN RETURN 

FOR 1 1 TO 10: 
NR = I: 
AAS = B$(I) 
GOSUB £400% 

NEXT I 

GOSUB 6600: 

RETURN 

REM =— 

REM DATOS 

REM: mm 

DATA 23,26,19,1,5,27,18,13,25,9,4 

+0,0,0,0 

[AA 

REM POSICIONA CURSOR 

A 

HTAB X: 

VTAB Y 

RETURN 


Mom A 


REM ESPERA CARACTER 
RÁ SS 

GOSUB 116400: 

YT = 23: 

TI$ = "PULSAR UNA TECLA": 
FLASH : 

GOSUB 11200 

PRINT BF$;: 

X = 20: 

Y = 231 

GOSUE 11000: 

GET A$: 

GOSUB 11600 

RETURN 

E ema 

REM CENTRA EN VIDEO 
A e 

IF TIS = "" THEN RETURN 
TI$ = LEFTS (TI$,40) 

XT = (42 - LEN (TI$)) / 2 
HTAB XT: 

VTAB YT 

PRINT TI$;: 

RETURN 

AE 
REM BORRA ULTIMA LINEA 
REM ooo oooo-- 

Y = 23: 

X= 1: 

GOSUB 11000 

NORMAL : 

PRINT_ LEFTS (BA$,40)3: 

Y = 10: 

GOSUB 11000 

RETURN . 
e =—————=—_ == 
REM INTRODUCCION ELEMENT 
REM_--- 
NFS = "EL" + S$:2 
LR = 30: 

GOSUB 6000 

IF E = 4 THEN NR = d: 
GOSUB £200: 








12033 


12040 


12045 


12050 


12060 


12070 


12080 


12090 


12100 


12110 


12130 
12140 


12150 
12160 


12170 


12180 
12190 


12200 


12500 
12510 
12520 
12530 


12535 
12540 
12550 


12560 


13000 
13010 
13020 
13030 


13040 
13050 
13060 


Mx 
IR 
JR 
El 
IF E = 4 THEN El = 4: 
GOSUB 12500: 
GOTO 12050 
NR = 1: 
AAS = STR$ (IR): 
GOSUB £400 
NUC = 11: 
TP (1) 
LC (1) 
DX(1) 
DY (1) 
CX(1) = 13: 
CY (1) =9 
D$(1) = "ELEMENTO: 
eS 
FOR 1 = 2 TO 11 
TP(1) = El: 
LC(1) = 1: 
DX(I) = 15 
DY(1) = 1 + 12: 
CX(I) = 18: 
CY) = 1 + 12: 
D$(1) STR$ (1 - 1) 
NEXT 1: 
IN$ = "INTRODUCIR ELEMENTOS E IND 
ICADORES" 
GOSUB 2000: 
IF E = 4 THEN TP(1) = 3: 
FOR 1 = 2 TO 11: 
TP(D = 1: 
NEXT 1 
GOSUB 3000: 
IF FS = 6 THEN 12110 
IF FS = 7 THEN RETURN 
IR = IR + 1: 
NR = IR: 
AAS = BS(1): 
FOR 1 = 2 TO 11: 
AAS = AAS + LEFTS (B$(1),1): 
NEXT 1 
GOSUB 4400 
HOME : 
YT = 13: 
TI$ = "OTRO ELEMENTO ? (S/N): 
GOSUB 11200 
GET A$: 
IF AS< > "S" ANDAS< > "N" 
THEN 12160 
IF A$ = "S" THEN GOTO 12040 
NR = 1: 
AAS = STR$ (IR): 
GOSUB 4400 
GOSUB 6600: 
RETURN 
REM A 
REM ACTUALIZACION 
REM A A 
NR = IR + 1: 
IF NR > MX THEN AA$ = "": 
GOTO 12540 
GOSUB 6200 
B$(1) = LEFTS (AA$,20) 
FOR 1 = 2 TO 11: 
B$(1) = MID$ (AA5$,1' + 19,1) 
NEXT 1: 
RETURN 
REM eno 
REM AYUDA 
REM oo 
XX = Xz 
YY = Y 
INVERSE 
K=1 
Xx 1: 
Yo S2 


VAL (AA$) 


".n...4 


1: 
1 
1: 


"nu. 


13070 
13080 
13090 
13100 
13110 
13120 


13130 
13140 


13150 
13160 
13170 
13180 
40000 
40010 
40020 
40030 


40040 
40050 


40060 


40070 


40080 
40090 


40100 
40110 


40115 


40120 


40130 


40140 


40150 


GOSUB 11000 

PRINT HES(K); 

B= PEEK ( - 16384) 
FOKE — 16368,0 

IF B< 128 THEN 13080 


IF B< > 160 THEN 13080 
K=K+ di: 

IF K > 8 THEN 13140 
GOTO 13040 

Y =S: 

X= 1: 

GOSUB 11000: 

PRINT — LEFTS (BA$,40); 
YT =5: 

TIS = HES: 

GOSUB 11200 

NORMAL 

X = XX: 

Ya VY 

RETURN 








REM GESTION ERROR 

RENA Ad 

IF  PEEK (222) = S THEN 40130 
IF PEEK (222) < > 8 THEN 40060 


TEXT : 

HOME : 

YT = 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUB 11200: 

PRINT : 

END 

IF PEEK (222) < > 13 AND 

PEEK (222) < > 11 THEN 40080 
TEXT_: 

HOME : 

YT = 13: 

TI$ = "NOMBRE FICHERO NO VALIDO": 
INVERSE : 

GOSUB 11200: 

PRINT : 

END ; 

IF  PEEK (222) < 9 THEN 40100 
TEXT : 

HOME +: 

YT = 13: 

TI$ = "DISCO LLENO": 

INVERSE : 

GOSUB 11200: 

PRINT : 

END 

IF PEEK (222) < > 4 THEN 40115 
TEXT : 

HOME : 

YT = 13: 

TI$ = "DISCO PROTEGIDO": 

INVERSE : 

GOSUB 11200: 

PRINT : 

END 

L = PEEK (218) + 256 £  PEEK (21 
9) 

TEXT..: 

HOME : 

YT,=.13: 

TIS = "ERROR "+ STR$ ( PEEK (22 
2D) 4 EN de STR. LL) 2 

GOSUB 11200: 

END 

IF E = 3 THEN EE = 1: 

GOTO 5090 

TI$ = "LOS DATOS NO EXISTEN": 
INVERSE : 

YT = 13: 

GOSUB 11200 

END 


Atributos-Uso 


10 
20 
30 
40 
$0 


70 


110 


120 


130 


140 


150 


160 


170 


172 


174 


176 


178 


179 
180 
190 


195 
220 


230 


240 
245 
250 
260 
410 


460 


s10 
520 


REM 

REM TEST-ATRIBUTOS-USO 

REM VERSION DOS 

REMO 

DIM TF (15), TP(20),LC(20),ND(20),C 
X (20) ,CY (20) ,DX (20) ,DY (20) ,B$(20) 
,D$ (20) : 

BPS = CHAS (7): 

NSS = "8; 

ASS = CHAS (95): 

POS = 00: 

BL$ 
DS = CHR$ (4): 
US$ = CHAS (13): 
1ES = "0": 

Grus = "o: 

Ss ="/" 

B$ = : 
BAS = BS + BS + BS + BS + BS: 

Bi e. 

HES = "AYUDA CTRL - Y" 

HES(1) = "CTRL Y. AYUDA ("ESPACIO 
* PARA CONTINUAR) " 

HES(2) = "ESC. ANULA TODA LA INTR 
ODUCCION 3 

HE$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION " 

HES(4) = "CTRL L. PERMITE LA INSE 
RCION DE ESPACIOS" 

HES(5) = "CTRL D. BORRA UN CARACT 
ER y 

HES(6) = "CTRL R. VUELVE AL MENU 
FRINCIFAL 8 





“HES(7) = "CTRL A,4,S,Z.MUEVEN EN 


LAS 4 DIRECCIONES" 
HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO , 
TEXT : 
HOME + 
YT = 12: 
TI$ = "CUANTAS UNIDADES HAY ? (1/ 
2 
GOSUB 11200 
GET A$: 
IF AS < "1" OR AS > "2" THEN 172 
DR$ = A$: 
PRINT DR$ 
HOME + 
YT = 12: 
TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 
GOSUB 11200: 
GOSUB 11100 
ONERR GOTO 40000 
MP$ = "TEST - ATRIBUTOS - USO" 
RESTORE : 
FOR I = 1 TO 10: 
READ TF (1): 
NEXT 1 
DIM NO$(100),FO$ (100) 
GOSUB 500 
FS = 0: 
GOSUB 5000 
GOSUB 8000 
IF FS = 7 THEN 230 
GOSUB 12000 
IF FS = 7 THEN 230 
Y = 5: 
X= 1: 
GOSUB 11000: 
INVERSE : 
FRINT— LEFTS (BA$,40);: 
NORMAL 
GOTO 230 
FER O 
REM — PRESENTA CABECERA 


540 


550 


560 


570 

2000 
2010 
2020 
2030 
2035 


2050 


2060 
2070 
2080 


2100 
2110 


2120 


2130 
2140 
2150 
2150 
2170 
2180 
2240 
2250 
2260 
2270 


POKE 34,0: 

HOME : 

INVERSE : 

PRINT " E. G. S. "+ LEFT$ (BAS 
+7) + "EDICIONES FORUM, S.A." 


+ o" 


GOSUB 11000: 
PRINT " ": 

X = 40: 
GOSUB 11000: 
PRINTS OS 
Y=3 

X =1: 
GOSUB 11000: 
PRINT "> *< 
Xx = 40: 
GOSUB 11000: 
PRINT-" %3: 
Y =4: 

X= 1: 

GOSUB 11000: 
PRINT " "3 

XxX = 40: 
GOSUB 11000: 
PRINT " "z2 
Y =53: 

X= 1: 
GOSUB 11000 
PRINT— LEFTS (BA$,40);: 
NORMAL : 
POKE 34,5 


REM PRESENTA MASCARA 
REA 


YT =S: 

TIS = HES: 

INVERSE : 

GOSUB 11200: 

NORMAL 

YT =7: 

TI$ = INS: 

GOSUB 11200 

IF COX >0 THEN Y = 
X= XT + LEN (IN$) + 
GOSUB 11000: 

PRINT CO 

SP = 33 - LEN (VOS (0PZ)) 
sPS = "" 


7: 
1: 


IF SP = O THEN 2100 
FOR J = 1 TO SP: 

SP$ = SP$ + BLS$: 
NEXT 


LP = LEN (PROG$) 
SI.= INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
SsIs = "": 
DES = "" 
FOR J = 1 TO SI 
SIS = SIS + BLS$ 
NEXT 
FOR J = 1 TO DE 
DE$ = DES + BLS$ 
NEXT 
REM MASCARA 
FOR J = 1 TO NUC 
As ="" 
Xx = DX(J): 
Y = DY(J): 
GO0SUB 11000: 


2280 


2310 
2320 
2330 


2340 
2345 


2350 


2360 


2370 
2380 


2390 


2400 
2410 
2420 
2430 
2440 
2450 


2460 
2470 
2480 
2490 
2500 
2510 
2600 
2610 
2620 
2630 


2640 
3000 
3010 
3020 
3030 
3040 


3050 
3060 
3070 
3080 


3100 
3110 
3120 
3130 


3140 


PRINT D$(J) 

NORMAL 

IF TP(J) < > S AND TF(J) 
< > 4 THEN 2330 

X =CX(D: 

Y = CY(J): 

G0SUB 11000 ee 
FPRINT B$(J) 

6oTo 2500 

Ni = LC(J): 

N2 = ND(J): 

IF TP(J) 
THEN C$ 
GOTO 2350 
C$ = AS$ 
IF Ni = 1 THEN A$ = Có$: 

GOTO 2390 
FOR 1 = 1 TO Ni -— N2 - 1: 
AS = AS + C$: 
NEXT 1 
IF N2 = O THEN AS = AS + C$: 
GOTO 2390 
AS = AS + PD$ 
FOR I = 1 TO N2: 
AS = As + 7E$: 
NEXT I 
X = CX(J): 
Y = CY(J): 
GOSUB 11000 
PRINT A$ 
BSD) ="" 
FOR K = 1 TO Ni - N2 - 1 
B$(J) = B$(J) + BLS 
NEXT K 
IF N2 = O THEN B$(J) = B$(J) 
+ BL$: 
GOTO 2500 
B$(J) = B$(J) + FDS 
FOR K = 1 TO N2 
BS$(J) = B$(J) + BLS 
NEXT K 
NEXT J 
RETURN 
REM 
REM COMPLETA MASCARA 


1 OR TP(J) = 2 
NS$: 





TI$ = "*S” PARA *SI? Y *N” PARA ” 
NO” "sz ; 
GOSUB 11200 


cc =1 

GOSUB 3240 

IF FS = O THEN 3100 s 
IF FS > 4 THEN 3210 

GOTO 3120 

J=J+1: 

IF J > NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
IF J>1 THNJ=J- 1: 
GOTO 3040 

PRINT BP$;: 

FS = 0: 

J = NUC: 

GOTO 3040 

IF J < NUC THEN J =J + 1: 
GOTO 3040 

PRINT BF$;: 

FS = 0: 

GOTO 3030 

IF CC < LE(J) THEN SO = 1: 


3180 


3190 


3200 


3210 


3220 


3230 
3240 
3250 
3260 
3270 
3280 
3290 


3300 
3310 
3320 
3330 


3340 
3350 


3360 
3370 


3380 


3390 


3400 


3410 
3420 
3430 
3440 


3450 
3460 


3520 
3530 
3540 
3550 


3560 
3570 


3580 


3590 
3620 


3630 
3640 
3650 
3660 
3670 


DEE 

La Xd 

GOSUB 11000: 

GOTO 3040 

PRINT BP$: 

FS = 0: 

GOTO 3100 

IF CC > 1 THEN SO 
CC = CC - 1: 
X=X-1: 

GOSUB 11000: 

GOTO 3040 

PRINT BP$;3: 

FS =0: 

GOTO 3040 

IF FS > 8 THEN FS 
GOTO 3060 

IF FS = 8 THEN FS 
GOTO 3100 

RETURN 

A 
REM_ LECTURA DE UN CAMPO 
REA ——————— 
FS=0 

IF TP(NC) = 4 THEN RETURN 
IF TP(NC) = 2 THEN B$(NC) = 
LEFTS (B$(NC),LC(NC))2 

CC = LEN (B$(NC)) + 1: 
GOSUB 4080: 

RETURN 


" 
2 


" 
2 


IF. MID$ (B$(NC),CC,1) = PD$ 
THEN X = X + SO: 

CC = CC + SO 

GOSUB 11000 

GET A$: 

IF AS = "" THEN 3320 

CA = ASC (A$): 


IF CA > 31 THEN 3380 
FOR 1 = 1 710 15 
IF TF(I) = (CA) THEN FS 
= 1: 
GOSUB 3630: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 0R (CA 
> =48 ANDCA< = 57) THEN 341 
0 
PRINT BF$;: 
GOTO 3320 
IF CAX > 46 THEN 3440 
GOSUB 4270 y 
IF SWP = 1 THEN 3400 
SO = 1: 
GOSUB 35320 
IF CC = LC(NC> THEN RETURN 
CC = CC + 1: 
XX +d2 
GOTO 3300 
ANA 
REM TRANSFERENCIA AL BUFFER 
RES 
IF CC = 1 THEN SN$ 
GOTO 3570 
SN$ = LEFTS$ (B$(NC),CC - 1) 
IF CC = LC(NC) THEN DS$ = "": 
GOTO 3590 
N = LC(NC) - CC: 
DS$ = RIGHT$ (B$(NC),N) 
BS (NC) = SN$ + A$ + DS$ 
PRINT A$: 
RETURN 
REN. ===> 
REM COMANDOS 








IF FS > = 5 THEN 3490 
= 5 AND TP(NC) = 1 THEN 


5040 


5070 


5080 
5090 


5100 


s110 


5120 


5130 


5140 
5150 


£000 
6010 
6020 
56030 
6040 


6050 
6060 
5200 
6210 
6220 
$623 

£240 
6250 
6260 
6270 
6600 
£610 
£620 
6630 
6640 
£650 
6660 


RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

IF FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740,3910 
RETURN 

RETURN 

RETURN 


- RETURN 


RETURN 

REN 5 

REM INTRODUCCION SIGLA 

DEM 2. 

HOME : 

YT =7: 

TIS = "INTRODUCIR LA SIGLA DEL TE 
ST: 


GOSUB 11200 
X =17: 
Y = 12: 
GOSUB 11000 
PRINT "SIGLA "; CHR$ (95); 
CHR$ (95) 
Xx = 22: 
GOSUB 11000: 
INPUT S$: 
IF S$ = "" THEN 5040 
NFS = "AT" + S$:2 
LR = 30: 
GOSUB 000 
FOR NR = 1 TO 10: 
GOSUB 4200 
DTS (NR) = AA$: 
NEXT NR 
HOME + 
YT = 13: 
TI$ = "DESEAS VER LOS ATRIBUTOS ? 
(S/N "s 
GOSUB 11200 
GET A$: 
IF AS< > "S" ANDAS > "N" 
THEN 5100 
IF A$ = "N" THEN GOSUB £600: 
RETURN 
HOME 
x=3 
FOR Y = 10 TO 19: 
G0SsuB 11000 
PRINT Y - 95%. ";DTS(Y - 9) 
NEXT Y: 
GOSUB 11100: 
GOSUB 5500: 
RETURN 
O 
REM APERTURA FICHERO 
REM oo 
PRINT DS 
PRINT DS; "OPEN"¿NF$ + ",D" 
+ DR$;",L"¿LR + 2 
PRINT D$ 
RETURN 
A a o 
REM LECTURA REGISTRO 
AR 
PRINT D$ 
PRINT D$;"READ"¿NF$;",R"¿NR 
INPUT AA$ 
PRINT DS 
RETURN 
REM AA A AAA 
REM CIERRA FICHERO 
REM A A AA 
PRINT DS 
PRINT DS$;"CLOSE"¿NF$ 
FRINT D$ 
RETURN 


8010 
8020 
8030 


8050 


8060 
8070 


8080 


10000 
10010 
10020 
10030 


11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 
11230 
11235 
11240 
11250 


11260 


11500 
11610 
11520 
11630 


116540 


11650 
12000 
12010 
12020 


12030 


12040 


12050 


12060 
12070 
12080 


CARGA LOS ELEMENTOS 
NFS = "EL" + S$: 
LR = 30: 

GOSUB 6000 

NR = 1: 

GOSUB 6200: 

MX = VAL (AA$) 
FOR 1 = 2 TO MX: 
NR = 1: 
GOSUB 6200 
NO$(I - 1) 
FO$(1 - 1) 


q38 








LEFTS (AA$,20) 
MID$ (AA$,21,10) 


NEXT 1: 

GOSUB 5600: 

RETURN 

REM === 

REM DATOS 

REN —— 

DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 

REM —--— 
REM POSICIONA CURSOR 
REN_P+—— 

HTAB X: 

VTAB Y 

RETURN 

REM oo rms 

REM ESPERA CARACTER 

REM ——o ooo mesma 

GOSUB 11600: 

YT = 25: 

TI$ = "PULSAR UNA TECLA": 

FLASH : 

GOSUB 11200 

PRINT BP$;: 

Xx = 20: 

Y = 23: 

GOSUB 11000: 

GET A$: 

GOSUB 11400 

RETURN 

REN eones 

REM CENTRA EN VIDEO 

REM AA 

IF TIS = "" THEN RETURN 

TIS = LEFTS (TIS$,40) 

XT = (42 - LEN (TIS)) / 2 

HTAB XT: 

VTAB YT 

PRINT TIS;: 

RETURN 

REM mono - 

REM BORRA ULTIMA LINEA 

REM 

Y = 23: 

Xx =i: 

GOSUB 11000 

NORMAL : 

PRINT— LEFTS (BA$,40);:2 

Y = 10: 

GOSUB 11000 

RETURN 

o 

REM DESARROLLO DEL TEST 

A 

HOME : 

YT = 13 

TI$ = "DESARROLLO, LINIA O COLUMN 

A? (L/C)" 

GOSUB 11200: 

GET A$: 

IF AS< > "L" ANDAS > "C" 
THEN 12040 

IF A$ = "C" THEN 12300 

N9 = RND (1) Y (MX — 1) + 1 
IF LEFTS (NO$(N9),1) = " " 





12090 


12100 


12110 


12120 


12130 


12140 


12150 


12160 


12165 


12170 


12180 


12190 
12200 


12210 


12220 


12230 


12240 


12242 


12245 
12250 


12260 


12270 
12280 
12290 


2300 
12310 


12320 


12330 


12340 


THEN 12070 

D$(1) = "ELEMENTO: 

B$(1) = NO$(N9) 

TP(1) = 4: 

LC(1) = 20: 

DX(1) = 1: 

DY(1) = 12 

CX(1) = 11: 

CY (1) = 12 

FOR 1 = 2 TO 11: 
D$(1) = DT$(I - 1) 
LC(D) = 1: 
TP(D =3: 
DXID =4 
DY(D) = 12 + 1: 
CX(1) = 27: 
CY) = 12 + 1 

NEXT 1: 

NUC = 11 


IN$ = "INDICAR LOS ATRIBUTOS CORR 
ECTOS": 
co =0 
FOR 1 = 2 TO 11: 
BSD ="": 
NEXT 1 
GOSUB 2000: 
GOSUB 2600 
GOSUB 3000: 
IF FS = 6 THEN 12170 
IF FS = 7 THEN RETURN 


ES = 0": 
FOR 1 = 2 TO 11 
IF B$(1) = "S" THEN R$ = R$ 
40po 
IF B$(1) = "N" THEN R$ = R$ 
+ on 
NEXT 1 


L = LEN (R$): 

IF L =0 THEN R$ = "EE": 

L=1 

IF DS(L +2) < > LEFTS (BA$,30) 
AND DS(L + 2) < > "" THEN R$ 
= "EE" 

RO$ = LEFT$ (FO$(N9),L) 

IF R$ < > ROS THEN HOME «2 
YT = 13: 

TI$ = "HAY UN ERROR. COMPRUEBA": 
INVERSE : 

GOSUB 11200: 

PRINT BP$;: 

GOSUB 11100: 

GOTO 12160 , 

HOME : 

YT = 13: 

TI$ = "MUY BIEN, TEST SUFERADO": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100 

HOME : 

YT = 13: 

TI$ = "OTRA VEZ ?(S/N)": 
GOSUB 11200 

GET A$: 

IF AS< > "S" ANDAS< > "N" 
THEN 12260 

IF A$ = "S" THEN 12030 

FS = 72 

RETURN 

N9 = FRND (1) £ 10 + 1 

B$(1) = DT$(N9): 

K <= 1: 

ROS = "": 

IF B$(1) = LEFT$ (BA$, 30) 
THEN 12300 

NG = RAND (1) Y (MX — 1) + 1 
IF NO$(N8) = LEFTS (BA$,20) 
THEN 12320 

D$(K + 1) = NO$S(N8): 


12380 


12390 


12400 


12440 
12450 


12450 


12470 


12480 
12490 


12500 


12510 


12520 


12530 
12540 


13000 
13010 
13020 
13030 


13040 
13050 
13060 


13070 


13090 
13100 
13110 
13120 


13130 
13140 


RO$ = ROS + MID$ (FO$(N8),N9, 1) 
IF K < 10 THEN K = K + 1: 
GOTO 12320 


O IN$ = "INDICAR LOS ELEMENTOS CORR 


ECTOS": 

to =0 

D$(1) = "ATRIB.: 

TP (1) = 

LC(1) 

DX(1) 

DY (1) 

2x1) 

CY (1) 

FOR 1 = 
TP(1) 
LC(D) 
DX(1) 
DY (1) 
Cx (1) 
cr 

NEXT 1: 

NUC = 11 

GOSUB 2000: 

GOSUB 2600 

GOSUB 3000: 

IF FS = 6 THEN 12420 

IF FS = 7 THEN RETURN 

R$ ="";: 

FOR I = 1 TO 10 
IF BS(1 + 1) = "S" THEN R$ 
= RE + "1" 
IF BS(1 + 1) = "N" THEN R$ 
= R$ + "0" 

NEXT 1 

IF RO$< > R$ THEN HOME : 

YT = 13: 

TI$ = "HAY UN ERROR COMPRUEBA": 

INVERSE +: 

GOSUB 11200: 

PRINT BP$;: 

GOSUB 11100: 

GOTO 12420 

HOME : 

YT = 13: 

TIS = "MUY BIEN, TEST SUPERADO": 

INVERSE : 

GOSUB 11200: 

GOSUB 11100 

YT = 13: 

HOME : 

TIS = "OTRA VEZ ?(S/N)": 

GOSUB 11200 

GET A$: 

IF AS > "S" ANDASX > "N" 

THEN 12510 

IF A$ = "S" THEN 12030 

FS =7: 

RETURN 

REM ---— 

REM AYUDA 

REM —--- 

XX =X: 

YY = Y 

INVERSE 








K 
Xx 
Y 


1 
1 
5: 

GOSUB 11000 

PRINT HES(K); 

B= PEEK ( - 16384) 
POKE - 16368,0 

IF B < 128 THEN 13080 
IFBX< > 160 THEN 13080 
Kx=K+t: 

IF K > 8 THEN 13140 
GOTO 13060 

Y = 5: 
x=1 


13150 


13160 
13170 


13180 
40000 
40010 
40020 
40030 
40040 
40050 


40115 


40120 


40130 


GOSUB 11000: 

FRINT  LEFT$ (BA$, 40); 
YT =5: 

TIS = HE$: 

GOSUB 11200 

NORMAL 

X = XX: 

Y = YY 

RETURN 

E =————————_—_——= 

REM GESTION ERROR 
REM -——- 
IF PEEK (222) = S THEN 40130 

IF PEEK (222) < > 8 THEN 40115 
HOME : 

YT_= 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUB 11200: 

NORMAL : 

END 

L == PEEK (218) + 256 *£ PEEK (21 
9) 

HOME : 

YT = 13: 

TI$ = "ERROR "+ STR$ ( PEEK (22 
21) + "EN "+ STRS (L): 

GOSUB 11200: 

END 

HOME : 

TI$ = "EL TEST NO EXISTE": 

YT = 13 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 





+ GOTO 220 


Símbolos-Generación 


10 
20 
30 
40 
so 


60 


70 


90 


100 


105 


110 
190 


6000 
6010 


REMO o 
REM TEST-GENERACION SIMBOLOS 
REM VERSION — DOS 

REM 


D$ = CHR$ (4): 

BP$ = CHR$ (7) 

BS =" a A 

BAS = B$ + B$ + E$ + Bó: 

Bs ="" 

PRINT D$: 

PRINT D$;"BLOAD CAR,D1": 
FPRINT D$ 

HGR2 : 

X= 8: 

Y = 12: 

A$ = "CUANTAS UNIDADES HAY ? (1/2 
yo 

GOSUB 20300: 

GET C$: 

E SB ANDO 
THEN 80 

X= 2: 

A$ = "INTRODUCIR DISCO DATOS EN L 
A UNIDAD " + C$: 

GT = 1: 

GOSUB_ 20300 

X= 123 

Y = 23: 

A$ = "PULSAR UNA TECLA": 
GT =0: 

GOSUB 20300: 

GET AS 

DR$ = C$ 

GOSUB 12000: 

TEXT : 

HOME : 

END 

REN 
REM APERTURA FICHERO 


6020 
$030 
6040 


6050 
£060 
6400 
6410 
6420 
6430 
$440 
$450 
6460 
6470 
6600 
6610 
6420 
6630 
6640 
6650 
6660 
12000 
12010 
12020 
12030 


12050 


12040 


12062 


12054 


12065 


12067 


12070 


12080 


12090 


12110 


20000 
20010 





20040 


20050 


20060 


20100 
20110 
20120 


REM ¡HA A A A 

PRINT D$ 

PRINT D$;"DPEN"5NF$ + ",D" 
+ DRS;",L“GLR + 2 

PRINT Ds 

RETURN 

RED 

REM_ ESCRITURA REGISTRO 

REM AAA E 
PRINT Ds 

PRINT DS; "WRITE"¿NF$;",R"¿NR 
PRINT  CHR$ (34) + AAS 

PRINT D$ 

RETURN 

A 2 AE 

REM CIERRA FICHERO 

A RE E 

PRINT D$ 

PRINT D$; "CLOSE"¿NF$ 

PRINT DS 

RETURN 

REN._=== 

REM START 

BEM_—— 

NF$ = "SIMBOLOS": 

LR = 75: 

GOSUB 6000 

IR = 1: 

TE =1 

GOSUB 35000: 

GOSUB 35500 

X= .23 

Y = 19: 

A$ = "INDICAR LA RESPUESTA CORREC 

TA (3,4,5)": 

GOSUB 20300 

GET C$: 

IF C$ < "3" OR C$ > "S" THEN 1206 

2 

NR = NR +1: 

ARAS = C$: 

GOSUB 4400 

A$ = LEFTS (BA$,37): 

Xx =2: 

GOSUB 20300 

A$ = "OTRO TEST ? (S/N)": 

Xx. m- 112 

Y =19 

GOSUB 20300:, 

GET C$: 

IF C$< > "S" ANDCS< > "N" 
THEN 12070 

IF C4% = "S" THEN IR = IR + 6: 

1 A O 

GOTO 12060 

NR = 1: 

ARS = STR$ (TE): 

GOSUB 6400 

GOSUB 6600: 

RETURN 

A A 

REM ESPERA Y PARPADEO CURSOR 

REN zB"————— e Jr 

AD = PEEK ( - 16384): 

IF AO > 128 THEN 'FOKE - 16368,0 

AO = AO - 128: 

RETURN 

Tarta 

IF T< 10 THEN 20030 

T=d: 

IF. PEEK (PL) <_ > PV THEN 
POKE PL,PV: 

GOTO 20030 

POKE PL,127 - PV: 

GOTO 20030 

REMAIN e 

REM ENCIENDE CURSOR XC, YC 

REMAIN e 





20125 
20127 


20130 
20140 


20160 
20200 
20210 
20220 
20230 


20240 


20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 


20325 


20330 
20340 
20350 
20360 
20800 
20810 
20820 
20830 
20840 
20850 
20840 
35000 
35010 


33020 
353030 


35040 


35050 


35060 X 


35070 


35080 


35090 


UY 
en 


35130 


IF XC < 1 OR XC > 40 THEN XC 
Sl 
IF YC < 1 OR YC > 24 THEN YC 
= 1 
POKE PL,PV 
LOC = 23423 £ (YC < 9) + 23463 
1 (YC > 8) k (YC < 17) + 23503 
1 (YC > 16) + (YC - 8% (YC 
> 8) - 8% (YC > 16)) £ 128 


POKE LOC,127 - PV 
RETURN 


Ss 

REM CARACTER EN HI-RES 

REM A 

10 = (24575 + (CO - 32) t£ 8) 
+ GT x 512 

LOC = 16255 £ (Y < 9) + 16295 
x (Y >8) A (Y < 17) + 16335 
E (Y > 16) + (Y <=3-4.1Y > 8) 
- 88 (Y >16)) £ 128 + X 

FOR I= 1708 





POKE LOC, PEEK (10 + 1) 
LOC = LOC + 1024 

NEXT I 

RETURN 

RENA 

REM CADENA EN HI-RES 

A 

IF A$ = "" THEN RETURN 

LL = LEN (A$): 


FOR IL = 1 TO LL 
CO = ASC ( MID$ (A$, IL,1)): 
GOSUB 20230 
Xd 
NEXT 1L 
RETURN 
A 
REM CUADRADO A XC,YC DE NM 


X= (0-1) 17: 

Y= (0-1) x8 

Li=74N: 

L2=8 14M 

HPLOT X - 1,Y - 1 TO X + L1,Y 
- 170 X + L1,Y + 1270 X 
-4,Y + L2 70 X - 1,Y-1 

RETURN 

REM === 

REM INIC.PANTALLA 

REM > — 


HGR2 : 





A a 

G0suB 20800 

XC = 23: 

GOSUB 20800 

XC = 53: 

GOSuB 20800 

A$ = "SIMBOLO=": 
X = 32: 





35140 


35150 


35160 


33170 


35180 


35190 


35200 


35210 


35220 
35250 
35260 


35270 


35500 
35510 
35520 
35525 
33530 


35540 


3395950 


35560 
35370 


35580 
33590 


35610 
35620 
35630 


35640 
35650 
35660 
35670 
35680 


353700 
35710 


35720 
35730 


35740 


35750 


A$ = "TEST N." + STR$ (TE) 
GO0SUB 20300: 

Xx = 20: 

Y=5 

AS = "<< PREGUNTA": 

GOSUB 20300 

x= 29: 

Y 13: 

AS = "<< RESPUESTA" 

GOSUB 20300: 

Y 
Xx 


”.u 
JO 


AS = "1" 
GOSUB 20300: 
X= 16: 

AS = "2" 
GOSUB 20300: 





AS = "gn 
GOSUB 20300: 
x= 25: 
AS = "su 
GOSUB 20300 
FOR I = 1 TOS: 
FOR J = 1 TO S: 

FOR K =1T0S5S 
CCZ(I,J,K) = 32: 
667.(1,J,K) = 0 

NEXT K: 


NEXT J: 
NEXT 1: 





REM CONSTRUC. SPRITES 
E 

DATA 5,3,14,3,5,11,14,11,23,11 
SP = 1: 

RESTORE : 

CC = 32: 

6T=0 

FOR 1 = 1 TO 5: 

READ XIZ(1),YIZ(1): 

NEXT 1 

XC = XIZ(SP):2 

YC = YIZ (SP) 

GOSUB 20100 

GOSUB 20000: 

A = FRE (0) 

IF AO < > 1 THEN 35610 

IF XC = XIZ(SP) THEN 35570 

XC 2 "ME := 13 

GOTO 33560 

IF AO < > 19 THEN 35640 

IF XC = XIZ(SP) + 4 THEN 35570 
XC = XC +1: 

GOTO 35560 

IF AO < > 23 THEN 35670 

IF YC = YIZ(SP) THEN 35570 
NE-ENL += 40 

GOTO 35560 

IF AO < > 26 THEN 35700 

IF YC = YIZ(SP) + 4 THEN 35570 
YC = YC + 1: 

GOTO 35560 

IF AO < > 13 THEN 35760 

CO = CC: 

X = XC2 

Y = YC: 

GOSUB 20200 

PV = PEEK (LOC - 1024) 

CCZ(XC - XIZ(SP) + 1,YC - YIZ(SP) 
+ 1,SP) = CC 

GG%(XC - XIZ(SP) + 1,YC - YIZ(SP) 
+ 1,SP) = GT 

GOTO 35570 


35760 
35770 
35780 


35790 


35810 


35840 
35850 


35870 


35880 


35890 
35900 


35910 


35920 
35925 
35930 


33940 


35950 
35960 
35970 
35980 
35990 
36000 
36010 
36020 


36030 


36040 


> 8 THEN 35800 
32 THEN CC = 97 


GOTO 33570 

IF AO < > 21 THEN 35840 
IF CC = 96 THEN CC = 31 
DOMO ES1S 

Co = CC: 

X= 40: 

Y=1 

GOSUB 20200: 

GOTO 35570 

IF AO < >32 THEN 35880 
IF GT = 3 THEN GT = -1 
GT = GT +1: 

GG = GT: 

CO = CC: 

X = 40: 

NAT 

GOSUB 20200: 

GT =0: 

Xx = 40: 

Y =3 

A$ = STR$ (GG): 

GOSUB 20300: 

GT = GG: 

GOTO 35570 

IF AO > 48 AND AO < 54 THEN SP 
= A0 - 48: 

GOTO 35550 

IF AO < > 24 THEN 35920 
CO = 32: 

X = XC: 

Y = YC: 

GOSUB 20200: 

PV = PEEK (LOC - 1024) 
CC%(XC - XIZ(SP) + 1,YC - YIZ(SP) 
+ 1,5P) = COs 

GOTO 35570 

IF AO < > 5 THEN 35570 
6T=0 

A$ = "SEGURO ? (S/N) ": 
X= 13: 

Y = 19 

GOSUB 20300: 

GET C$: 

IF CSX<X > "S" ANDCS< > "N" 
THEN 35930 


AS =" "e 
X = 13: 

GOSUB 20300 

IF C$< > "S" THEN 35570 


FOR SP = 1 TO 5: 
AS 
FOR J =1 705 
FOR I = 1705 
AAS = AAS + STRS (CCZCI 
,1,SP)) 
AAS = AAS + STR$ (GGZ(1 
,1,SP)) 
NEXT 1: 
NEXT J 
NR = IR + SP: 
GOSUB 4400: 
NEXT SP 
RETURN 


Símbolos-Uso 


10 
20 
30 
40 
50 


REM TEST-SIMBOLOS USO 
REM VERSION DOS 
REM 


D$ = CHR$ (4): 


55 
60 


100 


110 


120 


130 


140 


150 
160 


170 


180 


190 


210 


230 


240 


260 


270 


310 


320 


BP$ = CHR$ (7) 
ONERR GOTO 40000 


Bs = " =N 
BA$ = ES + B$ + BS + BS: 
Bs ="" 


DATA — £,3,15,3,6,15,15,15,24,15 
PRINT DS: 
PRINT D$;"BLOAD CAR,D1": 
PRINT D$ 
HGR2 : 
HCOLOR= 3 
RESTORE : 
FOR I = 1 TO 5: 
READ XS(1),YS(I): 
NEXT 1 
X=7: 
Y = 13: 
A$ = "CUANTAS UNIDADES HAY ? (1/2 
»: 
GOSUB 20300 
GET C$: 
IF CSX<X > "1" ANDCS< > "2" 
THEN 90 
DR$ = C$: 
A$ = "INTRODUCIR DISCO DATOS EN L 
A UNIDAD " + C$ 
X= 3: 
GT = 1: 
G0SUB 20300 
A$ = "PULSAR UNA TECLA": 
6T=0 
X = 12: 
Y = 23: 
GOSUB 20300 
GET C$ 
NF$ = "SIMBOLOS": 
LR = 75: 
GOSUB £000 
NR = 1: 
GOSUB £200: 
MX = VAL (AA$) 
IR = 2: 
JK =1 
GOSUB 35000 
GOSUB 35500 
FOR SP = 1 TOS 
XS = XS(SP): 
YS = Y 


AS = "CUAL ? (1,2,3)": 

X= 14: 

Y = 24 

G0SUB 20300 

GET CS: 

IF C$< "1" OR C$ > "3" THEN 260 
IF VAL (C$) = KK - 2 THEN 300 
IF AS = "E" THEN PRINT BP$: 
GOTO 260 

PRINT BP$;: 

A$ = "ERROR, VUELVE A PROBAR": 
ET =1 

X = 14: 

Y = 24: 

GOSUB 20300: 

AS = "E": 

GOTO 260 

"MUY BIEN, TEST SUPERADO": 
1 

9: 

= 13: 

¡SUB 20300 

"OTRO TEST 2 (S/N)": 


338 
4 
"a 


o" 


-<<o 2 <> 
—] A 

.u 
Guo 


.u 
mp) 


¿ 
E 


370 


6000 
$010 
6020 


6040 
6050 


6200 
6210 
6220 


6240 


6260 
6270 
6600 
6610 
6620 


6640 


6660 

20200 
20210 
20220 
20230 


20240 


20800 
20810 
20820 
20830 


20840 


20850 


20860 
33000 


GET C$: 

IF CS< > "S" ANDC$< > "N" 
THEN 340 

IF C$ = "N" THEN TEXT : 

HOME : 

END 

IF JK = MX THEN HGR2 : 

A$ = "TESTS TERMINADOS": 

GT = 1: 

X= 14: 

Y = 13: 

GOSUB 20300: 

GET C$: 

TEXT : 

HOME : 

END 

JK = JK +1: 

IR = IR +6: 

GOTO 190 

REM 





REM APERTURA FICHEROS 
REN ——_——== 
PRINT DS 


PRINT DS; "OPEN";NF$ + ",D" 
+ DR$;",L"¡LR + 2 

PRINT DS 

RETURN 

REM - 
REM LECTURA REGISTRO 

REM 

PRINT D$ 

PRINT D$;"READ"¿NF$;",R";NR 
INPUT AAS 





REM CIERRA FICHERO 
ASS>S>===== 
PRINT D$ 
PRINT D$;"CLOSE";NF$ 
PRINT D$ 
RETURN 
REA AAA 
REM CARACTER EN HI-RES 
AAA A 
10 = (24575 + (CO - 32) k 8) 
+ GT X Ss12 
LOC = 16255 k (Y < 9) + 16295 
* (Y >8) £ (Y < 17) + 16335 
1 (Y > 16) + (Y - 8: (Y >:0) 
- 8% (Y > 16)) £ 128 + X 
FOR 1= 1708 
POKE LOC, PEEK (10 + 1) 
LOC = LOC + 1024 
NEXT 1 
RETURN 
E 
REM CADENA EN HI-RES 
REM e 
IF A$ = "" THEN RETURN 
LL =- LEN (A$): 
FOR IL = 1 TO LL 
CO = ASC ( MIDS (A$,IL,1)): 
GOSUB 20230 
X=X +1: 
NEXT IL 
RETURN 


REM 


REM CUADRADO A XC,YC DE NiM 
REN —_=———==JHHHHMMMMMMMIM1NS 
X= (XC - 1) 147: 

Ys (YC.=4) 3 9 
L1=7XN: 

(2=8g:mM 

HPLOT X - 1,Y - 1 TO X + L1,Y 
=110.%:+ L1,Y +: 12 70.2 
ENE E2 DOS YT 
RETURN 

AA 





35010 REM INIC.PANTALLA 
35020 REM ----------- 


35030 HGR2 : - YS + 1,SP) 
N= 5: 34070 GOSUB 20200 
M=5: 36080 NEXT X: 
YE. = 3 NEXT Y 
35040 XC = 6: 36090 RETURN 
GOSUB 20800 40000 TEXT : 
35050 XC = 15: y HOME de E 
GOSUB 20800 40010 IF PEEK (222) = 5 THEN PRINT " 
35060 XC = 24: OS DATOS NO EXISTEN": 
GOSUB 20800 END 
35070 YC = 15: E 


XC = 6: 

GOSUB 20800 
35080 XC = 15: 

GOSUB 20800 
35090 XC = 24: 


3 20800 
35100 AS = "COMPLETAR CON LA FIGURA COR 
A.” Ñ 


35110 X = 3: 
Y = 12: 
GOSUB 20300 
35120 A$ = "1": 
Y = 21: 
X= 8: 
GOSUB 20300 
35130 AS = "2": 
X= 17: 
GOSUB 20300 
35140 AS = "3": 
X = 26: 
GOSUB 20300 
35170 Y = 5: 
. X = 26: 
As o 
GOSUB 20300 
35180 RETURN a 
35500 REM == ————=----- 
35510 REM LECTURA SPRITE DISCO 
IO E A 
35530 FOR IS = IR TO IR +4 
33540 NR = IS: . 


GOSUB $200 
33550 X= 1: 
Y = 1: 
FOR 1 = 1 TO 73 STEP 3 
35560 CO = VAL ( MID$ (AA$,1,2)) 
35570 GT = VAL ( MID$ (AMAS, 1 
+ 2,11) 
33580 CO2(X Y 18 = IR +1) 00 
= CO 
35590 66% (X,Y,1S - IR +4) — 
= GT 
35600 


RIA A 
IF X > 5 THEN X= 1: 
35610 NEXT I: 

NEXT 


35620 NR = NR + 1: 
e GOSUB £200: 
KK = VAL (AA$) 


35630 
36000 REM =====-=--- 
36010 REM DIBUJA SPRITE 

36020 REM -———--==----- 
36030 FOR Y = YS TO YS + 4 
36040 FOR X= XS TO XS +4 


36050 CO = CCZ(X - XS + 1,Y 
= YO + 19071 
36060 BT = GGZ(X - XS + 1,Y 


Preguntas 


B$(+) 
LC(«) 
ND(») 


CX(«) 
CY (+) 


DX(+) 
DY (+) 


TF(») 


DS(») 
VOS$(+) 
BL$ 
PD$ 
AS$ 


NS$ 


HOS$ 
NUC 


DS 


AAS 
BAS$ 
BP$ 
cc 
DR$ 
FS 


Atributos 


AAS 
BS$(+) 
BAS 


RELACION DE LAS PRINCIPALES VARIABLES - APPLE 


= matriz de los buffers (1 por campo 
de introducción) 

=|longitud del campo de introduc- 
ción 

= número de decimales en el campo 
de introducción 


= coordenadas en pantalla del cam- 
po de introducción 


= coordenadas en pantalla de des- 
cripción 

= matriz numérica con los códigos 
ASCII de teclas de comando 

= descripciones en máscara video 

=voces del menú principal 

= blank 

= punto decimal 

= Carácter “—”; identifica campos de 
intr. alfanuméricos 

= Carácter “4”; identifica campos de 
intr. numéricos 

= borrado de pantalla 

= número de campos de intr. en la 
máscara video activada 

= número de descripciones en más- 
cara video 

= buffer del disco 

=80 blanks 

= CHR$(7) [emite un beep] 

= contador campos del data entry 

=unidad seleccionada 

= Código tecla función pulsada 


= buffer del disco 
= buffer del data entry 
=80 espacios 


BL$ 
BPS 
cc 
CX(+) 
CY(«) 
DS() 
DR$ 
DX(s) 
DY(+) 


Símbolos 
BAS 


AAS 
GT 


= blank 

= CHR$(7) [beep] 

= contador campos del data entry 
= coorden. X campos 

=coorden. Y campos 

= descripciones campos 

=unidad seleccionada 

= coordenadas X descripciones 

= coordenadas Y descripciones 

= código tecla función pulsada 

= longitud campos 

= longitud registro 

= nombre programa 

= número campos 

= número decimales 

= nombre fichero 

= códigos teclas función 

=tipos de campos 

= máx. núm. de registros del fichero 
= número del registro seleccionado 


=80 blanks 

= buffer del disco 

=número juego caracteres selec- 
cionado 

= nombre fichero 

= longitud registro 

= número del registro seleccionado 

= número del test seleccionado 

=códigos carácter usados en di- 
bujo HI-RES 

= Códigos juegos de caracteres del 
dibujo 

= número de registros del fichero 

= coordenadas X del sprite (dibujo) 

= coordenadas Y del sprite (dibujo) 

= Código carácter HI-RES a imprimir 


Test 


: lógica y leyes asociativas/Versión Philips VG 8010 


Puntuación-Generación 


10 
20 
25 
27 
30 


REM TEST con PUNTUACION 
REM generacion 
REM VERSION MSX 
REAIAÁAáÁáÁAA AAA AA 2 , 
KEY -OFF:KEY 1,CHR$(15):KEY 2,CHR$(16) :KEY 3,CHR$(17):KEY 4,CHR$(19) :KEYS,CHR$(20) : WIDTH 40:C 
: CLEARS000 
DIM TF (15),TF(20),LC(20),ND(20),CX(20),CY(20),DX (20),DY (20) 
DIM B$(20),D$(20),TS$(20),RI$(10) 
REM CONSTANTES 
Al=1:A2=31:BP$="D8L3ODFB":NS$="=":AS$="-":PD$=", ":BL$=" " 
F$=CHR$ (1) +CHR$ (87) 
¿FOR I=0 TO 39:0$=0$+F$: NEXT 1 
SZ7=2:MI=1 





100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$ (32) 
110 HE$="CTRL Y (AYUDA) " 


115 H1$="E.G.S. 


Ediciones Forum, S.A." 
O REM CARGA VOCES 

O RESTORE 

O READ PROG$ 

O FOR I=1 TO 15 


200 READ TF(1) 


230 


O NEXT 1 





250 OPZ=1:GOSUB 7000 

260 GOSUB 2000: X=10: Y=8:GOSUB11000:PRINT"INTRODUCIR LOS DATOS: " 

270 GOSUB 3000 

280 IF FS<>5 THEN 260 

290 MX=VAL (B$(2)): IF MX>20 OR MX<1 THEN 2640 

300 CLS:X=6:Y=8:G0SUB11000:PRINT"Posicionar la cinta datos": Y=10:GOSUB11000:PRINT" y apretar REC 


y 
31 
ha 


32 


PLAY." 

O X=2:Y=21:GOSUB 11000:PRINT"NOTA: Dejar el grabador en esta": Y=22:GOSUB 11000:PRINT"posicion 
sta el fin del programa. ":X=6:Y=14:GOSUB 11000:PRINT"HECHO ? (pulsa una tecla)" 

O IF INKEY$="" THEN 320 


330 GOSUB 1000:0PEN"CAS: az "FOROUTPUTASH1 


33 


2 A$="":FORI=1T06:PRINTH 1, A$: NEXT: CLOSER1: REM espacio cinta 


335 OPEN"CAS: INIZ"FOROUTPUTASH1 


34 


O A$=B$(1)+B$(2) :PRINTH1,A$: CLOSER 


350 FOR JK=1 TO MX: REM bucle principal 


36 


0 OPZ=2:G0OSUB7000 


380 FOR JJ=0 TO 1:GOSUB 2000 


39 


400 X=7:Y= 


O IF JJ=0 THEN Tó$=" (Primera" ELSE T$="(Segunda" 
:GOSUB 11000:PRINT"INTRODUCIR LA PREGUNTA N. "3 JK 





410 X=12:Y=8:GOSUB11000:PRINTTS¿" parte)" 
220 GOSUB 3000 
430 IF FS=6 THEN 380 ELSE IF FS=7 THEN 230 
440 FOR I=1 TO 10 
450 IF LEFTS(P$(1),20)=SPACE$ (20) THEN B$(1)="" 
460 TS$(1+JIJH10)=BS(1) ¿NEXT 1 * 
500 NEXT JJ 
510 0PZ=3:60SUB7000 
20 GOSUB 2000 
530 X=7:Y=6:G0SUB11000:PRINT"RESFUESTAS A LA PREGUNTA N. "¿JK 
535 X=2:=8:60SUB11000:PRINT"Respuesta Puntos"; 
540 GOSUB 3000 
550 IF FS=6 THEN 520 ELSE 1F FS=7 THEN 230 
560 A=0:FOR I=1 TO 19 STEP2:A=A+1 


S 1F LEFT$(B$(1),20)=SPACES (20) THEN BSD) ="":BS (Ie) ="" 


570 RI$(A)=B$(1)+B$(1+1) : NEXTI 
600 REM grabacion 

605 GOSUB 1000 

610 OPEN"CAS: PRE"FOROUTPUTASH1 
$20 FOR I=1 TO 20:PRINTH1,TS$ (1) 
630 NEXT I:CLOSER1 E 


$4 


O OPEN"CAS: RES"FORQUTPUTAS41 


650 FORI=1T010:PRINTH1,RI$1I) 


56 
67 


O NEXTI:CLOSEW1 
O NEXTIK 


700 OFPZ=4:GOSUB 7000 


710 
720 
730 
740 


750 
750 
770 
780 
800 
810 
815 
820 
830 
840 
850 
860 
900 
905 
910 
920 
930 
940 
950 
960 
970 
980 
1000 
1003 
1005 
1010 
1020 
1030 
2000 
2010 
2020 
2030 
2130 
2140 
2150 
2215 
2216 
$(1) 
2H5B 
2218 
2219 
2220 
2240 
2245 
2270 
2275 
2280 
2285 
2290 
2300 


GOSUB 2000: X=12 
FOR Y=10 TO 19:GOSUB 11000: Y$=STR$ (Y-9) 
PRINT RIGHTS (Y$,2)+": "¿NEXT Y 
X=4:Y=6:GOSUB 11000:PRINT"INTRODUCIR LAS GAMAS DE PUNTUACION": X=15: Y=8:GOSUB 11000:PRINT"MIN 
MAX" 
GOSUB 3000: 1F FS=6 THEN 710 
IFFS=7THEN230 
FOR I=1 TO 20: IF VAL (B$(1))<10 THEN B$(1)="0"+RIGHT$(B$(1),1) 
TS$(1)=B$(1):NEXT 1 
OPZ=3:GOSUB 7000: DY (3) =DY (3) -2 
J=0:FOR JK=1 TO 19 STEF2: bbi=bbH+1 
IF TS$(JK)="0=" DR TS$(JK)="0 " THEN RI$(WbW)="":GOTO 860 
B$(1)=TS$(JK):B$(2)=TS$(JK+1) 
GOSUB 2000:GOSUB 3000 
IF FS=6 THEN 830 ELSE IF FS=7 THEN 230 
RIS (WW)=B$ (3) +B$ (4) +B$ (5) 
NEXT JK 
REM GRABACION 
GOSUB 1000 
OPEN"CAS: FA"FOROUTFUTASH1 
FOR I=1 TO 20:PRINTH1,TS$(I): NEXT 1 
CLOSE+1 
OPEN"CAS: DI"FOROUTPUTASH1 
FOR I=1 TO 10:PRINTH1,RI$(1):NEXT 1 
CLOSE+$1 
CLS:X=12:Y=11:GOSUB 11000:PRINT"FIN PROGRAMA": Y=20:GOSUB 11000 
END 
REN_———--= 
REM ESPERAR 
REM 









CLS: X=15: Y=11:GOSUR 11000 
PRINT"ESPERAR" 
RETURN 

REM nenas 

REM PRESENTA MASCARA 

REN —— os 

CLS: COLOR4, 7 


L=LEN (PROG$) 
FM=(38-L) /2: FM$=SPACE$ (FM) 
X=1:Y=0: GOSUB11000: PRINTH1$; 
:GOSUB 11000:PRINT FMé;"Í"; PROGS: "|"; FMS:G8$=CHRS (1) +CHR$ (2457) : X=FM: Y=2 
GOSUB 11000: G8$=CHR$ (1) +CHR$ (1H37): FOR J=1 TO(L-1):G9$=G8$+CHR$ (1) +CHR$ (8HI7) : NEXT: PRINTCHR 
¿CHR$ (2H58) ;69$; CHR$ (1) : CHR$ (2H59) : Y=4: GOSUB 11000: PRINTCHR$ (1) ¿ CHR$ (RHSA) ¿68$; CHR$ (1) ¿CHRS ( 
) 
Y=21:X=0:G0SUB 11000:PRINT 0$ 
=22:X=235:GOSUB 11000 
PRINT HES 
FOR J=1 TO NUC 
As$= “" 
X=DX (J):Y=DY(J):GOSUB 11000:PRINT D$(J) 
IF TP(J)<>5 AND TP(J)<>4 THEN 2290 
X=CX (3): Y=CY (J):GOSUB 11000 
PRINT B$(J):GOTO 2420 
Ni=LC(J):N2=ND(J): 1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 
C$=AS$ 





2310 A$=STRING$ (N1-N2-1,C$) 


2320 
2330 
2340 
23350 
2360 
2380 


IF N2=0 THEN A$= A$+C$:GODTO 2350 
A$=A$+PD$ 

FOR I=1 TO N2:A$=A$+C$:NEXT 1 
X=CX (J) : Y=CY (J):GOSUB 11000 
PRINT As 

B$(J)= SPACES (Ni-N2-1) 


2410 B$(J)= B$(J)+RIGHTS (A$,N2+1) 


2420 


NEXT J 


2430 RETURN 


3000 


REM === 


3010 REM DATA ENTRY 

3020 REM_---------- 

3030 J=1 

3040 NC=J: X=CX (NC) : Y=CY (NC) 
3050 CC=1 


3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 


GOSUB 3240 

IF FS=0 THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

J=3+1:1F J>NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 - 
IF J>1 THEN J=J-1:GOTO 3040 

PLAY BP$ :FS=0:J=NUC:GOTO 3040 

IF J< NUC THEN J=J+1:GOTO 3040 
PLAY BP$:FS=0:GOTO 3030 

IF CC<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 









3180 PLAY BP$:FS=0:GOTO 3100 

3190 1F CC>1 THEN S=-1:CC=CC-1:X=X-1:GOSUB 11000:GOTO 3040 
3200 PLAY BP$:FS=0:GOTO 3040 

3210 IF FS>8 THEN FS=0:GOTO 3050 

3220 IF FS=8 THEN FS=0:GOTO 3100 

3230 RETURN 

SMN 

3250 REM LECTURA DE UN CAMPO 

SLI 

3270 FS=0 

3280 IF TP(NC)=4 THEN RETURN 

3300 IF MID$(B$(NC),CC,1)=PD$ANDTP (NC)<>3 THEN X=X+S:CC=CC+S 
3310 GOSUB 11000 z 

3320 AS=INKEYS: IF A$= ""ORA$="," THEN PRINT"M'; :GOSUB11000:PRINTMIDS (BS (NC),CC,1);:G0SUB11000: 6 
0TO3320 

3330 CA=ASC(A$): IF CA > A2 THEN 3380 


3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3440 
3520 
3530 
3540 
3350 
3560 
3570 
3580 
3590 
3620 
3630 
3640 
3650 
3660 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 


FOR I=1 TO 15 

IF TF(I)= CA THEN FS = Il: GOSUB 3630: RETURN 
NEXT 1 

GOTO 3320 

IF TP(NC)<>1 THEN 3440 

IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
PLAY BP$:GOTO 3320 

IF CA <> 46 THEN 3440 

GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3520 

IF CC=LC(NC) THEN RETURN 
CC=CC+1:X=X+1:GOTO 3300 

A 

REM TRANSFERENCIA AL BUFFER 

REN is 

IF CC=1 THEN SN$= "":GOTO 3570 
SN$=LEFTS (B$ (NC) ,CC-1) 

IF CC=LC(NC) THEN DS$="":GOTO 3590 
=LC(NC)-CC:DS$=RIGHTS$ (B$(NC),N) 

B$ (NC) =SN$+A$+DS$ 

PRINT 91 TA 

Res 
REM ComaNDos 

REN 

IF FS>S5 THEN 3690 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 
IF FS=8 THEN GOSUB 4080:RETURN 

IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

REN 

REM INSERCION 

REM. ains 

IF CC=LC(NC) THEN PLAY BP$: RETURN 
IF CC=1 THEN SN$= ""*GOTO 3800 
SN$=LEFT$ (B$ (NC), CC-1) 

N=LC (NC)-CC+1:DS$=RIGHT$ (B$(NC),N) 
IF TF(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
C$=BL$ 

A$=SN$ +C$+DS$ 
B$(NC)=LEFTS$(A$,LC(NC)) 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 
X=XX: Y=YY 

PRINT B$(NC):S=-1 

IF RIGHTS (B$(NC),1)= PD$ THEN 3780 
RETURN 

REA 

REM BORRADO 









3930 
3940 
3950 
3960 
3970 
3980 


4000 
4010 


4030 


REMAASSS 

IF TP(NC)<>1 THEN 3960 

IF MID$ (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN PRINT BP$: RETURN 

IF CC=LC(NC) THEN DS$= "": GOTO 4000 
N=LC(NC) —CC:DS$ =RIGHT$ (B$(NC),N) 
IF CC=1 THEN SN$= "": GOTO 4010 
SN$=LEFT$  (B$(NC),CC-1) 

IF TP(NC) = 1 OR TP(NC)=2 THEN C$=NS$:GOTO 4030 
C$=AS$ 

B$(NC)= SN$ +DS$ +C$ 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) : GOSUB 11000 

X=XX: Y=YY 

PRINT B$(NC);:S=1:RETURN 
REA 

REM ALINEADOS 

REN. ======== 

IF LC(NC) =1 THEN RETURN 

N1=LC (NC) -CC+1 

IF CC=1 THEN B$(NC) = "":GOTO 4150 
B$(NC)= LEFT$ (B$(NC),CC-1) 

IF TP(NC) =1 OR TP(NC)=2 THEN 4200 
FOR I=1 TO Ni 

B$ (NC)=B$ (NC) +BL$ 

NEXT 1 

GOTO 4240 

FOR I=1 TO Ni 

B$ (NC)=BL$ +B$ (NC) 

NEXT I 

IF RIGHTS (B$(NC)>,1) =PD$ THEN BS$(NC)= BL$ +LEFTS (B$(NC),LC(NC)-1) 
X=CX (NC) : Y=CY (NC) 

GOSUB 11000 

PRINT B$(NC) : RETURN 


REM CTRL. PUNTO 

MF A 

SWP = 0 

IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 
FOR I=1 TO LC(NC) 

IF MIDS(B$(NC),1,1)= PD$ THEN I = LC(NC): SlP=1: RETURN 
NEXT I: RETURN 

A 

REM LECTURA DE LOS DATOS 

REM nooo 

RESTORE 10080 

READ NV 

FOR 1 = 1 TO NV:READ NUC(I),OR(I) 
NEXT 1 

NUC=NUC (0PZ) 

FOR K=0 TO OR(OPZ)-1 

ON OPZ GOSUB 7200,7210,7220,7230,7240 
FOR I=1 TO NUC 

READ D$(I+k) 

NEXT 1 

FOR I= 1+KX*NUC TO NUC+KXNUC 

READ TP(I),LC(1),ND(1),DX(1),CX(1),CY (1) 
CY (1) =CY (1) +K:DY (1)=CY (1) 

NEXT I,K 

NUC=NUC*OR (0PZ) 

RETURN 

RESTORE 10100: RETURN 

RESTORE 10160: RETURN 

RESTORE 10210:RETURN 

RESTORE 10270: RETURN 

RESTORE 10300: RETURN 


10030 DATA " TES T (generacion) " 

10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
10080 DATA S 

10090 DATA 2,1,1,10,2,10,2,10,5,1 

10100 DATA "Sigla del test","Numero de preguntas" 
10110 DATA 3,2,0,8,28,12 

10120 DATA 1,2,0,8,28,15 

10160 DATA " ",3,30,0,4,4,10 

10210 DATA " "," " 

10220 DATA 3,30,0,2,2,10 


10230 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
11000 
11010 
11020 
11030 
11040 
13000 
13010 
13020 
13050 
13055 
13060 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13212 
13215 
13220 
13230 
13300 
13600 
13605 
13610 
13620 


DATA 1,2,0,35,33,10 

DATA roo 

DATA 1,2,0,16,16,10 

DATA 1,2,0,26,26,10 

DATA "Puntuacion", "-", "RESULTADO: "," "," " 

DATA 4,2,0,6,16,8 

DATA 4,2,0,19,21,8 a 

DATA 3,27,0,11,6,16 

DATA 3,27,0,0,6,17 

DATA 3,27,0,0,6,18 

REM ———————— 

REM POSICIONA CURSOR 

RA 

LOCATE X,Y 

RETURN 

REM _----- 

REM AYUDA 

REM --—- 

LOCATE 0,22 

PRINT "AYUDA (barra espaciadora para continuar)"; 
GOSUB 13400 

PRINT "FLECHAS: mueven en las 4 direcciones ”s 
GOSUB 13600 

PRINT "RETURN: alinea y convalida introduccion "; 
GOSUB 13400 

PRINT "Fi: anula y recomienza el programa : 
GOSUB 13400 

PRINT "F2: anula toda la introduccion Ns 
GOSUB 13600 

PRINT "F3: borra un caracter ; 
GOSUB 13400 

PRINT "F4: permite la insercion de espacios : 
GOSUB 13600 

PRINT "FS: graba toda la introduccion es 
GOSUB 13400 

PRINT " CTRL Y (AYUDA) "; 
RETURN 

A$=INKEYS: IF A$= "" THEN 13600 

IF A$<> CHR$(32) THEN 13600 

LOCATE 0,22 

RETURN — 





Puntuación-Uso 


A 

20 REM TEST con PUNTUACION 

25 REM uso 

26 REM Version MSX 

A 

31 MAXFILES=2 

32  SCREEN2:COLOR4, 15,7: CLS: CLEAR 3000 

33 OFEN"GRP: "FOROUTPUTAS+1 

35 KEY OFF 

50 DIM TS$(20),RI$(10) 

70 BP$="05L32DFB" 

73. F$=CHR$(1)+CHR$187) 

77 Q$="":FOR I=1 TO 32:0$=06+F$: NEXT 1 

110 HE$="CTRL Y (AYUDA) " 

115 Hi$="E.G.S. Ediciones Forum, S.A."+0$ 
120 REM CARGA VOCES 

130 RESTORE 

140 READ FROG$ 

210 REM 

218 REM ==== 

220 REM MAIN 

230 REM ---- 

232 REM 

233 GOSUB2000 

235 X=2:Y=8:G0SUB 11000:PRINTH1,"Posicionar la cinta datos":K=6:X=7:Y=11:GOSUB 11100:PRINTH1,"y 
apretar FLAY." 






4 





250 IF INKEY$="" THEN 250 

260 GOSUB 1000 

270 OPEN"CAS: INIZ"FORINPUTASH2 

280 INFUTR2, A$: MX=VAL (MID$ (A$,3,2)) 
290 CLOSER2 

300 CLS:GOSUB 2000: X=4:Y=9:K=1:60SUB11100:PRINTH1, "Esta cinta contiene": X=10:Y=11:G0SUB11000:PRI 


GOSUB 11100:PRINTH1, "Hecho ? (pulsar una tecla)" 
:Y=20:GOSUB 11100:PRINTH1,"NOTA:dejar PLAY apretado 


durante todo el progr 


NTH1 
310 
320 
350 
340 
370 
380 
390 
400 
410 
420 
440 
450 


460 X 


470 


640 


5670 
680 


,"el te "¡LEFTS(A$,2) - 

X=8: =3:G0SUB 11100:PRINTH1,"FULSA UNA TECLA": PLAYBP++BP$ 
IFINKEY$=""THEN320 

REM PRINCIPIO BUCLE 

FOR JK=1 TO MX:GOSUB 1000 

OPEN"CAS: PRE"FORINPUTASH2 

FOR I=1 TO 20: INPUT42, TS$(1): NEXT 

CLOSER2 

OPEN"CAS: RES"FORINPUTAS$2 

FORI=1T010: INPUT42,RI$(1):NEXT 

CLOSERZ 

CLS:K=6:X=8: Y=.5:GOSUB 11100:PRINTH1, "HE AHI EL TEST:" 

TO 21:X=1:K=4:GOSUB 11100:PRINTH 1, TS$(Y-1) : NEXT 
K=1:60SUB11100:FRINT+1, "pulsar una tecla":PLAYBP$ 

IF INKEYS="" THEN 470 

CLS: GOSUB2000: X=4: Y=7:K=5: GOSUB11100:PRINT4H1, "ELEGIR LA SOLUCION: " 
FOR Y=9 TO 18:IF MID$(RI$(Y-8),31,4)="" THEN 495 
X=.3:K=4:G0SUB11100: PRINT4H1 , RIGHTS (STR$(Y-9),1)5") "¡LEFTS(RI$(Y-8),30) 
NEXT 

X=10:Y=22:K=6:G0SUB 11100:PRINTH1, "Cual ? _":PLAYBF$ , 
I$=INKEY$: 1F I$="" OR I$<CHR$(48) OR I$>CHR$(57) THEN S10 ELSE P=1+VAL(1$) 
IF MIDS(RIS$(P),31,4)="" THEN 510 

PP=PP+VAL (MIDS (RIS(P),31,4)) 

NEXT JK 

GOSUB 1000 

OPEN"CAS: FA"FORINPUTASH2 

FOR I=1 TO 20: INPUTH2, TS$(1):NEXT 

CLOSER$2 

OPEN"CAS: DI"FORINPUTAS$+2 

FOR I=1 TO 10: INPUT42,R1I$(1): NEXT 

CLOSER2 

A=0:FOR I=1 TO 19 STEP2:A=A+1 

MI (A)=VAL (TS$(1)):MX (A) =VAL (TS$(1+1)):NEXT 

FOR IJ=1 TO 10 

IF MX(1J)=0 THEN £70 

IF PP>=MI (13) ANDPP<=MX (13) THEN 700 

NEXT 1J 

CLS: X=1:Y=9:K=6:G60SUB11100:PRINT41, "SE HA COMETIDO UN ERROR": Y=11:GOSUB 11000:PRINTH1, "EN LA 












FASE DE GENERACION; ":Y=13:K=2:G0SUB11100:PRINTH1, "EL RESULTADO DEL TEST NO PUEDE PRESENTARSE. " 


690 
700 
710 
720 
730 
740 
750 
760 
1000 
1003 
1005 
1010 
1020 
2000 
2010 
2020 
2130 
2140 
2150 
2215 
2216 
2217 


IF INKEYS="" THEN 690 ELSE END 

CLS:GOSUB 2000 

X=8: Y=9:K=4:GOSUB 11100:PRINTH1, "RESULTADO: ":K=6 
A=1:FOR Y=12 TO 16 STEP2 

X=2. 5: G0SUB11100:PRINTH1,MIDS (RI$(IJ),A,27):A=A+27 
NEXT Y 
X=8:Y=2 
GOTOS590 
REM 

REM ESPERAR 

REM ------- 

CLS:COLORA, 15:PRESET(S5,90):PRINTR1,"E S PE RAR" 
RETURN 








K=1:G0SUB11100:PRINT+1,"PULSA UNA TECLA":PLAYBP$+BF$, "D4L 164BBBOSDDD" 


REM PRESENTA MASCARA 

REM A A 

L=LEN (PROG$) 

FM=(32-L) /2: FM$=SPACES (FM) 

X=1:Y=.5:K=2:GOSUB 11100:PRINTH1,H1$;: COLOR1 

GOSUB 11000: L INE ( (FM-1)18,26)-((32-FM) K8, 43),7,BF 
Y=4:X=0:GOSUB 11000:PRINTH1, FMS;PROG$;FM$: X=FM: Y=3 
RETURN 


10030 DATA "TEST uso" 
RARAS — 
11010 REM POSICIONA CURSOR 
A AAA 
11030 PRESET (X18, Y18) 
11040 RETURN 

11100: REN: =——___—_—_ == 
11110 REM POS. CURSOR COLOR 
11120 EM _ —_—_————_—_—_=—= 
11130 PRESET (X18, Y48) 
111335 COLORK 

11140 RETURN 


Atributos-Generación 


DARE A 
20 REMTEST con ATRIBUTOS 
23 REM generacion 


27 REM Version MSX EL NUMERO MAXIMO DE ELEMENTOS ("¿M3:")":PLAYBP$: FORI=1T02000: NEXT: GOTOG600 




















e 590 IF 18<>"n" AND 1$<>"N" THEN 585 
35 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16):KEY 3,CHR$(17):KEY 4,CHR$(19) :KEYS.,CHR$ (20) :WIDTH 40:0 $00 REM grabacion 

LS: CLEAR10000 505 T$="REC y PLAY": GOSUB90O 

40 DIM TF(15),TF(20),LC(20),ND(20) ,CX (20) ,CY(20),DX (20) ,DY (20) £10 OPEN"CAS:AZ"FORDUTPUTASH1 

47 M3=100 £20 A$=""¿FOR I=1 TO 6:PRINTH1.AS 

SO DIM B$(20),D$(20) ,AT$(10),EL$ (M3) 630 NEXT I:CLOSER1:REM espacio cinta 

60 REM CONSTANTES £40 OPEN"CAS:ATT"FOROUTPUTAS$ 1 

70 Al=1:A2=31:BP$="D6LJODFB":NS$="=":AS$="-":PD$=", "¿BL$=" " $45 PRINTH1,NTS 

73 F$=CHR$(1)+CHR$ (87) 650 FORI=1T010:PRINTRH1,AT$ (1): NEXT: CLOSER1 

77 0$="":FOR I=0 TO 39:0$=08+F$: NEXT 1 $60 OPEN"CAS:EL"FOROUTPUTASH1 

80 S2=2:MI=1 665 PRINTH1,STRS(JJ) 

100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIUS$=CHR$ (32) 670 FOR I=1 TO JJ:PRINTH1,EL$(1): NEXT: CLOSER1 

110 HE$="CTRL Y (AYUDA) " 700 CLS:X=12:Y=11:GOSUB 11000:PRINT"FIN PROGRAMA": Y=20:GOSUB 11000 
115 H1$="E.G.S Ediciones Forum,S.A." 710 END 

120 REM CARGA VOCES 900 REM FOSICIONA CINTA 

130 RESTORE 910 CLS:X=7:Y=9:GOSUB 11000:PRINT"Fosicionar la cinta datos": Y=11:G0SUB 11000:PRINT"y apretar "; 
140 READ FROG$ T$:Y=15:G0SUB11000:PRINT"HECHO ? (pulse una tecla)" 

190 FOR I=1 TO 15 930 IF INKEY$=""THEN 930 

200 READ TF (1) 1000 REM ESPERAR 

210 NEXT 1 1010 CLS:X=13:Y=11:GOSUB11000 

219 REM ===-==-- 1020 PRINT'ESPERAR" 

220 REMMA IN 1030 RETURN 

230 REM === 2000 

240 REM 2010 

250 0P2=1:GOSUB 7000 2020 

260 GOSUB 2000 2030 

270 GOSUB 3000 2130 L=LEN(PROGS) 

280 IF FS<>5 THEN 260 2140 FM=(38-L) /2: FM$=SPACES (FM) 

290 NT4=B3(1) 2150 X=1:Y=0:GOSUB11000: PRINTH1$: 

300 X=0:Y=11:G0SUB 305 2215 Y=3:X=0:GOSUB 11000:PRINT FM$;" luz PROG$; "|"; FM$:G8$="-": X=FM: Y=2 
302 Y=21:G0SUB305 2216 GOSUB 11000:G8$="-":FOR J=1 TO (L-1):68$=G9$+"-" NEXT: PRINTCHR$ (1) ¿ CHR$ (258) ¡ G8$; CHR$ (1) ;C 
303 Y=22:G09UE3OS: GOTO310 HRS (2459) : Y=4: GOSUB 11000: PRINTCHR$ (1) :CHR$ (HSA) ;G8$; CHR$ (1) ¿CHR$ (LHSE) y 
305 GOSUB11000:PRINTSPACES (40) ; : RETURN 2218 Y=21:X=0:GOSUB 11000:PRINT 0$ 

310 X=8:Y=9:GOSUB11000:PRINT"1) Introduccion nuevo test. ":Y=11:GOSUB11000:PRINT"2) Correccion te 2219 Y=22:X=25:GOSUB 11000 
st.":X=11:Y=16:GOSUB11000:FPRINT"CUAL ? (1 0 2)" 2220 PRINT HES 

320 I$=INKEYS: IF 1$<>"2" AND 1$<>"1" THEN 320 2240 FOR J=1 TO NUC 

325 W7=VAL (1%) 2245 As= "" 

327 1F W7=1 THEN 3640 2270 X=DX(J):Y=DY(J):G0SUB 11000:PRINT D$(J) 

330 T$=" PLAY": GOSUE9IOO 2273 IFTP(J)<>SANDTP (J)<>4THEN2290 

333 OPEN"CAS:ATT"FORINPUTASH1 2280 X=CX(J):Y=CY (J): GOSUB11000 

340 INPUTH1,NN$ 2285 PRINTBS (J) :GOTO2420 

342 IF NN$<)NT$ THEN CLS:X=7:Y=10:G0SUB11000:PRINT"ERROR: el nombre del test":Y=12:GOSUB 11000:P 2290 Ni=LC(J):N2=ND(J):1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 
RINT"contenido en la cinta es "¿NNS:PLAYBP$:CLOSEM1:FOR I=1 TO 2000:NEXT:GOTO 230 2300 C$=AS$ 

345 FOR I=1 TO 10: INFUTH1,AT$(1) :NEXTI:CLOSEMI 2310 A$=STRING$ (N1-N2-1,C$) 

350 OPEN"CAS:EL"FORINPUTASH1 2320 IF N2=0 THEN A$= A$+C$:GOTO 2350 

353 INPUTH1,A$:H=VAL (AS) 2330 A$=A$+PD$ 

355 FOR I=1 TO H: INPUTH1,EL$ (1): NEXT: CLOSEMA 2340 FOR I=1 TO N2:A$=A$+C$:NEXT 1 

360 0PZ=2:G0SUB 7000 2350 X=CX(J):Y=CY(J):GOSUB 11000 

370 1F W7=2 THEN FOR I=1 TO 10:TP(1)=S:BS(1)=AT$(1):NEXT 2360 PRINT As 

380 GOSUB 2000 2380 B$(J)= SPACES (N1-N2-1) 

400 X=7:Y=6:GOSUB 11000:PRINT"INTRODUCIR LOS ATRIBUTOS" 2410 B$(J)= ES(J)+RIGHTS (AS,N2+1) 

410 FOR Y=10 TO 19:X=2:GOSUB 11000: PRINTRIGHTS(STR$(Y-9),2);") "¿NEXT Y 2420 NEXT J 

420 GOSUB 3000 2430 RETURN 

430 IF FS=ó THEN 380 ELSE 1F FS=7 THEN 230 SOMA 

440 FOR I=1 TO 10 3010 REM DATA ENTRY 

450 IF LEFT$(B$(1),20)=SPACE$(20) THEN B$(1)="" 3020 REM —————--- 

460 ATS(1)=BS(1):NEXTI 3030 J=1 

510 0P2=3: GOSUB7000 3040 NC=J: X=CX (NC) : Y=C Y (NC) 

520 D$(1)="Elemento: ":TP(1)=3:LC(1)=20:DX(1)=6:CX(1)=16:DY(1)=9:0Y(1)=9 3050 CC=1 

523 FOR JJ=1 TO M3:REM bucle elementos 3050 GOSUB 3240 

525 IF 417=2 THEN FOR I=1 TO 11:TP(1)=S:NEXT ELSE 530 3070 IF FS=0 THEN 3100 

527 B$(1)=LEFTS(EL$(JJ),20): FOR 1=2 TO 11:B$(1)=MID$(EL$(JJ),1+19,1):NEXT 3080 1F FS>4 THEN 3210 

530 GOSUB 2000 3090 GOTO 3120 

531 IF JI<10 THEN X=2 ELSE X=1 3100 J=J+1:1F J>NUC THEN 3030 

532 Y=9:GOSUB 11000:PRINT STR$(JJ);CHR$(2HF8) 3110 GOTO 3040 

535 FORY=11T020: X=14:GOSUB11000: IFY=11THENPRINTCHRS (1) ; CHR$ (2H58) ; CHAS (1) 5CHR$ (LHS7);" "¡ELSEIFY 3120 ON FS GOTO 3130.3150,3170,3190 
=20THENPRINTCHRS (1) 3 CHR$ (EHSA) ¡ CHR$ (1) ;CHR$(2H57)3" "¡ELSEIFY=1STHENX=2: GOSUB11000:PRINT"Indicad 3130 1F J>1 THEN J=J-1:G0TO 3040 

ores: "¿CHR$(1);CHR$(8H53)3" "¡ELSE PRINT" | "; 3140 PLAY BP$ :FS=0:J=NUC:GOTO 3040 

537 PRINTRIGHTS(STR$(Y-10),2)3"") "¿NEXTY 3150 IF J< NUC THEN J=J+1:GOTO 3040 

540 X=1:Y=6:G0SUB11000:PRINT"INTRODUCCION ELEMENTOS E INDICADORES" 3160 PLAY BP$:FS=0:GOTO 3030 

545 GOSUB 3000 3170 1F CC<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 
550 IF FS=6 THEN 530 ELSE IF FS=7 THEN 230 3180 PLAY BP$:FS=0:GOTO 3100 

555 FOR 1=2 TO 11:1F B$(1)>"1" THEN BS(1)="0" 3190 CC=CC-1:X=X-1:G0SUB 11000:G0TO 3060 
556 NEXT 1 3200 PLAY BP$:FS=0:GOTO 3040 

560 EL$(JJ)=""*FOR I=1 TO 11 3210 IF FS>8 THEN FS=0:GOTO 3060 

570 EL$(JJ)=EL$(J3)+B8 (1) :NEXTI 3220 IF FS=8 THEN FS=0:GOTO 3100 

580 CLS:X=8:Y=10:GOSUB 11000:PRINT"Dtro elemento ? (S o N)" 3230 RETURN 





585 I$=INKEY$: IFI$="s" OR 1$="S"THENNEXTIJ:JJ=JJ-1:CLS: X=3: Y=11:60SUB11000:PRINT"SE HA ALCANZADO SAN 


3250 REM LECTURA DE UN CAMPO 
3260 REM 


3270 
3280 
3290 


3300 IF MID$(B$(NC),CC, 1)=PD$ANDTP (NC)<>3 THEN X=X+S: CC=CC+S 


3310 
3320 


FS=0 
IF TP(NC)=4 THEN RETURN 
IF TF(NC)=2 THEN GOSUB 9000: RETURN 


GOSUB 11000 
A$=INKEYS: IF A$= ""ORA$="," THEN PRINT"M 





0TO3320 


3330 
3340 
3350 
3340 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3320 
3330 
35940 
3550 
3360 
3570 
3580 
3590 
3620 
3630 
3640 
3650 
3660 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3730 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 


CA=ASC(A$): IF CA > A2 THEN 3380 

FOR I=1 TO 15 

IF TF(I)= CA THEN FS = 1: GOSUB 34630: RETURN 
NEXT I 

GOTO 3320 

IF TP(NC)<>1 THEN 3440 


IF CA=43 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 


PLAY BP$:GOTO 3320 

IF CA <> 46 THEN 3440 
GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3520 

IF CC=LC(NC) THEN RETURN 
CC=CC+1:X=X+1: GOTO 3300 





E nm cnn remo 
REM TRANSFERENCIA AL BUFFER 
REM == 

IF CC=1 THEN SN$= "":GODTO 3570 


SN$=LEFTS (B$ (NC) ,CC-1) 

IF CC=LC(NC) THEN DS$= "":GOTO 3590 
N=LC(NC)-CC: DS$=RIGHTS (B$(NC),N) 
BS (NC) =SN$+A$+DS$ 

PRINT A$: RETURN 

REM --- 
REM COMANDOS 

REM 

IF FS>5 THEN 3690 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 
IF FS=8 THEN GOSUB 4080:RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

REM 

REM INSERCION 

REM -- 
IF CC=LC(NC) THEN PLAY BP$: RETURN 

IF CC=1 THEN SN$= "":GOTO 3800 
SN$=LEFTS (BS (NC), CC-1) 
N=LC(NC)-CC+1:DS$=RIGHTS (BS (NC),N) 

IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
C$=BL$ 

A$=SN$ +C$+DS$ 

BS (NC)=LEFTS (A$,LC(NC)) 









XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 
X=XX: Y=YY 

PRINT B$(NC):S=-1 


IF RIGHT$(B$(NC),1)= PD$ THEN 3780 
RETURN 

REM === 

REM BORRADO 

REM === 

IF TP(NC)<>1 THEN 3960 

IF MID$ (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN PRINT BP$: RETURN 

IF CC=LC(NC) THEN DS$= "": GOTO 4000 
N=LC(NC) -CC:DS$ =RIGHT$ (B$(NC),N) 
IF CC=1 THEN SN$= "": GOTO 4010 
SN$=LEFT$  (B$(NC),CC-1) 

IF TP(NC) = 1 OR TF(NC)=2 THEN C$=MS$:GOTO 4030 
C$=AS$ 

B$(NC)= SN$ +DS$ +C$ 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 

X=XX: Y=YY 

PRINT B$ (NC); :S=1: RETURN 

PE 

REM ALINEADOS 

AS 


:GOSUB1 1000: PRINTMID$ (B$ (NC) ,CC, 1) ; :GOSUB11000:G 


4110 
4120 
4130 
4140 
4150 
4150 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7065 
7070 
7071 
7072 
7074 
7076 
7080 
7090 
7100 
7110 
7115 
7120 
7200 
7210 
7220 


IF LC(NC) =1 THEN RETURN 

Ni=LC (NC) —CC+1 

IF CC=1 THEN BS$(NC) = "":z GOTO 4150 
B$(NC)= LEFT$ (B$(NC),CC-1) 

IF TPINC) =1 OR TP(NC)=2 THEN 4200 
FOR I=1 TO Ni 

B$ (NC)=B$ (NC) +BL$ 

NEXT 1 

GOTO 4240 - 
FORI=1 TO Ni 

B$(NC)=BL$ +B$ (NC) 

NEXT 1 

IF RIGHT$ (B$(NC),1) =PD$ THEN B$(NC)= BL$ +LEFT$ (B$(NC),LC(NC)-1) 
X=CX (NC) : Y=CY (NC) 

GOSUB 11000 

PRINT B$ (NC): RETURN 

REA -—————= 

REM CTRL. PUNTO 


SsWP = 0 

IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 
FOR I=1 TO LC(NC) 

IF MIDS$(B$(NC),1,1)= PD$ THEN I = LC(NC): SWP=1: RETURN 
NEXT 1: RETURN 

A 

REM LECTURA DE LOS DATOS 

REM A A A AA 

RESTORE 10080 

READ NV 

FOR 1 = 1 TO NV:READ NUC(I),OR(I) 

NEXT 1 

NUC=NUC (0PZ) 

FORK=0TOQR (0PZ) -1 

ON OPZ GOSUB 7200,7210,7220 

FOR I=1 TO NUC 

READ DS (I+K) 

NEXT 1 

FOR I= 1+KXNUC TO NUC+KXNUC 

READ TP(1),LC(1),ND(1),DX(1),CX(1),CY(1) 
CY (1) =CY (1)+K: DY (1)=CY (1) 

NEXT I,K 

NUC=NUCXOR (0PZ) 

RETURN 

RESTORE 10100: RETURN 

RESTORE 10160: RETURN 

RESTORE 10210:RETURN 


10000 REM ----- 

10010 REM DATOS 

10020 REM —--- 

10030 DATA "TESTS con ATRIBUTOS (generacion) " 

10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
10080 DATA 3 

10090 DATA 1,1,1,10,1,11 

10100 DATA "Introducir la sigla del test" 

10120 DATA 3,2,0,2,31,11 

10160 DATA " ",3,30,0,6,6,10 

10210 DATA " " 

10220 DATA 1,1,0,21,21,10 

TORN: == ASS 

11010 REM POSICIONA CURSOR 

TU RE o nds 

11030 LOCATE X,Y 

11040 RETURN 

13000 REM —--- 

13010 REM AYUDA 

13020 REM ----- 

13050 LOCATE 0,22 

13053 PRINT "AYUDA (barra espaciadora para continuar)"; 
13060 GOSUB 13400 

13110 FRINT "FLECHAS: mueven en las 4 direcciones “ 
13120 GOSUB 13400 

13130 PRINT "RETURN: alinea y convalida introduccion "; 
13140 GOSUB 13400 


13150 PRINT "Fi: anula y recomieza el programa 7 
13160 GOSUB 13400 
13170 FRINT "F2: anula toda la introduccion eS 


13180 GOSUB 13400 
13190 PRINT "F3: borra un caracter .s 
13200 GOSUB 136400 


13210 PRINT "F4: permite la insercion de espacios ”s 
13212 GOSUB 13600 
13215 PRINT "FS: graba toda la introduccion e 


3220 GOSUB 13400 

13230 PRINT " 

13300 RETURN 

13600 A$=INKEY$: IF A$= "" THEN 13600 
13605 IF A$<> CHR$(32) THEN 13400 
13610 LOCATE 0,22 

13620 RETURN 


CTRL Y (AYUDA) 3 


Atributos-Uso 


ATREA AA 

20 REM TEST con atributos 

25 REM uso 

27 REM Version MSX 

SRA 

32 MAXFILES=2: SCREEN2:COLOR4,15,7:CLEAR 10000 

33  OPEN"GRP: "FOROUTPUTASH1 

335 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16):KEY 3,CHR$(17):KEY 4,CHR$(19):KEY S,CHR$(20) : WIDTH 40 
40 DIM TF(15),TP(20),LC(20) ,ND(20),CX(20),CY(20),DX (20) ,DY (20) 

50 DIM E$(20),D$(20),VO$ (10) 

S5 DIM DT$(10),NO$(100),FO$(100) 

60 REM CONSTANTES 

70 Al=1:A2=31:BP$="05L3ODFBROBB":NS$="=":AS$= 
73  F$=CHR$(1)+CHR$ (87) 

77 O$="":FOR I=1 TO 32:0$=0$+F$: NEXT 1 

80 R=RND(-TIME) 

100 US$=CHR$ (13) : 2E$=CHR$ (48) : GIU$=CHR$ (32) 
110 HE$="CTRL Y (AYUDA) " 

115 Hi$=" E.G.S. Ediciones Forum, S.A."+0$ 
120 REM CARGA VOCES 

130 RESTORE 

140 READ PROG$ 

190 FOR I=1 TO 15 

200 READ TF (1) 

210 NEXT 1 

215 REM 

216 REM ---- 

220 REM MAIN 

230 REM —-- 

235 REM 

240 OPZ=0:GOSUB 2000 

250 X=3:Y=10:K=6:GOSUB11100:PRINTH1,"Posicionar la cinta datos”: Y=12:G0SUB11000:PRINTH1," Y 
apretar PLAY." 

260 X=4:Y=20:K=1:GOSUB11100:PRINTH1, "HECHO ? (pulsa una tecla) ":PLAYBP$ 

270 1F INKEY$="" THEN 270 

280 GOSUB1000 

290 X=7:Y=14:K=4:G0SUB11100:PRINTN1,"E S P E R A R":PLAYBPS$ 

295 FOR I=1 TO 500:NEXT 

300 OPEN"CAS: ATT"FORINPUTASH2 

310 INPUTH2Z,NTS 

320 FOR I=1 TO 10: INPUT*2,DT$(1) : NEXT: CLOSE$2 

330 OPEN"CAS: EL "FORINPUTASH2 

340 INPUTHZ, MX$: MX=VAL (MX$) 

350 FORI=1TOMX: INPUTH2,A$ 

360 NOS (1)=LEFTS$(A$,20):FO$(1)=MID$(A$,21,10):NEXTI: CLOSER2 

370 GOSUB1000: X=.5: Y=10:K=5:G0SUB11100 

380 PRINTH1,"Esta cinta contiene el test: ":X=11:Y=13:K=1:G0SUB11100:PRINTH1, "YX "¿NTS¿" 14" 
390 X=4:Y=19:K=2:G0SUB11100:PRINTH1, "Deseas ver las descripciones": Y=Y+1.5:GOSUB 11000:PRINTH1," 
de los atributos ? (S o N)" 

400 I$=INKEYS: IFI$="N"ORI$="n"THEN450 

410 IF 1$<>"s" AND I$<>"S" THEN 400 

420 GOSUB 1000:COLOR 6 

425 X=6:Y=8:GOSUB 11000: PRINTH1, "LISTA ATRIBUTOS: ": COLOR 4 

430 FOR Y=10 TO 19:X=1:GOSUB 11000:PRINTH1,DT$(Y-9): NEXT Y 

440 X=9:Y=22:K=6:G0SUB11100:FPRINTH1,"PULSA UNA TECLA" 

445 IF INKEY$="" THEN 445 

450 GOSUB1000: X=5: Y=9:K=12:G0SUB11100:PRINTH1,"1) Desarrollo por linea": Y=12:GOSUB 11000:PRINTH1 
,"2) Desarrollo por columna”: Y=15:GOSUB11000:PRINT4+1,"9) Fin programa" 

460 X=8:Y=20:K=1:G0SUB11100:PRINTH1, "CUAL 2 _" 

470 HI=VAL(INKEYS$):1F HI=9 THEN END ELSE IF HI<>1 AND HI<>2 THEN 470 

473 WO=0 

480 ON HI GOSUB 9000, 9500 

500 IF W4=0 THEN A=7:B=8:A$="ERRONEA" ELSE A=7:B=2:A$="CORRECTA" 

501 CLS:LINE (47,76)-1(207,106),A, BF 

503 CIRCLE (127,91),110,B,...2 








¿PD$=".":BL$=" " 


505 
506 
s10 
520 
530 
540 
545 
550 


CIRCLE(127,91),80,B,,,.2 

PAINT(127,110),B 

COLOR1: PRESET(£0,88):PRINTH1, "RESPUESTA "¡AS 

IF M4=0 THEN PLAY"O2L2C","02L2E", "02126" ELSE PLAY"D6L 16CDEFGABO7C" 
COLOR 13:PRESET(70,180):PRINTH1, "PULSA UNA TECLA" 

IF INKEYS="" THEN 540 

IF M4=0 THEN WO=1:GOTO 480 

CLS:0P2=0:GOSUB 2000: 60T0 370 


1000 REM CLS parcial 


1010 
2000 
2010 
2020 
2030 
2130 
2140 
2150 
2215 
2216 
2217 
2218 
2219 
2220 
2240 
2245 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2380 
2410 
2420 
2430 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3300 
3310 
3320 
B111 
3330 
3340 
3350 
3360 
3370 
3380 
3390 


LINE (0,50)- (255, 192), 15, BF: RETURN 
A A 
REM PRESENTA MASCARA 
RA 
CLS 
L=LEN (PROG$) 
FM=(32-L) /2: FM6=SPACES$ (FM) 
X=1:Y=.5:K=2:G0SUB11100:PRINT+1,H1$; : COLOR4 
Y=4:X=0:GOSUB 11000:PRINTH1, FM$;PROG$;FM$ 
LINE ( (FM-1)18,27)-((32-FM)18,43),6,B 
IFOPZ=0THENRETURN 
Y=21:X=0:GOSUB 11000:PRINTA1, OS 
=22: X=18:GOSUB 11000 
PRINTH1, HES 
FOR J=1 TO NUC 








(=4: X=DX (J): Y=DY(J):GOSUB 11100:PRINTH1, DS(J) 

IFTP (3) =4THENX=CX (3) 3 Y=CY (3) :K=6:GOSUB11100:PRINTH1,B$(J) :GOTO2420 
NI=LC(J) :N2=ND(J):+1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 
C$=AS$ 

A$=STRING$ (N1-N2-1,C$) 

IF N2=0 THEN A$= A$+C$:GOTO 2350 

AS=A$+PDS 

FOR I=1 TO N2:A$=A8+C8:NEXT 1 

X=CX (3): Y=CY (J) :K=6:G0SUB 11100 

FRINTH1, AS 

B$(J)= SPACES (N1-N2-1) 

BS (J)= BS(J)+RIGHTS (AS,N2+1) 

NEXT J 

RETURN 

REM =-==--=---- 

REM DATA ENTRY 

REM =---=----- 

J=1 

NC=J: X=CX (NC) : Y=CY (NC) 

CC=1 

GOSUB 3240 

IF FS=0 THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

J=3+1:1F JANUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 

IF J>1 THEN J=J-1:GOTO 3040 

PLAY BP$ :FS=0:J=NUC:GOTO 3040 

IF J< NUC THEN J=J+1:GOTO 3040 

PLAY BP$:FS=0:GOTO 3030 

IF CO<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 
PLAY BP$:FS=0:GOTO 3100 

IF CC» THEN S=-1:CC=CC-1:X=X-1:G0SUB 11000:GOTO 3040 
PLAY BP$:FS=0:GOTO 3040 

IF FS>8 THEN FS=0:GOTO 3060 

IF FS=8 THEN FS=0:GOTO 3100 

RETURN 

REM 

REM LECTURA DE UN CAMPO 

REM 

FS=0 

IF TP(NC)=4 THEN RETURN 

IF MIDS (BS (NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 

GOSUB 11000 

AS=INKEYS: IF Aé= "" THEN PRINTH1, "MN"; :FORI=1T030:NEXT:K=15: G0SUB11100: PRINTH1, "N'":K=6:GOSU 
00:PRINTH1,MIDS (BS (NC),CC, 1) 3: FORI=1T0S0: NEXT: GOSUB1 1000: 60703320 


CA=ASC(A$): IF CA > A2 THEN 3380 

FOR I=1 TO 15 

IF TF(I)= CA THEN FS = l: GOSUB 3630: RETURN 
NEXT 1 

GOTO 3320 

IF TP(NC)<>1 THEN 3440 


IF CA=4S OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 


4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4150 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


425 


PLAY BP$:GOTO 3320 

IF CA <> 46 THEN 3440 
GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3520 

IF CC=LC(NC) THEN RETURN 
CC=CC+1:X=X+1:G0TO 3300 








REM === 
REM TRANSFERENCIA AL BUFFER 
REM 
IF CC=1 THEN SN$= "":GOTO 3570 





SNS=LEFTS (B$ (NC) ,CC-1) 
IF CC=LC(NC) THEN DS$= "":GOTO 3590 
N=LC (NC)-CC:DS$=RIGHTS (E$(NC),N) 
B$ (NC) =SN$+A$+DS$ 

COLOR1S:PRINTH1, "8" 

COLORá: GOSUB1 1000: PRINTH1,A$: RETURN 
REM ---—---—— 

REM COMANDOS 

REM => 

IF FS>S THEN 3690 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 

IF FS=8 THEN GOSUB 4080: RETURN 

IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740, 3910 


IF CC=LC(NC) THEN PLAY BP$: RETURN 

IF CC=1 THEN SN$= "":GOTO 3800 

SN$=LEFTS$ (B$ (NC) ,CC-1) 

N=LC (NC)-CC+1:DS$=RIGHT$ (B$(NC),N) 

IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
C$=BL$ 

A$=SN$ +C$+DS$ 

B$ (NC)=LEFTS$(A$,LC(NC)) 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 

X=XX: Y=YY 

PRINTH1, BS$(NC):S=-1 

IF RIGHTS(B$(NC),1)= PD$ THEN 3780 

RETURN 
REMESS 
REM BORRADO 

REMESAS 

IF TP(NC)<>1 THEN 3960 

IF MIDS$, (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN PLAY BP$: RETURN 

IF CC=LC(NC) THEN DS$= "": GOTO 4000 

N=LC (NC) -CC:DS$ =RIGHT$ (B$(NC),N) 

IF CC=1 THEN SN$= ""z GOTO 4010 

SN$=LEFT$  (B$(NC),CC-1) 

IF TP(NC) = 1 OR TP(NC)=2 THEN C$=NS$:GOTO 4030 
C$=AS$ 

B$(NC)= SN$ +DS$ +C$ 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 

X=XX: Y=YY 

PRINTH1, B$(NC);:S=1: RETURN 

AA 

REM ALINEADOS 

REM -- 
IF LC(NC) =1 THEN RETURN 

Ni=LC (NC) -CC+1 

IF CC=1 THEN B$(NC) = "":z GOTO 4150 

BS$(NC)= LEFT$ (B$(NC),CC-1) 

IF TP(NC) =1 OR TP(NC)=2 THEN 4200 

FOR I=1 TO Ni 

B$ (NC)=B$ (NC) +BL$ 

NEXT 1 

GOTO 4240 

FOR I=1 TO Ni 

B$ (NC)=BL$ +B$(NC) 

NEXT 1 

IF RIGHTS (B$(NC).1) =PD$ THEN B$(NC)= BLS +LEFTS (B$(NC),LC(NC)-1) 
X=CX (NC) : Y=CY (NC) 

K=15:GOSUB 11100:PRINTH1.STRINGS (LC (NC), "M'") :K=6: GOSUB11100 








4260 
4270 
4230 
4290 
4300 
4310 
4320 
4330 
4340 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
71980 
7190 
7200 
9000 
9003 
9005 
9006 
9007 
9010 
9020 
9030 


PRINTH1, BS(NC):RETURN 

REM 

REM CTRL. FUNTO 

REM 

Sup = 0 

IF CC=1 OR CC=LC(NC) THEN SWP =1:RETURN 
FOR I=1 TO LC(NC) 

IF MIDS(B$(NC),1,1)= FDS THEN I = LC(NC): SWP=1: RETURN 
NEXT Ll: RETURN 

REN 

REM LECTURA DE LOS DATOS 

REM — 

RESTORE 10080 

READ NV 

FOR 1 = 1 TO NV:READ NUC(I),OR(I) 

NEXT 1 

NUC=NUC (OPZ) 

FORK=OTOOR (DPZ)-1 

ON OPZ GOSUB 7190,7200 

FOR I=1 TO NUC 

READ DS (1+k) 

NEXT 1 

FOR I= 1+KXNUC TO NUC+KANUC 

READ TP(1),LO(I)ND(T),DX CI) CX(1) CY (1) 
CY (1) =CY (1H DY (1) =CY (1) 

NEXT 1,K 

NUC=NUCHOR (OPZ) 

RETURN 





REM DESARROLLO POR LINEA 


REM 

Rs="" 

IF MO=1 THEN 9050 

N9=INT (END (1) 4MX) +1 

IF NOS(N9)="" THEN 9010, 

OP2=1:GOSUB 7000: TP (1)=4:LC(1)=20:D$(1)="Elemento: ":DX(1)=1:CX(1)=11:DY(1)=9:0Y(1)=9:BS(1)= 


NOS (N9) 


9040 
9050 
9060 
9065 
9070 
9080 
9090 
9100 
9110 
9150 
9300 
9303 
9505 
9506 
9307 
9510 
9520 
9325 


FOR 1=2 TO 11:D$(1)=DT$(I-1):NEXT 1 

GOSUB 2000 

X=.5:Y=7:K=2:GOSUB 11100:PRINTH1,"Introduc.*S* para Si *'N* para No" 
LINE (5, 64)-(250,64),2 

GOSUB3000 

IFFS=4THENSOSOELSE IF FS=7THEN370 

FORI=1T010: IFB$(1+1)="s"ORB$(1+1)="S"THENR$=R$+"1"ELSER$=R$+"0" 
NEXT 

IFR$< >FOS (N9) THENWA=0ELSEW4=1 

RETURN 

REM 

REM DESARROLLO POR COLUMNA 

A 

R$="": IFWO=1THEN9S70 

RO$="" 

N9=INT(RND(1)+10)+1 

IFDTS (N9)=""THEN9S10 

0P7=2: GOSUB7000: TP (1)=4:LC(1)=30:D$(1)="Atributo: ":DX(1)=10:0X(1)=1:DY(1)=7.7:CY(1)=9:B$(1) 


=DT$ (N9) 


9530 
9540 
9550 
9560 
9370 
9580 
9390 
9600 
9610 
9615 
9620 
9630 


FORKK=1T010 

N8=INT (RND (1) 1MX) +1: IFNOS (N8)=""THEN9S40 

D$ (KK+1)=NOS$ (NO) : ROS=RO$+MIDS (FO$ (NB) ,N9, 1) 

NEXTKK 

GOSUB2000 

X=.5:Y=6.3:K=2:G0SUB11100:PRINTH1,"Introduc.*S* para Si *N" para No" 
GOSUB3000 

IF FS=6 THEN 9570 ELSE IF FS=7 THEN 370 

FOR I=1 TO 10: IFB$(1+1)="s" OR B$(1+1)="S" THEN R$=R$+"1" ELSE R$=R$+"0" 
NEXT 1 

IF R$=RO$ THEN W4=1 ELSE W4=0 

RETURN 


10000 REM ----- 

10010 REM DATOS 

10020 REM ——- 

10030 DATA "TEST con atributos (uso) 

10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
10080 DATA 2 

10090 DATA 1,11,1,11 

10100 DATA " ",3,1,0,0.5,30.5,10 

10160 DATA " ",3,1,0,5,27,10 


11000: REM == 

11010 REM POSICIONA CURSOR 

11020. REM ————_—_— == 

11030 PRESET (X*8,Y*8),15 

11040 RETURN 

LITO == 

11110 REM POS.CURSOR COLOR 

11120 REM: =-=======nmmsmem= 

11130 PRESET(X18,Y18),15 

11135 COLORK 

11140 RETURN 

13000 REM ----- 

13010 REM AYUDA 

13020 REN —=— 

13050 GOSUB 13410 

13055 PRINT*1, "Barra espaciad. para continuar "; 
13060 GOSUB 13400 

13110 PRINTH1, "FLECHAS: mueven en las 4 direcc."; 
13140 GOSUB 13600 

13150 PRINTH1, "Fi: si renuncias a la solucion "; 
13160 GOSUB 13400 

13170 PRINTH1, "F2: anula toda la introduccion "; 
13180 GOSUB 13400 

13190 PRINTH1, "F3: borra un caracter En 
13200 GOSUB 13600 

13210 PRINTH1, "FS: convalida la introduccion "; 
13220 GOSUB 13600 


13230 PRINTH1, " CTRL Y (AYUDA) "; 
13300 RETURN 
13600 A$=INKEYS: IF A$= "" THEN 13600 


13605 IF A$<> CHR$(32) THEN 13600 
13610 PRESET (3,176): COLOR1S 


13520 PRINTH1, > III 
13640 RETURN 





¿ COLOR4: PRESET (3, 176) 


Simbolos-Generación 


LO REA A 
20 REMTEST con SIMBOLOS 
30 REM generacion 
33 REM Version MSX 
MO REM oo 


SO SCREEN1,3:COLOR4,15,7 

60  CLEAR14000 

70 KEY OFF:KEYS, CHR$(20) ¿WIDTH 32 

80 M3=30:REM M3=Max Test 

90 DIM SS$(6,M3),COL$ (6,M3),RR$ (M3) 

100 BP$="05L32DFB" 

110 F$=CHR$ (1) +CHR$ (87) 

120 0O$="":FOR I=0 TO 39:0$=0$+F$: NEXT 1 
130 Hi$=" E.G.S. Ediciones Forum, S.A. " 





140 =1:G0SUB 11000: PRINTH1$ 
150 :¿GOSUB 11000:PRINT"TEST CON SIMBOLOS" 
160 Y= SUB11000:PRINT" xl 





170 S5:GOSUB 11000:PRINT"el maximo numero previsto " 
180 
190 
200 
1000 
1010 
1020 
1030 
1040 RESTORE15000:A$="":FOR I=1 TO 32:READA: A$=A$+CHR$ (A) : NEXT 

1050 SPRITES (3)=A$ 

1060 FC? JO=1 TO M3 

1070 GO5UB 13000:REM sprites 

1080 SCREENi 

1090 X=0:Y=0:GOSUB 11000:PRINT H1$ 

1100 GOSUB 1420 

1110 FOR I=1 TO 6:1F I=3 THEN NEXT 1 

1120 SPRITES(1)=SS$(1,J0): NEXT 

1130 PUTSPRITE1, (19,27) ,VAL(COL$(1,J0)),1 

1140 PUTSPRITE2, (99,27), VAL (COL$(2,J0)),2 

1150 PUTSPRITE3, (179,27),0,3 d 

1160 PUTSPRITEA, (19,90), VAL (COL$(4,JD)),4 

1170 PUTSPRITES, (99,90), VAL (COL$(5,J0)),5 

1180 FUTSPRITE6, (179,90), VAL (COL$(6,J0)),6 

1190 X=1:Y=21:GOSUB 11000:PRINT"*Test"¡STR$(J0);"* INDICAR LA RESPUESTA"; 





1200 X=10:Y=23: G0SUB11000:PRINT"<1>,<2>0<3>"; 

1210 I=VAL(INKEYS):IF I<1ORI>3 THEN VPOKE6927,0:FOR T=1 TO 200:NEXT T:VPOKE6927,1:FOR T=1 TO 200 
¿NEXT T:GOTO 1210 

1220 GOSUB 1230:G0TO 1320 

1230 ON I GOSUB 1570,1580,1590 

1240 IF SW=3 THEN S=Sk (-1):SWAPX1,X2 

1250 FOR X=X1 TO X2 STEPS 

1260 ON I GOSUB 1510, 1530, 1550 

1270 IF I=3 THEN SWAPX, Y 

1280 PUTSPRITE1I+3, (X, Y), VAL (COL$(1+3,30)),1+3 

1290 IF I=3 THEN SHAPX, Y 

1300 NEXT: PUTSPRITE3, (0,209),3,3 

1310 RETURN 

1320 FOR Y=21 TO 23:X=0:GOSUB 11000:PRINT SPACES (31); :NEXT 
1330 X=0:Y=22:GOSUB11000:PRINT"Respuesta";1;" Seguro? (S o N)"; 
1340 R$=INKEYS: IFR$="S"ORR$="s"THEN1370 


"1350 IF R$<>"n" AND R$<>"N" THEN 1340 


1360 SW=3: X=0: Y=22: GOSUB1 1000: PRINTSPACE$ (33) ; : GOSUB1230: SW=0: GOTO1150 
1370 RR$(J0)=RIGHTS$(STR$(1),1) 

1375 SCREEN1 : IFJO=M3THEN2000 

1380 X=6:Y=10:GOSUB11000:PRINT"ODTRO TEST ? (S o N)" 
1390 I$=INKEYS: IFI$="n"0RI$="N"THEN2000 

1400 IF 1$<>"s" AND I$<>"S" THEN 1390 

1410 FOR I=1 TO S00:NEXT:*NEXT JQ 

1420 REM 

1430 FOR K=1 TO 21 STEP1O 

1440 FOR H=2 TO 10 STEPS 

1450 X=K:Y=H:GOSUB 1490 

1460 NEXT H,K 


1470 X=2:Y=18:GOSUB 11000:PRINT". 1 / aa 3” 

1480 RETURN 

1490 GOSUB 11000:PRINT"r—"2FOR I=1 TO 5: Y=Y+1:GOSUB11000: PRINT"| Í“:NEXT 1: Y=Y+1:GOSUB 
11000: PRINT" 1" 

1500 RETURN 

1510 REM 1 

1520 Y=97.2-X*. 39: RETURN 

1530 REM 2 

1540 Y=167.4-XX.78: RETURN 

1550 REM 3 


1560 Y=180: RETURN 

1570 X1=20:X2=180:S=1: RETURN 

1580 X1=100:X2=180:S=1: RETURN 

1590 X1=90:X2=27:S=-1: RETURN 

2000: REM. ==ocinarimnes nomas e 

2010 REM ESCRITURA FICHEROS 

ZUZO EN A 

2030 CLS:X=2:Y=7:GOSUB11000:PRINT"Posicionar la cinta datos": X=5:Y=10:G0SUB11000:PRINT"y apretar 
=15:GOSUB 11000:PRINT"Despues pulsar una tecla" 
"" THEN 2040 

2050 CLS: Y=12:GOSUB11000:PRINT"E SPERAR" 

2060 A$="":OPEN"CAS: az "FOR OUTPUT AS 41 

2070 FOR I=1 TO 6:PRINT 41,A$:NEXTI:CLOSERW1: REM espacio cinta 
2080 OPEN"CAS: TESTS"FOR OUTPUT AS 41 

2090 A$=STR$(JO):A0$="*"+A$+SPACES$ (9-LEN(A$)) 

2100 PRINTH1,AAS$ 

2110 FOR I=1 TO JQ 

2120 FOR TO 6: 1F J=3 THEN NEXT J 

2130 AA$="":BB$=SS$(J, 1) : FORH=1T032 

2140 IFMIDS$ (BB$,H, 1) =CHR$ (0) THENAAS=AA$+CHR$ (2) +CHR$ (2) :GOTO2160 
2150 AAS=AAS+CHR$ (1)+MID$ (BB$,H, 1) 

2160 NEXTH 

2170 PRINT 41,A0$ 

2180 PRINT 41,COL$(J, 1): NEXTJ 

2190 PRINTA1,RR$(1) 

2200 NEXT 1 

2210 CLOSE%1 

2220 CLS:X=8: Y=12:GOSUB11000: PLAYBP$+BP$:PRINT"FIN PROGRAMA" 
2230 Y=20:GOSUB 11000:END 

11000 REA 

11010 REM POSICIONA CURSOR 

11020 RE 

11030 LOCATE X, Y 

11040 RETURN 

¿IO0O REN ===> 

13010 REM INTRODUCCION DIBUJO 

ISLE == 

13030 SCREEN1:WIDTH32 

13040 FORJK=1T06: IFJK=3THEN13440 

13050 SPRITES (0) =CHR$ (0) 



















Mb 


130650 PUTSPRITEO, (200,20),1,0 
13070 CLS:COLORA, 15 








13080 X=0:Y=0:G0OSUB11000: PRINTH1$ 

13090 :GOSUB11000:PRINT"1111111":X=3:Y=3:G0SUB11000:PRINT"1234547890123456" 

13100 : GOSUB11000:PRINTCHR$ (1); CHR$ (2459) ¡LEFT$ (05, 32) 3 CHR$ (1) ¿CHR$ (2HS9) 

13110 =0: FOR Y=5 TO 20:A=0+1:A$=STR$ (A) :GOSUB 11000:PRINTRIGHT$(A$,2)7"|"3SPACES(16)¿" lin 





EXTY:X=2:GOSUB 11000:PRINTCHR$ (1); CHR$(8H5A) ¡LEFT$ (05,32) 5 CHR$ (1) 3 CHR$ (LHSB) 5 


13120 :X=20:Y=10:GOSUB11000:PRINT"*E* enciende": Y=11 





OSUB11000:PRINT"*A* apaga"; 


13130 PLAYBP$: X=21:Y=13:G0SU B11000:PRINT"Las flechas";:Y=14:GOSUB 11000:PRINT"desplazan";:Y=15: 
GOSUB11000:PRINT"el cursor. ";:X=20:Y=18:GOSUB11000:PRINT"FS confirma" 


13140 X= 





+ Y=22:GOSUB11000:PRINT"Figura n."¿JK; 


13150 O=1:W=1:P=0 
13160 A$=INKEYS 
13170 IFA$<>""THEN13210 


13180 


LOCATEO+3, W+S5, 1: FORT=1T030: NEXT 


13190 LOCATEO+3, +5, 0: FORT=1T030: NEXT 


13200 


G0TO13160 


13210 IFA$=CHR$ (28) THENO=0+1: IFO>15STHENO=15 


13220 


IFA$=CHR$ (29) THENO=0-1: IFO<OTHENO=0 


13230 IFA$=CHR$ (30) THENW=k-1 : IFW<OTHENH=0 


13240 


IFA$=CHR$ (31) THENb=b+1: 1FW>1STHENbI=15 


13250 IFO>7THENP=1ELSEP=0 
13260 IF A$="e" OR A$="E" THEN GOSUB13460:LOCATEO+3,W+S:PRINT"M" 


13270 


IF A$="a" OR A$="A" THEN GOSUB 13490:LOCATE 0+3,W+S:PRINT" " 


13280 IFA$=CHR$ (20) THEN13300 


13290 


GOTO 13160 


13300 X=20:FOR Y=10 TO 13:GOSUB 11000:PRINTSPACE$ (12); :NEXTY 


13310 


PLAYBP$: X=20: Y=13:GOSUB 11000:PRINT"Una tecla"; 





Y 





14:GOSUB 11000:PRINT"para elegir"; :Y=15: 


GOSUB 11000:FRINT"el color de";:Y=16:G0SUB 11000:PRINT"la figura":Y=18:GOSUB 11000:PRINT"FS CONF 


IRMA" 


13320 A=1 


13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 
13470 
13480 


A$=INKEY$: IFA$=""THEN13330 
IFA$=CHR$ (20) THENPLAYEP$: GOTO13380 
A=A+1: IFA>14THENA=1 

PUTSPRITEO, (200,20),A,0 

GOTO 13330 

REM 

S$="":FOR I=BASE(9) TO BASE (9)+31 
S$=S$+CHR$ (VPEEK (1) ) 

NEXT 1 

SS$(JK, JO)=S$ 

COL$ (JK, JO) =STR$ (A) 

NEXTJK 

RETURN 

REM 

S=BASE (9) +16XP-+W: VPOKES, VPEEK (S)0R2” (7-0+84P) 
RETURN 


13490 REM 
13500 S=BASE (9) +16XP-+W: VPOKES, VPEEK (S) ANDNOT (2” (7-0+8P)) 


13510 


RETURN 


15000 DATAO,7,8,16,16,16,0,1,2,2,2,2,2,0,2,2,0,0,128,64,64,64,128,0,0,0,0,0,0,0,0,0 


Síimbolos-Uso 


10 
20 
30 
35 
40 
30 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
185 
190 
200 
210 


220 


REM=> 
REM TEST con SIMBOLOS 

REM uso 

REM Version MSX 

RSS SS 

SCREEN1,3 :COLOR4,15,7 

CLEAR14000 

KEY OFF:KEYS, CHR$(20) ¿WIDTH 32 

M3=30:REM M3=Max Test 

DIM S3$(6,M3),COL$(6,M3),RR$(M3) 
BF$="05L32DFB" 

F$=CHR$ (1)+CHR$ (87) 

O$="":FOR 1=0 TO 39:0$=0$+F$: NEXT 1 

Hi$=" E.G.S. Editorial Forum,S.A." 

GOSUB 150:FF=1:GOSUB 1600 

X=0:Y=1:GOSUB 11000:PRINTH1$ 

X=4:Y=5:GOSUB 11000: PRINTCHR$ (1) ¿CHR$ (8,444); " 
Y=6:G0SUB11000:PRINT"|TEST CON SIMBOLOS (luso) |" 
Y=7:GOSUB 11000: PRINTCHR$ (1) ¿CHR$ (2.444) 5" 

IF FF=0 THEN RETURN 

X=2:Y=12:GOSUB 11000:FPRINT"El numero de tests contenidos" 
14:GOSUB 11000:PRINT"en esta cinta es "¿MX3"." 
:GOSUB 11000:PRINT"pulsa una tecla":PLAYBP$ 
=""THEN220 








"¿CHR$(1) ¿CHR$ (2444) 


Y CHR$ (1); CHR$ (2H44) 









1000 REM -—--— 


1010 
1020 
1930 
1040 
1050 
1050 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


REMMAIN 

REM: === 

REM 

RESTORE12000:4$="":FOR I=1 TO 32:READA: A$=A$+CHR$ (A) : NEXT 
SPRITES (3) =A$ 

FOR JO=1 TO MX 

SCREEN1 

X=0:Y=0:GOSUB 11000:PRINTH1$ 

GOSUB 1420 

FOR I=1 TO 6: 1F I=3 THEN NEXT 1 

SPRITES (1)=SS$(1,J0): NEXT 

PUTSPRITE1, (19,27), VAL (COL$(1,J0)),1 

PUTSPRITE2, (99,27), VAL (COL$(2,J0)),2 

PUTSPRITE3, (179,27) ,0,3 

PUTSPRITEA, (19,90) , VAL (COL$ (4,J0)),4 

PUTSPRITES, (99,90) , VAL (COL$(5,J0)),5 

PUTSPRITES, (179,90), VAL (COL$(6,30)),6 
X=1:Y=21:G0SUB11000:PRINT"*Test"¡STR$(JD);"* INDICAR LA RESPUESTA: "; 
X=10: Y=23: G0SUB11000:PRINT"<1>,<2>0<3>"3 

I=VAL (INKEY$): IF I<1ORI>3 THEN VPOKES6927,0:FOR T=1 TO 200:NEXT T:VPOKES5927,1:FOR T=1 TO 200 






:NEXT T:GOTO 1200 


1210 
1220 
1230 
1235 
1240 
1250 
1250 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 


1410 
1412 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


GOSUB 1220:GOTO 1310 

ON I G0SUB 1570,1580,1590 

IF SW=3 THEN S=S%* (-1):SWAPX1,X2 

GOSUB 30000 

FOR X=X1 TO X2 STEPS 

ON I GOSUB 1510,1530, 1550 

IF I=3 THEN SWAPX, Y 

PUTSPRITEI+3, (X, Y), VAL (COL$(1+3,J0)).1+3 

IF 1=3 THEN SWAPX, Y 

NEXT: PUTSPRITE3, (0,209),3,3 

RETURN 

FOR Y=21 TO 23:X=0:GOSUB 11000:PRINT SPACES (31); : NEXT 

X=2: :GOSUB 11000:PRINT"Respuesta";1;". Seguro ? (S o N)"; 
R$=INKEYS: IF R$="S" OR R$="s" THEN 1360 

IF R$<>"n" AND R$<>"N" THEN 1330 

SW=3: X=2: Y=22:GOSUB 11000:PRINT SPACE$(31);:G0SUB 1220: SW=0:G0TO01140 
IFI<>VAL (ARS (30) ) THENBEEP:PLAY"O2L2V15C", "O2L2V15E", "02L2V15G":64=1:GOTO1350 
PLAY"OSL32CDEFGABOSCR16COSBAGFEDCR1SGECR64EC":FOR J=1 TO 3:1F J=1 THEN 1377 
VPOKES6927+44J,0 

NEXT J:FOR I=1 TO 1000:NEXT 

SCREEN1: X=6:Y=10:GOSUB 11000:PRINT"OTRO TEST ? (S o N)" 
I$=INKEYS: IFI$="n"ORI$="N"THEN1412 

IF 1$<>"s" AND 1$<>"S" THEN 1390 

NEXT JQ 

CLS:X=9:Y=12:GOSUB 11000:PRINT"FIN PROGRAMA": Y=20:GOSUB 11000:END 
REM 

FOR K=1 TO 21 STEP1O 

FOR H=2 TO 10 STEPS 

X=K: Y=H: GOSUB1490 

NEXTH, K 

X=2: Y=18:GOSUB11000:PRINT". 1 / ed a 37 

RETURN 

GOSUB 11000:PRINT"————":FOR I=1 TO 5: Y=Y+1:GOSUB 11000:PRINT" | 











pi ¿NEXTI: Y=Y+1:GOSUB 


11000:PRINT" LJ" 


1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
PLAY 
1640 
1650 
16560 
1670 
1680 
1690 
1700 
1710 
1720 


RETURN 

REM 1 

Y=97.2-Xt.39: RETURN 

REM 2 
Y=167.4-X*. 78: RETURN 
REM 3 

Y=180: RETURN 
X1=20:X2=180:S=1: RETURN 
X1=100: X2=180:S=1: RETURN 











REM LECTURA FICHERO 
REM 
= GOSUB11000:FRINT"Posicionar la cinta datos":X=8:Y=12:GOSUB 11000:PRINT"y apretar 


"31 X=5:Y=16:GOSUB 11000:PRINT"Despues pulsar una tecla" 





IFINKEY$=""THEN1640 

CLS:X=9:Y=12:GOSUB 11000:PRINT"E SPE RAR" 
OPEN"CAS: TESTS"FOR INPUT AS +1 

INPUTH1,AAS 

MX=VAL (MID$ (AA$,2,9)) 

FOR I=1 TO MX 

FOR J=1 TO 6:1F J=3 THEN NEXT J 

INPUT $1,A0$ 

BB$="":FOR H=1 TO 64 STEP2 








1730 1F MID$(AA$,H,1)=CHR$(2) THEN BB$=BES+CHR$ (0) :GOTO 1750 


1740 EBS=BES+MIDS (ARS, H+1,1) 
1750 NEXT H 

1760 SS$(J, 1)=BBS 

1770 INPUT H1,COL$(I, 1) :NEXT J 

1780 INPUTH1,RRS (1) 

1790 NEXTI 3 
1800 CLOSER 

1810 RETURN 

11000 REM ===----=-=------ 

11010 REM POSICIONA CURSOR 

11020 REM === 

11030 LOCATE X,Y 

11040 RETURN 


12000 DATAO,7,8,16,16,16,0,1,2,2,2,2,2,0,2,2,0,0,128,64,64,64,128,0,0,0,0,0,0,0,0,0 


30000 REM 

30005 IF G4=1 THEN G4=0: RETURN 
30010 BEEP:F1=2:F2=8:F3=1 
30020 IF 1=2 THENF 1=3:F2=6 
30030 IF I=3 THENF 1=4:F2=6 
30040 IF SW=3 THEN SWAPF1,F2:F3=-1 
30050 FOR FI=F1 TO F2 STEPF3 
30060 A$="0"+STR$(FI) 

30070 C$="L10S8M550"+A$+"CDEFG" 
30080 D$="L464S8M550"+A$+"CEG" 
30090 PLAYC$, DS 

30100 NEXT 

30110 RETURN 


RELACION DE LAS VARIABLES - PHILIPS VG 8010 


Puntuación - Generación 


BS(+) = matriz de los buffers (1 por campo 
de introducción) 

LC(+) = longitud campo de introducción 

ND(+) = número de decimales en el campo 
de introducción 


CX(+) 
CY(») 


= coordenadas en pantalla del cam- 
po de introducción 


DY = coordenadas en pantalla de des- 
cripción 

TF(+) = matriz numérica con códigos AS- 
Cll de teclas comando 

DS(+) = descripciones en las máscaras vi- 
deo 

BLS$ = blank 


PDS$ = punto decimal 
AS$ = Carácter "-”; identifica los campos 
de intr. altanuméricos 
NS$ =cCarácter “4%”; identifica los cam- 
pos de intr. numéricos 
NUC = número campos de intr. en la más- 
cara video activada 
MX = número preguntas 
(*) TSS(x) = contiene la pregunta del test 
(*) RIS(+) =contiene las respuestas y la co- 
rrespondiente puntuación 
H15 = Cabecera 
PROG$  =nombre del programa 


(*) En la segunda fase del programa, TS$(+) y RIS(+) 
contienen respectivamente las gamas de puntuación 
y los resultados del test 





Puntuación - Uso 


MX =número preguntas 
TSS$(+) = contiene la pregunta del test 
(*) RIS(+) =contiene las respuestas y la co- 
rrespondiente puntuación 
PP =totalizador de los puntos obteni- 
dos 
MI(+) 


MX(+) =contienen las gamas de puntua- 


ción (Ml(«*) = mínimo; MX(«) = 
máximo) 

H15 = Cabecera 

PROG$  =nombre del programa 


(*) En la segunda fase del programa, RI$(+) contiene los 
resultados del test 


Abributos - Generación 


BS(+) = matriz de los buffers (1 por campo 
de introducción) 

LC(+) =|longitud campo de introducción 

ND(+) = número de decimales en el campo 
de introducción 

CX(+) 

CY (+) 


eo = coordenadas en pantalla de des- 
cripción 

TF(+) = matriz numérica con códigos AS- 
Cll de teclas comando 

DS(+) = descripciones en las máscaras vi- 
deo 

VOS(+) =voces del menú principal 

BL$ = blank 

PD$ = punto decimal 

AS$ =carácter "—"; identifica los campos 
de intr. alfanuméricos 

NS$ =cCarácter “4”; identifica los cam- 
pos de intr. numéricos 

NUC = número campos de intr. en la más- 
cara vídeo activada 

ATS(x) = contiene los atributos 

ELS(+) = contiene los elementos 

M3 = máximo número de elementos 

H15 =Cabecera 

PROGS$ =nombre del programa 


= coordenadas en pantalla del cam- 
po de introducción 


NTS = nombre del test 


Atributos - Uso 


BS(«) = matriz de los buffers (1 por campo 
de introducción) 

LC(+) = longitud campo de introducción 

ND(+) = número de decimales en el campo 
de introducción 

CX(+) 

CY (+) 


E = coordenadas en pantalla de des- 
(+) EY 
cripción 

TF(+) = matriz numérica con códigos AS- 
Cll de teclas comando 

DS(+) = descripciones en las máscaras ví- 
deo 

BL$ = blank 

BL$ = blank 

PD$ = punto decimal 

AS$ = carácter “—”; identifica los campos 
de intr. alfanuméricos 

NS$ =carácter "4"; identifica los cam- 
pos de intr. numéricos 

NUC = número campos de intr. en la más- 
cara vídeo activada 

NTS = nombre del test 

DTS(«) = contienen los atributos 

MX = número de elementos 

NOS(+) = contiene elementos 

FOS(+) =contiene los flags de cada ele- 
mento 

W4 = flag respuesta (W4 = O resp. erró- 
nea; W4 = 1 resp. correcta) 


= coordenadas en pantalla del cam- 
po de introducción 


Símbolo - Generación y Uso 


H15 = Cabecera 

M3 = máx. número de tests 
Sss$ 
(6,M3) 
E = contiene en número del color de 

A los sprites 
RR$(M3) = contiene las respuestas correctas 
MX =número de tests (en el programa 
Uso) 


= contiene los sprites 

















El desarrollo del procedimiento es análogo a los de 
las otras versiones. También en este caso, aparte 

de elementos marginales como los colores, la máscara 
es idéntica para todas las versiones. 


En este caso, la facilidad de incluir en la misma pantalla 
vídeo tanto texto como gráficos, permite estructurar de 

manera diferente algunas máscaras. La foto muestra la 

fase de asociación entre los atributos y los elementos. 


Test con puntuación. La foto muestra la máscara 
vídeo utilizada para la introducción de una pregunta. 
Por motivos de espacio en la pantalla, el texto se divide 
en dos presentaciones sucesivas. 


La versión MSX está orientada al uso con grabador, 
por lo que en todos los programas se incluyen las 
funciones de aviso para el usuario de que debe 
predisponer la unidad de grabación. 
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E.6.S Ediciones Forum, S.A. 


[Tests con ATRIBUTOS (generacion) ) 


INTRODUCCION ELEMENTOS E INDICADORES 


19 Elemento 





Indicadores 


[OUNAE 








CTRL Y <AYUDA> 


Ediciones Forum, S.A. 


INTRODUCIR LA PREGUNTA N. 


(Primera parte> 





CTRL Y <AYUDA> 


la cinta datos 


REC 4 PLAY. 


HECHO ? (pulsar una tecla> 


HOTA Dejar 
rosicion ha=t 


2339 





Programar un ordenador significa proporcionarle, de 
manera que las comprenda, todas las instrucciones 
necesarias para realizar una determinada tarea. 
Inicialmente, los lenguajes de programación eran de 
bajo nivel, o sea más orientados a la máquina que al 
usuario. 

La evolución de los sistemas y del software de base 
condujo a la creación de lenguajes cada vez más evo- 
lucionados y próximos a la manera humana de razo- 
nar, aunque dirigidos a especialistas del sector. Re- 
cientemente, han aparecido programas de aplicación 
de tipo «abierto», o sea adaptables a diferentes nece- 
sidades y utilizables directamente por el usuario final. 
Esta «familia de software» deberá sustituir necesaria- 
mente a los lenguajes de programación, por lo menos 
en las aplicaciones menos complejas, puesto que el 
usuario final no puede ni debe estar ligado a progra- 
mas configurados e inmutables, mientras que el pro- 
gramador debe disponer de lenguajes de nivel cada 
vez más elevado para ahorrar tiempo. El procedimien- 
to ¡ilustrado más adelante constituye un ejemplo de 
macrolenguaje orientado al usuario final, con el que es 
posible construir un programa de aplicación utilizando 
pocas macroinstrucciones, incluso sin conocer nada 
de programación. 

Este software no constituye un instrumento «profesio- 
nal», pero al mismo tiempo que es un medio didáctico 
muy útil en las primeras aproximaciones a la máquina, 
permite desarrollar muchas aplicaciones, incluso de 
una cierta complejidad. Además, para los más exper- 
tos, puede ser una fuente de subrutinas parametriza- 
das, y por tanto de empleo generalizado, que podrán 
utilizar en sus propias aplicaciones. 


Generador de programas 


La preparación de un programa requiere el desarrollo 
de tres actividades principales: 


1 / Análisis 
2 / Preparación de los diagramas 
3 / Detallado 


La primera, la más importante, es la fase de análisis, 
que consiste en plantear la estructura del programa 
mediante las descripciones de las funciones a realizar 
para obtener los resultados deseados. A ésta le sigue 
el desarrollo de los diagramas, que expresa en símbo- 
los gráficos, y a veces con un notable detalle, las mo- 
dalidades según las cuales deben desarrollarse las 
funciones previstas. La última fase consiste en traducir 
los diagramas a un lenguaje de programación. 

En términos de utilización de recursos, esta última fase 
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es la más laboriosa, y también la que puede producir 
más fácilmente errores y dificultades de detallado del 
software. 

Estos aspectos negativos se deben a la necesidad, en 
esta fase, de utilizar un lenguaje más próximo al orde- 
nador que al hombre, por lo que un simple concepto, 
como por ejemplo «Busca en el archivo el registro que 
en el campo ciudades tiene el valor Bilbao», debe tra- 
ducirse en una serie de funciones más o menos ele- 
mentales según el lenguaje utilizado. La forma de esta 
traducción depende mucho del programador. Incluso 
utilizando el mismo lenguaje, personas distintas usa- 
rán métodos diferentes para obtener la misma finali- 
dad. Esta situación conduce a dos inconvenientes: po- 
sibilidad de errores y dificultades en las modificacio- 
nes, si éstas deben ser realizadas por otro programa- 
dor que no sea el que ha escrito la primera versión. 
Un método para reducir estos inconvenientes ya se ha 
presentado, y esta obra lo emplea profusamente. En 
general, consiste en utilizar módulos de empleo gene- 
ralizado que puedan realizar las funciones más recu- 
rrentes en los programas de aplicación. Un ejemplo 
inmediato es la data entry. Con esta subrutina es posi- 
ble la gestión completa del video, simplemente defi- 
niendo algunos parámetros (tipo del campo, longitud, 
posición, etc.). 

Esta forma de parametrización constituye ya de por sí 
una primera aproximación a la preparación de un «ge- 
nerador de programas». 

Sin embargo, tiene dos defectos: requiere el conoci- 
miento del lenguaje de programación utilizado (Basic) 
y necesita modificaciones en el interior del programa, 
por ejemplo en los DATA y en los flags. 

En cambio, el generador de programas debe ser un 
software que pueda gestionar cualquier aplicación sin 
necesidad de modificaciones, sino sólo mediante al- 
gunas instrucciones. (Obsérvese que el término «ge- 
nerador de programas» se utiliza inadecuadamente, 
puesto que se trata de un generador de aplicaciones, 
porque su empleo no produce un listado, o sea otro 
programa, sino el desarrollo de la aplicación). 
Analizando las funciones necesarias en la mayoría de 
programas, es evidente que éstas pueden dividirse en 
unos pocos grupos principales, como: 


Entrada y salida de datos 
Desarrollo de los cálculos 
Búsqueda de un dato en un fichero 
Desarrollo de bucles 

Decisiones 


Para cada una de ellas existen instrucciones, por 
ejemplo en Basic, que pueden desarrollarlas, pero son 
instrucciones necesariamente muy generales, y cada 


una activa funciones más elementales de lo que nece- 
sita el usuario del software. Por ejemplo, la instrucción 
INPUT sirve para adjudicar un valor a una variable, o 
sea es una instrucción de entrada; pero con ella no 
puede gestionarse una máscara video ni cualquier 
otra forma de introducción de datos. Efectivamente, 
una introducción de datos tiene como consecuencia, 
por lo menos, la necesidad de validar el valor introdu- 
cido y de permitir correcciones, posibilidades que no 
están previstas en la instrucción INPUT, mientras que 
se convierten en automáticas utilizando la data entry. 
Análogamente, las otras funciones pueden parametri- 
zarse para dar lugar a una serie de rutinas de empleo 
generalizado. Con estas rutinas es posible construir 
una forma de lenguaje de alto nivel y de naturaleza 
descriptiva. 
Por ejemplo, la frase anterior «Busca en el archivo... », 
que expresa una necesidad del usuario, puede ser tra- 
ducida para su ejecución desarrollando todas las ins- 
trucciones Basic necesarias no parametrizadas, o sea 
utilizando un archivo bien determinado, un campo de- 
finido y, como elemento de selección, la cadena «Bil- 
bao». 
Es evidente que esta rutina tiene un empleo circunscri- 
to a esta aplicación particular; en este caso, ningún 
programador utilizaría un método como éste, porque 
por lo menos el elemento de selección debería para- 
' metrizarse, o sea utilizar una cadena general en la que 
introducir el nombre a buscar. De manera análoga 
bastaría con parametrizar las otras magnitudes, como 
el nombre del fichero en el que realizar la búsqueda y 
la posición del campo. De esta manera se dispondría 
de una rutina que podría buscar un valor particular en 
un campo cualquiera. Por tanto, se trata de introducir 
los parámetros «desde fuera». 
La generalización indicada no presenta ninguna difi- 
cultad si se obtiene a nivel de programación. Efectiva- 
mente, el nombre del fichero y el valor del campo («Bil- 
bao») pueden parametrizarse fácilmente utilizando 
dos variables cadena en las que cargar cada vez los 
valores; en lo que respecta a la posición del campo en 
el interior del registro, la parametrización es mucho 
menos sencilla, puesto que debe utilizarse un puntero 
que debe implantarse al valor oportuno antes de utili- 
zar la rutina. Esto puede conseguirse fácilmente modi- 
ficando el programa, pero a cambio de una complica- 
ción para el usuario, que es precisamente lo que se 
pretende evitar con este software. 
Para analizar la lógica seguida en la implantación del 
programa «generador de programas» es conveniente 
referirse a un ejemplo concreto. Supongamos que se 
quiere formar un listín de direcciones. Básicamente se 
trata de estructurar una máscara video que contenga 
todos los campos previstos (Nombre, Apellido, etc.) y 
una serie de subrutinas que actualicen el fichero o rea- 
licen selecciones. En realidad, definiendo la máscara 
video también se definen las posiciones de los distin- 
tos campos en el interior del registro. 


Por ejemplo, suponiendo que la máscara sea: 


Nombre 20 caracteres 
Apellido 30 caracteres 
Dirección 20 caracteres 
Ciudad 12 caracteres 
Teléfono 11 caracteres 


En las descripciones se memorizan los nombres de 
cada campo (D$(1) = «Nombre», etc.) y los valores 
asumidos cada vez se memorizan (por la data entry) 
en las cadenas B$(1), B$(2), etcétera. 

Como estos datos hay que memorizarlos, el registro se 
forma sumando las diferentes cadenas B8(/), con | = 
= 1 = 5. Por tanto, el registro será: 


B$(1) + B$(2) + B$(3) + B3(4) + B$(5) 


y tendrá una longitud fija, puesto que si un campo no 
se utiliza, se llena con espacios en blanco; en conse- 
cuencia, en cada registro, en el byte 21 empezará el 
Apellido, en el 51 la Dirección, y así sucesivamente. 
En general, el campo «N» empieza en la posición co- 
rrespondiente a la suma de las longitudes de los cam- 
pos que lo preceden + 1. Por ejemplo, para determi- 
nar de dónde debe extraerse el campo Ciudad, deben 
sumarse los valores de los campos precedentes 
(20 + 30 + 20 = 70) y al resultado sumarle 1, por lo 
que el campo Ciudad empezará en el byte 71 y tendrá 
una longitud de 12 bytes. Por tanto, para extraerlo del 
registro, y suponiendo que se ha leído en la variable 
A$, basta la instrucción MID$: 


Contenido del campo Ciudad = MID$(A$,K,L) 
Habiendo indicado: 
K=Suma de las 


precedentes + 1 
L = Longitud del campo «Ciudad» 


longitudes de los campos 


De estas observaciones es inmediato deducir un mé- 
todo de parametrización «externo». Supongamos que 
se han definido, de una manera que se ilustrará más 
adelante, todas las magnitudes que definen la másca- 
ra video de esta aplicación. Por tanto, con ellas tam- 
bién se han definido las descripciones de los campos 
y las longitudes, por lo que se tienen los valores: 


D$(1) = «Nombre» LN(1) = 20 
D$(2) = «Apellido» LN(2) = 30 
D$(3) = «Dirección» LN(3) = 20 
D$(4) = «Ciudad» LN(4) = 12 
D$(5) = «Teléfono» LN(5) = 11 


Por tanto, en la fase de lectura del fichero es suficiente 
con indicar qué campo se desea, por ejemplo, para la 
«Ciudad», es el número 4. 
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La subrutina generalizada deberá prever un bucle de 
1 a 3 (número del campo seleccionado — 1) que sume 
las longitudes (LN(+)) de los campos que lo preceden, 
obteniendo así el valor de K, que debe utilizarse en la 
instrucción MID$. El otro parámetro es el valor LN(4), 
suministrado directamente en los parámetros. Aplican- 
do estos conceptos se obtiene una rutina que puede 
escribir o extraer un campo de cualquier fichero, natu- 
ralmente definido anteriormente. El campo así extraído 
puede transferirse a una matriz dedicada, con la que 
se realizará la comparación con el valor a buscar. De 
esta manera se obtiene una serie de rutinas parametri- 
zadas que realizan la búsqueda de un determinado 
valor en los registros de un fichero. Los parámetros a 
implantar son: 


1 /Nombre del fichero 
2 / Número del campo 
3 / Valor a buscar 


Tal y como se han descrito las funciones, aún no están 
en la forma definitiva, porque obligan al usuario a re- 
cordar la posición en la que ha definido cada campo. 
Por tanto, hace falta otra subrutina que descargue al 
usuario de esta tarea. 

Una vez introducidas las descripciones de los distintos 
campos en las variables D$(«w), no existe ninguna ra- 
zón para que el usuario deba recordar sus posiciones, 
puesto que es más sencillo utilizar una subrutina que 
las determine. En el ejemplo anterior hay que determi- 
nar la posición del campo «Ciudad», lo cual puede 
hacerse introduciendo la palabra «Ciudad» en cual- 
quier cadena y comparándola con el contenido de 
D$(*). La comparación tendrá resultado positivo con 
D$(4), y el índice de valor 4 será precisamente el nú- 
mero buscado. 

Es decir, la parametrización completa de la subrutina 
de búsqueda se obtiene previendo un bucle que se- 
leccione el campo particular entre los definidos. De es- 
ta manera ya no es necesario implantar flags a nivel de 
programación, sino que todos los parámetros pueden 
definirse mediante un coloquio, o sea son modificables 
por el usuario final. 

Queda todavía un punto por aclarar. En la data entry 
normal, las características de los campos: Nombres 
(D$(x)), Longitudes, etc., se asignan utilizando unas 
DATA, por lo que no son modificables por el usuario. 
Para obtener esta nueva funcionalidad hay que prever 
una data entry que permita la introducción de los valo- 
res por la data entry. Esta lógica, que parece un juego 
de palabras, en realidad sólo significa que los valores 
para estructurar la data entry (descripciones, longitu- 
des, etc.), al principio pueden ser considerados, a su 
vez, como datos y, por tanto, pueden ser leídos por 
una data entry. Esta data entry inicial, después de ad- 
quirir los valores en los buffers B$(+*) usuales, los trans- 
fiere a D$(*), LN(x). etc., evitando así la necesidad de 
las intrucciones DATA. 
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En este punto, un software estructurado así ya permite 
utilizar muchas funciones por introducción directa de 
los parámetros, sin ninguna modificación de los pro- 
gramas. Por tanto, supondremos que se dispone de 
una subrutina que, utilizando la data entry normal, atri- 
buye los valores a las variables D$(«+*), LN(«+), etc., que 
llamaremos «subrutinas de las definiciones». 

Para realizar la búsqueda de un determinado valor ha- 
ce falta una segunda rutina que, dada la descripción, 
pueda determinar el byte de principio del campo y 
compararlo con el valor. Esta rutina, que a nivel funcio- 
nal se reduce a un bucle para la búsqueda de la posi- 
ción y a una comparación, necesita 3 parámetros: 
Nombre del fichero, Nombre del campo y Valor a utili- 
zar como término de comparación. El nombre del fi- 
chero puede darse en la subrutina de definición, por lo 
que sólo son necesarios la descripción y el valor. 
Estas introducciones, que tienen el aspecto de un co- 
mando, pueden obtenerse a través de un coloquio, 
pero esto haría perder generalidad al software. Por 
tanto, hay que «inventar» frases que, oportunamente 
decodificadas, proporcionan al ordenador todos los 
elementos necesarios. 

Por ejemplo, la primera fase, que permite identificar las 
descripciones de los campos y las demás característi- 
cas, puede indicarse con la palabra «DEFINE». El or- 
denador, al analizar la cadena introducida, reconoce 
la palabra y pasa el control a la subrutina de las defini- 
ciones. De un modo análogo, la búsqueda puede acti- 
varse con la palabra «BUSCA». 

De esta manera se pueden identificar muchas funcio- 
nes de base a las que corresponderían otros tantos 
procedimientos, obteniendo así un lenguaje «por fun- 
ciones», y no por instrucciones. 

A este concepto debe prestársele mucha atención, 
puesto que es básico para la comprensión del progra- 
ma. Utilizando un lenguaje de programación normal, 
cada función debe ser desglosada en las instruccio- 
nes simples, y esto también requiere, además del aná- 
lisis, la preparación de los diagramas y del detallado. 
Por el contrario, disponiendo de un «lenguaje» que 
permita describir la función deseada a nivel de síntesis 
por parte del usuario final, las dos últimas fases ya no 
son necesarias. De hecho, disponiendo de subrutinas 
parametrizadas, basta con la relación de las funciones 
a realizar para obtener el programa; es decir, basta 
con la fase de análisis, que deberá ser más detallada y 
descriptiva que en el otro tipo de desarrollo. Esta ne- 
cesidad no es un defecto ni un aspecto negativo, sino 
una evolución de metodología. Finalmente, obsérvese 
que en el texto se ha empleado erróneamente el térmi- 
no «lenguaje» para definir este programa. En realidad 
no se trata de un verdadero lenguaje, puesto que en él 
faltan algunos atributos fundamentales para poder ser 
definido como tal. Sin embargo, es una aplicación muy 
avanzada y notablemente útil, que además permite 
una cierta forma de compilación. Es decir, puede utili- 
zarse tanto en interpretado como en compilado. 


Uso del programa 


Dadas las particularidades del tema, en primer lugar 
se ilustrarán las características del programa y algu- 
nas aplicaciones, dejando el análisis y los diagramas 
para más adelante. Esto es conveniente debido a las 
finalidades particulares del software, básicamente 
orientado a permitir el desarrollo de aplicaciones inclu- 
so por personas sin conocimientos específicos. 
Anteriormente se han analizado algunas funciones 
principales, comunes a un amplio conjunto de aplica- 
ciones, y precisamente en esta consideración se basa 
toda la aplicación. 

Como se ha indicado, la primera fase debe ser la de 
definiciones, o sea la introducción de las caracterís- 
ticas de los diferentes campos de datos que se utili- 
zarán a continuación. Sólo con posterioridad a esta 
fase es posible desarrollar los procesos previstos. 
Por tanto, el software debe prever por lo menos dos 
funciones: 


m Definiciones 
m Instrucciones 


En la primera se introducen todos los nombres simbóli- 
cos utlizados y los atributos de los campos asociados, 
y en la segunda se imparten las intrucciones, siempre 
a nivel de lenguaje «funcional». Además de las dos 
funciones principales, deben preverse voces acceso- 
rias, como por ejemplo la generación de un listado, 
por lo que en este caso también se tiene un menú 
cuya presentación es automática al activar el progra- 
ma. Las funciones previstas son: 


1 / Definiciones: permite introducir nombres y atributos 
en los campos (en número de registros) del fichero 

2 / Instrucciones: en esta fase se definen las funciones 
a realizar 

3 / Listado: permite la presentación en pantalla de las 
instrucciones introducidas 

4 / Ejecución: activa la realización de las instrucciones 


El orden en el que se han relacionado es el de priori- 
dad en las aplicaciones. Efectivamente, la primera fa- 
se a activar es la 1, y le siguen la introducción y el 
eventual listado. La última es la ejecución, o sea la 4. 


Definiciones. La función está dividida en dos partes: 
en la primera deben introducirse las características de 
los campos, o sea: 


Nombre del campo (descripción) 

Tipo (numérico, alfanumérico) 

Número de caracteres previstos (totales) 
Número de caracteres para la parte decimal 
Posición (columna, línea) en la pantalla 


El nombre del campo se utiliza para una doble función: 


1 / Como descripción en la presentación de las más- 
caras 

2/ Como elemento de identificación en las otras fun- 
ciones 


Por ejemplo, en la constitución de una dirección, uno 
de los datos a introducir es el nombre de la ciudad, 
por lo que un campo tiene como descripción la pala- 
bra «Ciudad», que también puede utilizarse como re- 
ferencia para todas las instrucciones previstas en el 
software. Como se ilustrará más adelante, una vez in- 
troducidos los datos, es posible realizar selecciones 
en base al valor de algunos campos que deben ser 
direccionados con el nombre dado en la fase de defi- 
nición. Por tanto, si quisiéramos extraer todas las di- 
recciones de Madrid, la condición que debería produ- 
cirse es Ciudad = Madrid. 

En la primera foto de la página 2352 se ha representa- 
do la primera máscara video de las definiciones. Los 
campos previstos son como máximo 10. El usuario de- 
be introducir su nombre, su tipo (columna Tipo), su 
longitud (en bytes), el número de sus cifras decimales 
(columna Dec) y su posición en la pantalla (Columna/ 
/Línea). Todos los datos deberán ser en lenguaje llano, 
salvo el tipo, que usa los acostumbrados códigos. 
Por ejemplo, para definir el campo Ciudad, de 12 ca- 
racteres de longitud y posicionado en la línea 5 a partir 
de la columna 10, debe introducirse: 


Nombre Tipo Lon Dec Col Lin 


CIUDAD 3 12 0 10 5 


Naturalmente, por tratarse de un campo alfanumérico, 
no se han previsto decimales, por lo que el contenido 
de la columna Dec es cero (en esta versión debe es- 
pecificarlo el usuario, pero podría preverlo el progra- 
ma muy sencillamente en base al código introducido 
en la columna Tipo). 

La segunda fase de las definiciones se utiliza para in- 
troducir el nombre del fichero y para seleccionar los 
campos que deberán memorizarse en él. La primera 
máscara incluye bien los campos a transferir al fichero, 
bien los campos que deberán ser utilizados por el pro- 
cedimiento pero no memorizados. Con esta segunda 
parte se indican los que constituirán el archivo, o sea 
se define el registro del fichero de datos. Por ejemplo, 
si se quiere formar una lista de clientes con el importe 
progresivo de sus pagos, sólo deberá contener los 
campos Nombre (alfanumérico) e Importe (numérico). 
En este último deberán ir sumándose las distintas can- 
tidades a medida que se realizan los pagos, por lo que 
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la máscara video deberá prever otro campo (numéri- 
Co) para la introducción del importe correspondiente a 
cada movimiento simple. Este valor deberá sumarse al 
progresivo y no se memorizará en el fichero. De ahí la 
necesidad de indicar, entre todos los campos existen- 
tes, cuáles deben quedar excluidos del mismo. En la 
2.* foto de la página 2352 aparece la máscara video 
correspondiente a esta segunda fase de definición. En 
ella es necesario indicar: 


1 / Nombre del fichero (en esta versión se ha previsto 
la gestión de un solo fichero) 

2 / Longitud en número de registros 

3 / Campos, entre los definidos anteriormente, que de- 
ben memorizarse. 


La selección de los campos a memorizar se realiza 
simplemente introduciendo la letra “S” al lado de cada 
nombre, cuya presentación, en el mismo orden en que 
se han introducido durante la primera fase, es auto- 
mática. Al final del primer procedimiento (Definicio- 
nes), articulado en estas dos fases: 


m Fase 1: Introducción nombres campos y atributos 
m Fase 2: Definición fichero y forma registro 


puede pasarse a la escritura del programa propiamen- 
te dicho, o sea a la introducción de las instrucciones, 


que ya no son de nivel elemental como en el Basic, 
sino que asumen el aspecto de verdaderos procedi- 
mientos, o mejor, de «bloques funcionales», cada uno 
dedicado a una finalidad específica. 


Instrucciones. La segunda función a activar, siempre 
con una máscara video, es la introducción de las ins- 
trucciones. En la última foto de la página 2352 se ha 
representado la máscara que aparece al seleccionar 
la voz 2 del menú principal. 

La estructura general se muestra en la figura de abajo. 
Los campos existentes son: 


" Número: es una numeración progresiva, análoga a 
la de los números de línea en Basic, que permite 
identificar cada procedimiento. 

" Instrucción: es el nombre del procedimiento que se 
desea activar entre los previstos (LEE, ESCRIBE, 
BUSCA, etc.), presentado más adelante. 

m Parámetro: generalmente indica la unidad de 1/0 ha- 
cia la que debe dirigirse el procedimiento; por 
ejemplo, LEE VIDEO significa que se desea una in- 
troducción con data entry. También puede asumir 
otros significados en función del tipo de instrucción. 

m Otros parámetros son los nombres de los campos, 
Operadores (aritméticos y lógicos) o referentes a 
otros procedimientos que deben utilizarse en el 
descrito en la primera línea. 


FORMATO DE LAS INSTRUCCIONES 


. Número Instrucción 


Número progresivo 


Otros parámetros 


Ejemplo: 
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Expresa la acción a realizar 


Parámetro 


Generalmente indica la unidad de l/O 


Nombres de campos 
Operadores 
Números de procedimiento 





INSTRUCCION LEE 


Funciones: permite la introducción de valores, numéricos o alfanuméricos, de los 


periféricos de entrada 


— Video 
— Cinta (C) 
— Disco (D) 


Sintaxis: 


Ejemplo: 


La unidad de entrada puede indicarse con sólo la primera letra, por lo que la 


instrucción puede convertirse en: 
20 LEE V 


Limitaciones: puede utilizarse un máximo de 10 campos 


Diagnóstico: en fase de introducción se controlan los nombres de la unidad de 
salida (sólo la 1.? letra) y la existencia en las definiciones de los campos 


utilizados 


El valor a asignar al campo Número debe ser introdu- 
cido por el operador, y de esta manera es posible anu- 
lar, insertar o modificar cualquier instrucción de la mis- 
ma manera que se gestionan los números de línea en 
el Basic. Durante la introducción aparecen máscaras 
sucesivas, cada una de ellas dedicada a una sola ins- 
trucción, hasta que el usuario introduce la palabra FIN, 
la cual termina la fase. 

Todas las instrucciones introducidas pueden presen- 
tarse en pantalla con la voz 3 (Listado) del menú prin- 
cipal, obteniendo un listado de la forma representada 
en la última foto de la página 2357 y en la primera de la 
página 2358. Este programa realiza las siguientes fun- 
ciones: 


m Lectura del video, línea 10 LEE V (V = Video) de: 
— NOMBRE 
— CODIGO 
— CALLE 

m Si CODIGO >= 2000, termina la ejecución (línea 15 
DECIDE... el último valor, 99, es la línea a la que se 
transfiere el control si la instrucción DECIDE tiene 
resultado positivo). 





"m Sino es así, escribe los datos en el disco, línea 20 
ESCRIBE D (D = Disco) 

m El conjunto se repite 15 veces, línea 30 REPITE 15, 
y los números que aparecen después de la instruc- 
ción (10, 15, 20) representan los procedimientos a 
llamar en el bucle. La palabra FIN, en este caso, 
representa el final del bucle y no del programa, que 
en cambio está en la línea 99. 


En este ejemplo se hace evidente el ahorro de tiempo 
que se obtiene utilizando el programa en lugar de las 
instrucciones Basic. Además, el programa es «auto- 
documentado», puesto que todas las funciones que 
realiza se indican clara y sintéticamente. Si estuviese 
escrito en Basic, disponiendo solamente del listado, 
sería muy difícil identificar las funciones que realiza y, 
viceversa, en este lenguaje quedan muy claras. 
Además, también es válido lo contrario, o sea si hay 
que construir una aplicación, en Basic es necesario 
pasar a los diagramas después de la fase de análisis. 
En cambio, en este caso, no se necesitan ulteriores 
desarrollos, puesto que el programa nace de la senci- 
lla relación de las funciones a realizar. 
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INSTRUCCION ESCRIBE 


Funciones: genera la introducción en el periférico de salida especificado valores 
contenidos en los campos indicados. Los periféricos previstos son: 


— Video (V) 
— Cinta (C) 
— Disco (D) 


Sintaxis: 


Ejemplo: 


La instrucción genera la memorización en disco del contenido del campo NOMBRE 
en el fichero especificado en la fase de definición 


Limitaciones: las mismas que las de la instrucción LEE 
Diagnóstico: como LEE 


Con respecto a esta instrucción debe observarse que no se ha previsto el número 


de registros en que escribir el dato. Este valor debe determinarse con otros 
procedimientos, como por ejemplo una búsqueda. 

Además, como periférico de salida no está prevista la impresora. Esta carencia 
puede superarse fácilmente incluyendo la sigla | (Impresora) y una subrutina que 
gestione la impresión 


INSTRUCCION BORRA 


Funciones: permite el borrado de la pantalla o de un fichero 


Sintaxis: 


Ningún otro parámetro 


Produce el borrado de la pantalla 


Limitaciones: ninguna 
Diagnóstico: sólo el control de la unidad 
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INSTRUCCION BUSCA 


Funciones: permite realizar elecciones, mediante comparaciones, en los registros de 
un fichero (en disco o en cinta). Como la memoria de masa (cinta o disco) 
se define al principio, no es necesario que venga especificada en la 
instrucción, por lo que, con respecto a las anteriores, no necesita el 
campo Parámetro (este campo, si se introduce, no se tiene en cuenta) 


Sintaxis: 


Ejemplo: 


En el fichero definido anteriormente busca el primer registro en el que el campo 
CIUDAD (también definido con anterioridad) contiene el valor “MADRID” 


Limitaciones: los operadores que pueden utilizarse son >, <, =,<=,>=,<> 
La selección puede realizarse en un solo campo cada vez 


Diagnóstico: El nombre del campo ha de estar entre los definidos 


N.B.: En la versión C-64, las dos comillas están sustituidas por una comilla 





Otra ventaja del uso de este macrolenguaje es la nota- 
ble estructuración que puede darse a los programas. 
Un software es «estructurado» cuando para cada fun- 
ción se utiliza una parte bien definida por sí misma. 
Esta implantación permite producir un software que 
puede modificarse fácilmente y adaptarse a distintas 
exigencias y, por tanto, es la actual tendencia seguida 
por todos los productores de software. 

Entre los aspectos negativos del lenguaje Basic, tam- 
bién hay el de la dificultad de estructuración. Su lógica 
se basa principalmente en la ausencia de subrutinas 
como entidades en sí mismas, lo cual conduce muy a 
menudo a producir un software «desordenado», con 
muchas instrucciones del tipo GO TO..., que son lo 
menos estructurado que puede utilizarse. 

Desde este punto de vista, son mucho mejores los len- 
guajes Fortran, Cobol y los más modernos, que se han 


creado con esta finalidad, como es el caso del Pascal. 
Si bien no constituye un lenguaje, el procedimientc 
descrito permite desarrollar aplicaciones de manera 
extremadamente estructurada, puesto que para cada 
función hay prevista una subrutina que se contempla 
como una «caja» a la que deben proporcionarse los 
valores (parámetros de entrada) para obtener otros en 
la salida. 

En las figuras de las páginas 2345 y 2350 se han re- 
presentado las informaciones principales acerca de 
las instrucciones previstas y algunos ejemplos de su 
utilización, los cuales son necesariamente muy esque- 
máticos y se complementarán e ilustrarán con detalle 
en los ejemplos de aplicación que siguen. 


Empleo del software. Dada la particular estructura de 
este programa, en su empleo es necesario seguir una 
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INSTRUCCION CALCULA 


Funciones: realiza el cálculo aritmético indicado. Obsérvese que no se ha 
introducido ninguna prioridad, por lo que el orden de ejecución es el de 


introducción 


Sintaxis: 


Ejemplo: 


Suma en TOTAL el contenido de los campos IMPORTE y MOVIMIENTO 


Limitaciones: los nombres de los campos deben ser todos definidos. Las 
operaciones previstas son: +,—, /, « 


Diagnóstico: controla la existencia de las definiciones y de los operadores utilizados 


determinada metodología. Ya se ha indicado la nece- 
sidad de realizar la fase de análisis con métodos y 
objetivos diferentes a los previstos para la escritura de 
programas en Basic. 

Para ilustrar el método correcto de enfoque para afron- 
tar un problema de programación con este software, 
es necesario tener bien presentes las finalidades y las 
limitaciones del procedimiento. 

El primer objetivo es el didáctico. El procedimiento, o 
mejor, el conjunto de procedimientos reunidos en el 
programa, permite que cualquiera escriba inmediata- 
mente los primeros y sencillos programas, porque sólo 
es necesario realizar correctamente el análisis. Este 
aspecto no debe ser despreciado de ninguna manera, 
porque es fundamental en la preparación cultural y, en 
general, en la formación. El estudio de un lenguaje de 
programación, incluso sencillo como el Basic, requiere 
empeño y continuidad, a veces tan fuertes, que pue- 
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den inducir a despreciar el otro aspecto fundamental 
del procedimiento: la lógica. 

En la preparación de un programa, muy a menudo se 
salta la fase de análisis, e incluso a veces el trazado de 
los diagramas de flujo. De esta manera se obtiene un 
programa que, si bien realiza las funciones requeridas, 
no puede ser gestionado porque está privado de orga- 
nización, o sea, no está estructurado. En cambio, si- 
guiendo este método, se hace evidente la necesidad 
de tener bien claros los distintos pasos a realizar, y 
para cada uno se activa una adecuada rutina dedica- 
da al mismo. En consecuencia, se tiene un elevado 
grado de estructuración y de modularidad. 

Por tanto, esta metodología acostumbra al usuario a 
aislar los factores principales de una aplicación y a 
resolverlos lógicamente, por lo que constituye una 
buena introducción al estudio de la programación. Na- 
turalmente, el software también puede utilizarse por 


quien ya conoce los lenguajes de programación, 
puesto que sólo se trata de desarrollar algunas aplica- 
ciones de manera sencilla e inmediata. 

Finalmente, obsérvese que aislando las distintas sub- 
rutinas que realizan las funciones previstas, se tiene a 
disposición una «biblioteca» completa de software pa- 
rametrizada y utilizable en cualquier aplicación. 
Como ya se ha indicado, la mejor manera de desarro- 
llar una aplicación con este software consiste en iden- 
tificar las funciones elementales que la componen, y 
en activar los correspondientes procedimientos. 

Por ejemplo, si se quiere construir una aplicación que 
permita gestionar un listín de direcciones, las funcio- 
nes de base serán: 


1 / Introducción datos, o sea formación del archivo 

2 / Búsqueda, en base a cualquier campo, para la ex- 
tracción de una determinada dirección (o sea que 
esta función es la interrogación del archivo) 


Las dos funciones son completamente diferentes, y 
pueden realizarse en dos programas distintos. 


Introducción. Para realizar esta función, que es un 
programa en sí misma, es necesario: 


1 / Definir los campos de datos, o sea cómo estará 
constituido el archivo 

2 / Definir el fichero, el nombre y la longitud 

3 / Introducir los datos 


Las dos primeras funciones están contenidas en el 
procedimiento de definición, y la tercera requiere algu- 
nas instrucciones. 

Para realizar las funciones de introducción de datos es 
necesario: 


1 / Leer en el video: procedimiento LEE 

2 / Comprobar si el operador desea terminar la intro- 
ducción: procedimiento DECIDE (por ejemplo, in- 
troduciendo la palabra FIN) 

3 / Escribir en el disco todo lo que se ha leído en la 
pantalla: ESCRIBE 

4 / Repetir el bucle: LEE, DECIDE, ESCRIBE un núme- 


INSTRUCCION DECIDE 


Funciones: activa el procedimiento indicado al cumplirse la condición especificada 


Sintaxis: 


Ejemplo: 


Envía a ejecución el procedimiento número 20 si el campo CIUDAD contiene el 
nombre MADRID 


Limitaciones: los campos deben ser todos definidos. Los operadores previstos son 
>, <, =,>=,<=,< >. No realiza controles de congruencia, por lo 
que si el campo es definido, contiene caracteres y el valor de 
comparación es numérico, no se tiene diagnóstico 


Diagnóstico: sólo en la definición de los campos 


N.B.: en la versión C-64, las dos comillas están sustituidas por una comilla 
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INSTRUCCION REPITE 


Funciones: permite el desarrollo de un bucle para el número de veces indicado. En 
el bucle pueden reclamarse otros procedimientos hasta un máximo de Y 


Sintaxis: 


Ejemplo: 


Los procedimientos 20, 40, 80 y 11 se repiten 3 veces. La palabra FIN es necesaria 
para indicar dónde termina el bucle y no puede omitirse 


Limitaciones: los eventuales cálculos a realizar en el interior del bucle deben 
escribirse en un procedimiento y llamarse indicando su número 


Diagnóstico: sólo en los nombres de los campos 


Obsérvese que en esta instrucción, el campo (Parámetro), que normalmente 
contiene la indicación del periférico interesado, en cambio se utiliza para especificar 
el número de veces que debe repetirse el bucle 





ro de veces igual al número de registros asignados 
al fichero 


Terminado este análisis, mínimo, puede escribirse el 
programa simplemente completando las instrucciones 
(4 en total) con los oportunos parámetros. 


Interrogación. Estructurando esta función como un 
programa en sí misma, es necesario introducir nueva- 
mente las definiciones anteriores, por lo que las dos 
fases de introducción son idénticas. 

En realidad, si la función se realiza de manera separa- 
da, puede evitarse la segunda introducción de las de- 
finiciones. Efectivamente, basta con escribir de nuevo 
las instrucciones con los mismos números de línea 
que las anteriores para obtener su sustitución, con lo 
que permanecen las definiciones y no deben introdu- 
cirse. 

El desarrollo del programa, o sea las instrucciones, en 
cambio, debe escribirse en base a la nueva utilización 
del archivo. La finalidad de este programa (recuérde- 
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se que su fisonomía de nuevo programa sólo es para 
sencillez, porque podría tratarse de una extensión del 
anterior) es la de buscar en un fichero la primera direc- 
ción correspondiente a una determinada ciudad, por 
lo que las funciones que se deben realizar son las si- 
guientes: 


"= Introducción del nombre de la ciudad a seleccio- 
nar, procedimiento LEE (en la pantalla) 

m Búsqueda del primer registro que contiene el valor 
introducido (en el campo correspondiente), proce- 
dimiento BUSCA 

m Escritura en la pantalla de todos los datos conteni- 
dos en el registro así seleccionado, procedimiento 
ESCRIBE 


De nuevo vuelve a llamarse la atención sobre la extre- 
mada sencillez y sinteticidad de las instrucciones. Por 
ejemplo, la función 


20 BUSCA CIUDAD 


para ser realizada en Basic, habría necesitado varias 
decenas de instrucciones (determinación del posicio- 
nado del campo en el registro, apertura del fichero, 
bucle de lectura, extracción del campo y compara- 
ción), además de presentar dificultades de interpreta- 
ción. Sin embargo, téngase en cuenta que el lenguaje 
Basic no es superado por esta aplicación, pues todo el 
software es en Basic. Es decir, se produce la misma 
relación que hay entre el Basic y el Assembler: en Ba- 
sic, algunos símbolos (nombres de las instrucciones, 
etc.) no hacen otra cosa que activar subrutinas escri- 
tas en Assembler. Análogamente, este «macrolen- 
guaje» activa subrutinas escritas en Basic. 


Módulo ilustrativo. La elasticidad del programa tam- 
bién permite su empleo para generar una aplicación 
terminada e ilustrar el propio programa. La estructura y 
el contenido de esta aplicación pueden ser definidos 
por el usuario. A continuación se presenta un ejemplo 
destinado solamente a proporcionar ulteriores explica- 
ciones sobre el uso del programa. Ya se ha puntualiza- 
do que el mejor enfoque, utilizando este software, con- 
siste en realizar el análisis «por funciones», o sea en 
definir paso a paso, con palabras, lo que se desea 
obtener sin entrar en detalles de «cómo obtenerlo», 
porque las macroinstrucciones permiten una traduc- 
ción inmediata a nivel máquina. 

En este ejemplo se ha tomado como objetivo la ilustra- 
ción de las instrucciones simples que constituyen el 
lenguaje. Por tanto, es necesario crear un archivo que 
contenga las explicaciones de cada instrucción, con 
acceso mediante una clave que indique la finalidad de 
la instrucción. Es decir, la aplicación debe poder leer 
en la pantalla la función sobre la que se desean expli- 
caciones, y presentar la correspondiente instrucción. 
Por tanto, para cada instrucción, el archivo debe con- 
tener: 


— FINALIDAD 
— SINTAXIS 
— PARAMETROS 


Menú principal. La selección de la función deseada, 
como de costumbre, se obtiene introduciendo el 
número correspondiente. 

La primera función a activar es la 1 (Definiciones), 
siguen la 2 (Instrucciones) y, al final, la 4, o sea el 
desarrollo del programa. La voz 3 (Listado) puede 
activarse en cualquier momento. 





— NOTAS 
— EJEMPLO 


Por ejemplo, la instrucción LEE puede ilustrarse así: 


FINALIDAD : Lectura de datos en pantalla 
SINTAXIS : LEE VIDEO 

PARAMETROS : Nombre de un campo 
NOTAS a 

EJEMPLO : LEE NOMBRE 


En la fase de utilización, al introducir por ejemplo la 
frase «Lectura datos pantalla» (a memorizar en el 
campo FINALIDAD), el programa realiza la búsqueda 
en el fichero y presenta las informaciones contenidas 
en el mismo. La aplicación está estructurada en dos 
fases. En la primera se introducen los datos que cons- 
tituirán el archivo, y en la segunda es necesario buscar 
un determinado registro en base al contenido de un 
campo introducido por el usuario. Por tanto, se trata de 
una aplicación muy similar a la precedente (listiín de 
direcciones), articulada en dos programas: el primero 
de creación, utilizando para los nombres de los cam- 
pos los representados (FINALIDAD, SINTAXIS, etc.), y 
el segundo de búsqueda en el campo FINALIDAD, por 
lo que debe prever la introducción del dato a buscar 
(en el campo FINALIDAD) y la instrucción BUSCA. 

El conjunto podrá incluirse en un bucle (instrucción 
REPITE) para la presentación sucesiva de una serie de 
datos, o puede agotarse con una sola búsqueda. 
Obsérvese que después de haber creado el archivo, 
nada impide desarrollar aplicaciones utilizando cam- 
pos diferentes de FINALIDAD, obteniendo así distintos 
métodos de acceso; por ejemplo, utilizando el campo 
SINTAXIS, se puede tener la comprobación del cono- 
cimiento del lenguaje realizando la comparación entre 
el dato introducido por el usuario y los datos memoní- 
zados en el disco. 

Finalmente, obsérvese que esta misma estructura 
puede utilizarse para comprobar el conocimiento de 
cualquier otro lenguaje de programación. 


AAA 
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Definiciones. Se ha seleccionado la voz 1 y el sistema 
presenta la máscara para la introducción de los 
parámetros correspondientes a los campos que se E 6.S Ediciones Forum, S 
utilizarán a continuación. En esta fase hay que definir E o 

tanto los campos a transferir al fichero como los 
necesarios sólo para procesos intermedios. La 
elección entre memorizar o no se realiza con la 
máscara siguiente. 


Terminada la primera parte de la fase de Definiciones, 
hay que introducir los parámetros correspondientes a 
la gestión del fichero datos, como nombre y longitud 
(en número de registros). En la parte inferior de la 
máscara, el programa indica todos los nombres de los 
campos definidos anteriormente; introduciendo la letra 
“S”, el usuario debe indicar los que desea memorizar. 





Al final de las Definiciones, o sea después de haber 
completado la máscara anterior, hay que indicar qué 
tipo de soporte se utilizará para el fichero. 
Respondiendo “S” a la pregunta presentada en la 
máscara de aquí al lado, se activa la gestión del disco. 


Instrucciones. Todas las instrucciones se introducen 
con la misma máscara, naturalmente variando el 
formato según el tipo de instrucción. 
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Listado. Seleccionando la voz 3 se tienen dos 
opciones: listado en pantalla o en impresora. La 
elección entre una y otra se obtiene respondiendo 
102ala pregunta presentada en la máscara. 


Sintaxis de la instrucción LEE. La foto muestra la 
estructura de la instrucción LEE direccionada a la 
pantalla. La línea es la número 10 y los campos, que 
serán leídos por el ordenador, son: nombre, código, 
calle. El tipo, la longitud y su posición en la pantalla 
deben haberse definido previamente (durante el 
desarrollo de la voz Definiciones). 


Sintaxis de la instrucción ESCRIBE. Direccionada al 
disco, y por tanto destinada a memorizar en el fichero 
definido previamente los valores contenidos en los 
campos especificados, esta instrucción y la 
precedente constituyen un ejemplo de programa que 
puede leer en la pantalla algunos datos y memorizarlos 
en el disco. Obsérvese que la adquisición desde la 
pantalla (instrucción LEE anterior) contiene una 
complicada data entry. Para desarrollar en Basic un 
programa que proporcionara los mismos resultados, 
serían necesarias varias decenas de instrucciones. 


Instrucción REPITE. Las dos fotos anteriores 
muestran las instrucciones necesarias para gestionar 
un grupo de datos, o sea una sola memorización en 
disco. Utilizando la instrucción REPITE, puede 
generarse un bucle que active las dos instrucciones 
anteriores para un número cualquiera de veces. 

La instrucción REPITE mostrada en la foto genera un 
bucle que reclama 15 veces las instrucciones 10, 15 
y 20. La palabra FIN que aparece en la máscara 
constituye el final del bucle, no del programa. 
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Instrucción DECIDE. El usuario desea “saltar” a 

la instrucción n.* 99 (que siempre indica el final del 
programa) al cumplirse la condición nombre = “fin”. 
Este método puede utilizarse para interrumpir un bucle 
antes de cumplirse el número de repeticiones 
previstas. 





Instrucción CALCULA. Permite realizar algunas 
Operaciones sencillas. La foto muestra el cálculo 
de un valor (en el campo Total) como la suma de los 


contenidos de dos campos de nombres “uno” y “dos”. GATITO 





Instrucción BORRA. La instrucción se dirige al video 
y, por tanto, no contiene otros parámetros. 





Instrucción BUSCA. El usuario desea seleccionar, 
entre todos los datos presentes en el fichero, el 
correspondiente al valor “Madrid” en el campo ciudad. 
Utilizando esta instrucción puede realizarse una 
selección de datos en base al contenido de cualquier 
campo. Es decir, se dispone de una estructura que 
tiene tantas “claves” de acceso como campos 

lo constituyen. 
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La foto muestra la instrucción que debe terminar cada 
programa, constituida por la palabra “fin” e insertada 
en la línea 99. 





Al final de cada instrucción, el procedimiento realiza 
un control de sintaxis y emite un diagnóstico. La foto 
muestra el caso de una instrucción introducida 
correctamente. 


Si la sintaxis no es correcta o se emplea un nombre 
de campo no definido, la introducción es anulada y 
el usuario debe volver a escribir toda la instrucción. 


La foto muestra una parte del listado en la pantalla. 
Para permitir su lectura, todo el listado se presenta 
en partes sucesivas con espera de un acuerdo 
(introducción de un carácter) 
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Después de la introducción, que activa el acuerdo para 
proseguir la presentación del listado, se muestra la 
parte siguiente del programa. 


La foto muestra la primera parte de un programa de 
ejemplo para la gestión de un listín. La línea 10 permite 
la introducción, desde la pantalla, de los datos. La 20 
se utiliza para terminar el programa antes de las 20 
direcciones previstas (ver la foto siguiente) bajo la 
condición NOMBRE = “FIN”, 

La línea 30 permite la memorización en el disco de los 
datos introducidos (leídos por el ordenador) con la 
línea 10. Obsérvese que las unidades de l/O (Video y 
Disco) pueden indicarse únicamente con la primera 
letra (V y D). 


La foto muestra la segunda parte del programa, 
constituida por la instrucción REPITE, que activa un 
bucle sobre las instrucciones precedentes (10, 20, 30) 
para 20 veces, y por la última línea (99), que con el 
código FIN termina el programa. 


La foto muestra la fase de definiciones necesarias para 
generar tres campos numéricos de nombres TOTAL, 
UNO y DOS. 





2356 


Los campos son gestionados en un programa que 
prevé la lectura en la pantalla de UNO y DOS 
(instrucción 10), el cálculo de TOTAL = UNO + DOS 
(línea 20), la presentación del resultado (TOTAL, línea 
30), y la repetición de todo por 5 veces. 


La foto muestra el resultado de la instrucción 10 de la 
máscara anterior. El usuario ha introducido el valor 127 
en el campo UNO y está terminando de introducir otro 
valor en el campo DOS. 


Al final de la introducción se calcula el total (línea 20) y 
se presenta el resultado (línea 30). 


En el procedimiento hay incluidos algunos controles. 
La foto muestra el diagnóstico que aparece por errores 
en el disco. 


4003 
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La lógica del programa 


La lógica del procedimiento puede resumirse en los 
siguientes pasos: 


1 /El sistema debe poseer un conjunto de rutinas 
completamente parametrizadas, que, por área de 
datos, utilice las mismas variables para obtener fá- 
cilmente los intercambios de una a otra 

2 / El usuario, mediante frases simbólicas (instruccio- 
nes), proporciona a la máquina la dirección de la 
rutina que desea activar. Los eventuales paráme- 
tros necesarios para su desarrollo se introducen en 
el área de datos comunes 

3 / En este punto sólo hace falta un intérprete que ana- 
lice las palabras, o frases, de direccionado y active 
la oportuna rutina 


En la página siguiente se ha representado el esquema 
de principio del programa. La primera parte se dedica 
a las definiciones (campo y ficheros) y a la introduc- 
ción de las instrucciones, y la segunda a su desarrollo. 
Durante la fase de definición y de introducción de las 
instrucciones se realiza un diagnóstico para evitar el 
uso de campos no definidos o de instrucciones no co- 
rrectas, por lo que en la fase de ejecución no son ne- 
cesarios otros controles. En realidad, esta metodolo- 
gía no impide la producción de errores durante la eje- 
cución. El diagnóstico inicial puede detectar errores 
formales, precisamente del tipo de campos no defini- 
dos o de instrucciones no reconocidas, pero no puede 
determinar eventuales errores «lógicos», como por 
ejemplo la división por cero. Por tanto, este tipo de 
error es interceptado por el sistema operativo de la 
máquina (recuérdese que si bien el sistema utiliza un 
lenguaje particular, en realidad trabaja bajo Basic) y 
da lugar a los usuales diagnósticos que, además, for- 
man el bloque de la ejecución. Sin embargo, como 
implantación puede incluirse una rutina de «trampa» 
para los errores que detecte y emita un diagnóstico 
preparado por el usuario en lugar de hacerlo el siste- 
ma. Esta implantación está estrechamente ligada al ti- 
po de máquina utilizado, por lo que, por motivos de 
generalización, no se comenta en los listados presen- 
tados. La segunda fase, ejecución, puede resumirse 
en un bucle que realiza las siguientes funciones: 


1 / Toma una instrucción de la memoria 

2 / La interpreta (toma del nombre simbólico el puntero 
a la subrutina que realiza la función indicada) 

3 / Llama la subrutina «de sistema» así identificada 


Más adelante, en el gráfico de la página 2360, se ha 
representado un esquema que muestra cómo se uti- 
lizan los datos introducidos en la fase de definición (de 
los campos): 
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= Nombre del campo (p.e. DIRECCION): se utiliza 
para dos finalidades, presentar en las máscaras vi- 
deo la descripción del campo al que se refiere y 
como referencia en todas las instrucciones. Una 
vez definido y memorizado un nombre, todas las 
instrucciones y también las definiciones del fichero 
pueden utilizarlo. Por ejemplo, si en la instrucción 
LEE hay el nombre del campo DIRECCION, a tra- 
vés de los atributos memorizados conoce su longi- 
tud, su tipo y su posicionado en la pantalla y, por 
tanto, puede activar la rutina para su lectura (estruc- 
turalmente muy similar a la de la data entry) 

m Tipo (p.e. 3): es un código numérico que indica el 
tipo al que pertenece el campo, con lógica y funcio- 
nes análogas a las de la data entry 

= Longitud (p.e. 20): define la longitud del campo. Se 
utiliza para la formación del registro (la longitud es 
igual a la suma de las longitudes de los campos 
que lo constituyen), para la extracción del valor del 
campo de un registro (por ejemplo, en el procedi- 
miento BUSCA) y en la preparación y la gestión de 
la máscara video 

m Número de decimales (p.e. 0): define las cifras de- 
cimales de los campos numéricos. Se utiliza en la 
gestión y la presentación de la máscara video. El 
formato exacto de escritura en el fichero se obtiene 
automáticamente de estas gestiones que insertan 
en la posición justa los símbolos (coma o punto) de 
separación entre la parte entera y la decimal del 
valor numérico 

m_ Columna y línea (p.e. 2, 4): definen el posicionado 
del campo en la pantalla. Por tanto, sólo se utilizan 
en las funciones de 1/0 correspondientes a este pe- 
riférico 


En lo que respecta al formato de las instrucciones, el 
significado de los distintos parámetros es: 


= Número (p.e. 21): define la posición de la instruc- 
ción en el interior del área de memoria dedicada a 
contener el listado del programa. Su empleo es ne- 
cesario para poder insertar líneas en un listado ya 
existente y, además, puede utilizarse como puntero 
en la decodificación y en la memorización del pro- 
grama en el disco 

m Instrucción (p.e. LEE VIDEO): mediante el nombre 
simbólico, identifica la subrutina a activar. El meca- 
nismo de decodificación y de activación de la 
subrutina se ilustra más adelante 

= Nombres de los campos (p.e. DIRECCION): deter- 
minan en qué campos, entre los definidos anterior- 
mente, deben realizarse las diversas funciones es- 
pecificadas en la subrutina identificada por la ins- 
trucción. 


Fase de definición. Como ya 
se ha indicado, la primera fun- 
ción a activar durante el uso 
del software es el procedimien- 
to de definición, a su vez dividi- 
do en dos fases. En la primera 
se definen los nombres simbó- 
licos de todas las variables que 
se van a utilizar y de sus atribu- 
tos. En la segunda se especifi- 
can cuáles, entre los introduci- 
dos, deben transferirse al dis- 
co. Esta segunda fase es nece- 
saria para permitir el uso de va- 
riables «locales», o sea que 
puedan utilizarse para una apli- 
cación particular sin interesar, 
directamente, los datos memo- 
rizados en el fichero. 

Por ejemplo, se desea gestio- 
nar unas existencias de alma- 
cén con los siguientes campos: 


m Nombre del artículo 
m Existencia 
m Costo 


Los valores de los 3 campos 
previstos deben introducirse 
en la fase de generación para 
todos los artículos que se de- 
sea gestionar. Por tanto, la for- 
mación del archivo consiste en 
un bucle de lectura de vídeo y 
escritura en disco. Terminada 
esta fase, debe actualizarse la 
existencia, sumando la canti- 
dad de llegada y restando la 
de salida. Por tanto, es necesa- 
rio un nuevo campo (Movimien- 
to) en el que escribir la canti- 
dad a mover. Sin embargo, es- 
te valor no debe memorizarse, 
puesto que su uso se limita al 
desarrollo del cálculo de una 
nueva existencia. Por tanto es 
necesario un programa (dife- 
rente al de generación) en el 
que, además de los campos 
que componen el registro, se 
defina el campo de movimien- 
tos, cuyo contenido se utilizará 
para calcular la nueva existen- 
cia, que deberá memorizarse 
en el fichero. Este programa, 
por ejemplo para la llegada de 
nueva mercancía, se compone 
de los procedimientos: 


Nueva 
instrucción 


DIAGRAMA DE FLUJO DE PRINCIPIO 
Erre ] El bloque resume las dos fases 


en que se divide la introducción: 
Definiciones e Instrucciones 


En la fase de introducción 
se realiza un diagnóstico 


Las instrucciones aceptadas 
se transfieren a la memoria 


Guin : 
Este bloque analiza la 
instrucción y predispone 


el puntero a la subrutina a 
realizar 


y 

y 

"Tz 

y 

o 

y 

az 

y 

Y 


Principio bucle de desarrollo 
de instrucciones 


Desarrollo de la 


l subrutina decodificada J 


Apunta a la próxima instrucción 


Fase de definiciones y 
HA entrada instrucciones 


ma, FASe de desarrollo 


mm. Condición de error 
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DEFINICIONES DE LOS CAMPOS 


Referencia para los otros 
procedimientos 


y 


O 


decimales 


Datos para la 
máscara vídeo 


Longitud 
total 
y número 
de 
Columna y 
línea en la 
pantalla 


Forma el Al 


registro posicionado 
en la pantalla 


INTRODUCCION INSTRUCCIONES 


E 
7 


Utilizado para posicionar la 
instrucción en orden con 
respecto a las otras 





m Definiciones: como el programa de generación, pe- 
ro con el campo MOVIMIENTO además, en el que 
se introducirá la cantidad a sumar o a restar. Este 
campo no deberá transferirse al fichero, por lo que 
en la segunda parte del procedimiento de defini- 
ción, al lado del nombre MOVIMIENTO, deberá es- 
cribirse una N (no, no memorizar) 

mu Lectura del vídeo de los campos NOMBRE (del ar- 
tículo) y MOVIMIENTO 

= Búsqueda, en el fichero, del artículo (BUSCA NOM- 
BRE) 

m Cálculo de la nueva existencia (existencia leída en 
el disco + MOVIMIENTO) 

"E Memorización del nuevo dato, o sea de los campos 
definidos a transferir al disco, menos MOVIMIENTO. 


Este ejemplo utiliza dos procedimientos similares para 
los dos tipos de movimientos previstos (entrada y sali- 
da), mientras que, definiendo un segundo campo «lo- 
cal», es posible incluir los dos cálculos en el mismo 
procedimiento. Por ejemplo, creando un campo en el 
que esté contenido el tipo de movimiento (entrada, sa- 
lida), con el procedimiento DECIDE se puede determi- 
nar si el cálculo es una suma o una resta, unificando 
así los dos modos de desarrollo. 
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Después de la decodificación, 
es convertido en puntero para la 


selección de la rutina 


El campo se compara con los 
introducidos () y de éste se 
toman las características 


El diagrama de principio correspondiente al procedi- 
miento de definición y de introducción de las instruc- 
ciones se ha representado en la página siguiente. An- 
tes de proceder a su descripción, son necesarias al- 
gunas precisiones de carácter general. El software se 
ha desarrollado de manera que gestione tanto la uni- 
dad de disco como la de cinta: la particular estructura 
de este segundo periférico necesita siempre la carga 
en memoria de todo el fichero datos, por lo que para 
ello es necesario reservar una importante área de me- 
moria, limitando además el número máximo de regis- 
tros para cada fichero. En cambio, si sólo se tomase en 
consideración la unidad de disco, todos estos proble- 
mas quedarían superados. Además, y siempre por es- 
tos motivos, no se ha previsto la posibilidad de memo- 
rizar los programas para volverlos a utilizar, puesto que 
se trata de una función accesoria poco importante, ya 
que los programas escritos con este software se redu- 
cen a unas pocas líneas y, por tanto, es muy sencillo 
volverlos a escribir. 

En el mismo gráfico se presentan los tres pasos del 
procedimiento. Inicialmente se activa la definición de 
los nombres y de los atributos de los campos que se 
prevé van a utilizarse. Esta parte, como las otras, sólo 
es una aplicación particular de la subrutina de gestión 


DEFINICIONES E INTRODUCCION INSTRUCCIONES: DIAGRAMA DE PRINCIPIO 


La primera máscara 
(definiciones, fase 1) permite 
introducir los datos de definición 
de los campos (nombre, tipo, 
longitud, etc.) y se gestiona con 
la data entry habitual 

Los datos así introducidos están 
en B$(+*), que deberá utilizarse 
en los otros pasos del programa. 
Por tanto, su contenido debe 
salvarse, o sea memorizarse en 
otra matriz (B2$(x)) 


La segunda máscara contiene el 
nombre del fichero, su longitud y 
las indicaciones de los campos 
que formarán el registro 


ed 


Principio bucle 

introducción instrucciones 
O ] La introducción de las 
instrucciones aún se obtiene con 
la data entry. Cada instrucción 
completada por los parámetros 
se transfiere a un área reservada 
de memoria 


E] 
y 
EE 


La introducción termina con la 
palabra FIN en el campo de los 
códigos de instrucción 


—>0 


n 


vi 


A la carga de una nueva 
instrucción 


z 
o 


A 


AH 


En la salida, los principales parámetros son: 

B2$(*) Contiene los nombres de los campos, el tipo, la longitud y todos los demás atributos 
P75(«) Contiene los nombres de los campos utilizados en las instrucciones 

SK$(+*) Indica los campos que deberán transferirse al fichero 
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de la data entry, por lo que no son necesarios ulterio- 
res comentarios. Sólo deben tenerse en cuenta even- 
tuales definiciones preexistentes. Por ejemplo, en la 
gestión de almacén ilustrada anteriormente, en la defi- 
nición correspondiente a la escritura del programa de 
actualización, hay que tener en cuenta lo que está es- 
crito en el programa de generación. 

En la actualización se necesita tan sólo el nombre del 
artículo para su identificación, la existencia y la canti- 
dad movida; por tanto, con respecto al programa de 
generación, a fines del desarrollo del programa no es 
necesario definir el campo «Costo». Sin embargo, en 
realidad, este campo debe preverse aunque no se uti- 
lice, porque si no se hiciese así, este campo tendría 
una longitud que no correspondería al formato real del 
fichero, con los consiguientes errores. 

Sin embargo, hay que tener en cuenta que esta posibi- 
lidad de redefinición puede aprovecharse para au- 
mentar las potencialidades del programa, introducien- 
do una forma de estructuración de los datos. 

Por ejemplo, supongamos que se quiere construir un 
archivo en el que memorizar los datos correspondien- 
tes a una biblioteca, y precisamente: 


1 / Título 

2/ Autor 

3 / Materia tratada 

4 / Tema 

5 / Armario en que está el volumen 
6 / Estante 

7 / Persona que lo tiene en lectura 
8 / Fecha en que se ha prestado 
9 / Fecha de devolución 


Algunos de estos campos presentan afinidad, por 
ejemplo, la materia tratada y el tema (campos 3 y 4) 
pueden resumirse como «claves de acceso», los cam- 
pos 5 y 6 pueden convertirse en «posición», etc. Por 
tanto, el formato puede convertirse en: 


1 / Registro (título + autor) 

2 / Clave (materia + tema) 

3 / Posición (armario + estante) 

4 / Préstamo (suma de los campos 7, 8 y 9) 


Naturalmente, los distintos campos deberán tener una 
longitud igual a la suma de los que los constituyen. La 
estructura de datos podrá redefinirse entonces en ba- 
se a la aplicación particular. 

Por ejemplo, si se desea buscar los libros escritos por 
un determinado autor, conviene adoptar la primera es- 
tructura activando el procedimiento BUSCA en el cam- 
po 2 (Autor), mientras que si se desea saber dónde se 
encuentra un determinado volumen, conviene la se- 
gunda, activando el procedimiento BUSCA en el cam- 
po 1 (Registro = título + autor). 

Esta metodología es muy importante, puesto que el 
procedimiento BUSCA sólo puede utilizar un campo, y 
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sin una oportuna estructuración de los datos sería de- 
masiado limitativa y no permitiría más selecciones si- 
multáneas. En cambio, con el método expuesto pue- 
den redefinirse varias claves de acceso en función de 
las necesidades específicas de la aplicación. Final- 
mente, obsérvese que aplicando correctamente esta 
metodología, y con oportunas implantaciones en el 
software, es posible construir una Base de Datos de 
tipo «relacional», muy difícil de gestionar en Basic, 
costosa si se realiza con otros métodos, de difícil eje- 
cución en sistemas pequeños y, por esto, práctica- 
mente desconocida en los ordenadores domésticos. 
En lo referente a la simbología adoptada en los diagra- 
mas de estas páginas, hay que recordar que: 


m Los números de línea en que empiezan las distintas 
subrutinas se refieren únicamente a la versión C-64; 
para el MSX y el Apple deben considerarse mera- 
mente indicativos. Las subrutinas representadas, si 
bien son comunes a todos desde el punto de vista 
lógico, presentan notables diferencias de desarro- 
llo; baste pensar por ejemplo en la generación de 
una cadena en blanco, que en algunas máquinas 
(sistema MSX) se resuelve con una sola instrucción 
(SPACES(x*)), mientras que en otras se necesita un 
bucle. En la gestión del disco también hay impor- 
tantes diferencias 

m No se han dado detalles de presentación ni de ges- 
tión de máscaras porque, después de su reiterado 
empleo en programas anteriores, se supone que 
están suficientemente claras. 


Reconocimiento instrucción. En la segunda parte de 
las definiciones, en el momento de la introducción, ca- 
da instrucción es «reconocida», o sea se realiza un 
control para comprobar que la función requerida (ins- 
trucción) pertenece a las previstas. En la página si- 
guiente se ha representado el diagrama de la subruti- 
na que realiza este control. Cada instrucción es reco- 
nocida analizando únicamente los 3 primeros caracte- 
res, después la subrutina la extrae y efectúa una com- 
paración con el contenido de la matriz FR$(«), que 
contiene las siglas de las instrucciones previstas. 

Si el control es positivo, la instrucción se da como váli- 
da y el flag lO asume el valor numérico correspondien- 
te a la posición en la que se ha hallado la instrucción 
en la matriz FR$(*); si no es así, lO se mantiene en el 
valor O. Por tanto, como respuesta de la rutina se ten- 
drá el puntero lO al valor O si se está en error o a un 
valor distinto si la instrucción es reconocida. 

El empleo de este indicador no se limita sólo a la seña- 
lización de error, sino que puede extenderse a una co- 
dificación numérica de la instrucción. 

Una primera y obvia implantación del programa con- 
siste en incluir en él la función de memorización y re- 
lectura para su. ulterior utilización. En esta fase, para 
ahorrar espacio, en lugar de memorizar las instruccio- 
nes en forma descriptiva, tal y como se introducen, 


RECONOCIMIENTO DE INSTRUCCIONES 


En la llamada, la matriz FR$(+) debe contener las 
primeras 3 letras de los nombres de procedimientos activos 


Los primeros 3 caracteres del 
nombre del procedimiento se 
transfieren a la variable A$ 


Principio bucle de búsqueda 


El flag lO contiene 
el puntero al 
procedimiento 


Salida en error por procedimiento 
no hallado 


Los procedimientos se reconocen utilizando los tres primeros caracteres del nombre, por lo 
que las cadenas que constituyen la matriz FR$(*) de comparación son todas de 3 caracteres 


Nombre del procedimiento FRS(*) 
LEE LEE 
ESCRIBE ESC 
BORRA BOR 
BUSCA BUS 
CALCULA CAL 
DECIDE DEC 
REPITE REP 


Puntero (10) 
1 


(*) En éste, así como en los siguientes diagramas, los números de línea se refieren únicamente 
a la versión C-64. Para el MSX y el Apple, deben considerarse puramente indicativos 


conviene transformarlas en numéricas y memorizar su 
valor. Por ejemplo, la instrucción LEE se convierte en 
1, la BUSCA en 4, y así sucesivamente, con un ahorro 
de muchos bytes. 


Sin embargo, al activar esta implantación, el listado' 


que se obtiene después de la relectura ya no puede 
ser en «lenguaje llano», porque las instrucciones han 
sido sustituidas por un código numérico. Por tanto, pa- 
ra permitir su lectura es necesario regenerar el nombre 
simbólico, lo cual puede conseguirse, limitándose a 
los 3 primeros caracteres, utilizando la matriz FR$(x). 





Así, con el ejemplo anterior, para obtener las siglas de 
las instrucciones codificadas, basta con utilizar 
FR$(1), que contiene "LEE” y FR$(4), que contiene 
"BUS”. Si no se desea utilizar esta forma abreviada, 
habrá que memorizar en FR$(x*) todo el nombre de la 
instrucción, obteniendo una reconstrucción completa. 
En el diagrama se han representado las siglas y los 
valores numéricos de las 7 instrucciones previstas. En 
los listados, la matriz FR$(x) tiene un dimensionado su- 
perior en previsión de nuevas instrucciones que po- 
drían ser creadas e introducidas por el usuario. 
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Por último, obsérvese que en esta subrutina no se rea- 
liza ningún control sobre los campos y, por tanto, para 
asegurar la exactitud de la instrucción, el control debe 
hacerse en otro punto. 


Búsqueda de un campo y extracción atributos. En 
la descripción de la subrutina anterior, se ha indicado 
la necesidad de prever un control de existencia de las 
definiciones de los campos utilizados en las instruccio- 
nes. Abajo se ha representado la subrutina que realiza 
esta función, y que se utiliza en muchos puntos del 
programa. En algunas instrucciones, el simple recono- 
cimiento no es suficiente, y es necesario extraer tam- 
bién los atributos del campo utilizado. A este fin se ha 
creado la subrutina que se muestra en la página si- 
guiente, que también incluye la función realizada por 
la anterior (comprobación de existencia). La subrutina 
de búsqueda de un campo pide, en la llamada, la im- 
plantación de la variable K al valor correspondiente al 
campo que se busca. Al escribir las instrucciones, las 
distintas líneas de la máscara se transfieren inicial- 
mente al buffer de la pantalla B$(x*), como si se tratase 





de una data entry normal. A la salida de la introducción, 
el buffer se desempaqueta en sus componentes, entre 
ellos, los parámetros asociados a la instrucción que 
son transferidos a la matriz P7$(«); en consecuencia, 
ésta contiene los nombres utilizados en la instrucción. 
En la llamada a la subrutina representada abajo, asig- 
nando un valor a la variable K se identifica el corres- 
pondiente nombre: por ejemplo, poniendo K = 3, la 
rutina realiza el control sobre el contenido de la cade- 
na P7$(3). La comprobación se obtiene con un bucle 
que compara P7$(K) con todas las cadenas de la ma- 
triz B2$(x). Además, en la subrutina se utilizan los índi- 
ces y e |. El primero se incrementa con cada paso en 
el bucle e indica, si la búsqueda ha tenido un resulta- 
do positivo, la posición del campo buscado en B25(w). 
El segundo (1) es el índice del bucle que debe tener 
paso 6 (por este motivo se emplean dos índices), por- 
que en la matriz B2$(+*), los nombres de los campos 
distan 6 posiciones entre sí (cada nombre va seguido 
del tipo, la longitud, el número de decimales, la línea y 
la columna, o sea 5 parámetros) y para identificar el 
segundo nombre hay que avanzar con paso 6. La sub- 


BUSCA UN CAMPO 


En la llamada, debe 
proporcionarse a K la posición 


del campo a buscar 


El campo se ha encontrado. 
J indica su posición 





NO 


y 
Ly , 
NO 
ES 
SI 


El campo no está entre los 
definidos 


y 

y 
EE 

y 

y 
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EXTRACCION DE LOS ATRIBUTOS DE LOS CAMPOS 





rutina representada arriba se desarrolla de manera 
análoga, con la diferencia de que el puntero K al cam- 
po a buscar es gestionado internamente. Efectivamen- 
te, la subrutina anterior determina la posición de un 
solo campo, por lo que necesita su indicación. La se- 
gunda extrae los parámetros de todos los campos 
cuyos nombres están contenidos en la matriz P7$(x), 
por lo que el valor de K debe variar entre 1 y el número 
máximo previsto, para poder así extraer todos los 
nombres. A medida que los campos son identificados, 
de ellos se extraen los atributos y se transfieren a la 
matriz B$(x), a la TP(x), etc.: así se obtienen los valo- 
res necesarios para el funcionamiento de la data entry 
O para la transferencia al disco. 

Obsérvese que en estas, así como en las demás sub- 
rutinas previstas, las matrices B$(«), TP(+*), etc., son 
consideradas áreas de trabajo, por lo que para realizar 
cualquier proceso hay que transferirles antes los datos 
a los que se refiere el proceso y después llamar la 
subrutina que lo ejecuta. De manera análoga, los 


Implantación parámetros al 
valor inicial 


Busca el campo P7$(K) en 
B25(1) 


El índice | es incrementado en 6 
porque éste es el paso entre dos 
nombres consecutivos en B2$(+) 
(ver máscara vídeo de 
generación) 


eventuales resultados de cálculo se transfieren a una 
cadena de la matriz B$(+). Esta lógica a veces obliga 
a «salvar» los contenidos de B$(+w), etcétera, que po- 
drían ser «ensuciados» con procesos intermedios. 


Decodificación y desarrollo de las instrucciones 
En los diagramas que siguen se ilustran los principales 
aspectos de las subrutinas que interpretan y ejecutan 
las distintas instrucciones. También para éstas valen 
las advertencias anteriores, o sea: 


E La gestión de las máscaras se indica sintéticamen- 
te con un solo bloque funcional, suponiendo que el 
lector conozca suficientemente las correspondien- 
tes subrutinas que, sin embargo, pueden ser anali- 
zadas en los programas anteriores. 

" Muchas funciones se esquematizan en un bloque 
descriptivo único; para ver su detalle, diferente en 
cada máquina, hay que consultar los respectivos 
listados. 
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m En general, los nombres de las variables permane- 
cen invariables en las distintas versiones. Sin em- 
bargo, no es una regla fija, porque a veces son ne- 
cesarias algunas modificaciones debidas a las dife- 
rencias entre las distintas versiones del Basic. 


Instrucciones LEE y ESCRIBE. Son las instrucciones 
de l/O previstas en este lenguaje. En la versión presen- 
tada no se incluye la gestión de la impresora, que pue- 
de ser implantada por el propio usuario siguiendo el 
trazado de las funciones realizadas para el vídeo. 

En el gráfico de abajo se ha representado la subrutina 
de las dos instrucciones. La diferencia entre la una y la 
otra (lectura/escritura) viene indicada por el valor de 
lO, mientras que los otros parámetros no varían. 

En ambos casos, las primeras funciones son la bús- 
queda de los campos reclamados en la instrucción y 
la extracción de sus atributos: esto se realiza utilizando 
la subrutina de la página anterior, que, en la salida, res- 
tituye las matrices B$(«), TP(w), etc., con los valores co- 
rrespondientes a los campos que se van a utilizar. 
Sigue la selección de la oportuna rutina en base al pe- 
riférico seleccionado entre: 


1 / Vídeo: se activa el bloque de gestión de las másca- 
ras (data entry) con la implantación de la matriz 
TP(x), que se pone al valor correspondiente a la 
presentación si 10 vale 2 


2 / Cinta o disco: activan las dos subrutinas correspon- 
dientes. La distinción entre lectura y escritura está 
en el interior de las propias subrutinas. 


Para incluir la implantación de la impresora basta con 
un control que determine si el periférico asociado es la 
impresora, por ejemplo comprobando la sigla «P» (re- 
cuérdese que los periféricos, aunque se escriben con 
su nombre entero, son identificados sólo por la primera 
letra: V = vídeo, D = disco, C = cinta). Al satisfacerse 
la condición, hay que llamar una subrutina que envíe a 
impresión, por ejemplo con una serie de instrucciones 
LPRINT para la versión MSX, el buffer B$(a), cuyo 
nombre está especificado en las instrucciones. 


Gestión disco. En la página siguiente se ha represen- 
tado el diagrama de esta subrutina. Los parámetros a 
implantar antes de la llamada son: 


10 = 102, según si se desea leer o escribir en el 
disco. 

RE = Número del registro a leer, por lo que sólo 
se utiliza con lO = 1 

R8 = Número del registro en el que escribir. En 


esta versión, R8 no debe implantarse en la 
llamada, porque lo pide el sistema a través 
del contenido del directorio (registro 1 del 
fichero; en introducción, el número del re- 


DECODIFICACION INSTRUCCIONES LEE (O ESCRIBE) 


Los campos asociados a la 
instrucción se buscan entre los 
definidos para extraer los 
atributos (parámetros) 


El valor 2 del flag 
10 indica 
presentación (ESCRIBE) 


Este bloque resume las 
subrutinas de presentación 
máscara y gestión de la data 
entry 


El diagrama de la subrutina de gestión cinta no se ha representado, ya que ésta es análoga a la del disco 
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GESTION DISCO 


En la llamada hay que implantar 

lO. = 1silectura, 2 si escritura 

BS (+) Matriz datos 

RE Número del registro en lectura 
R8 Número del registro en escritura 
NM$ Nombre del fichero 


Escritura Lectura 
SI |] 


y 


Principio bucle de 
extracción campos 


¡On 


El registro se forma NO 


sumando en A$ todos los 
campos a memorizar, o 
sea los con SK$(+) = "S” 


Los bytes a tomar para 
generar BS(l) se calculan con 
los atributos memorizados 

en B25(1) 


El primer registro del fichero se 

reserva al directorio, o sea para 
memorizar el último número de 

registro escrito 


Actualiza el 
directorio ficheros 


La subrutina de gestión cinta es análoga, con las diferencias: 
— El fichero siempre se carga interiormente en la memoria 
— No hay el directorio 
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gistro en que escribir se obtiene sumando 1 
al valor memorizado en el directorio). Sin 
embargo, puede considerarse como un pa- 
rámetro de entrada a fines de futuras im- 
plantaciones 

NM$  =ÑNombre del fichero. En esta versión, el 
nombre del fichero es único y definido a 
priori (definiciones, fase 2), pero puede pre- 
verse una implantación que permita el uso 
de más ficheros simultáneamente. En este 
caso, los distintos nombres deberán memo- 
rizarse en una variable de cadena dimen- 
sionada de la que, cada vez, se tomará el 
nombre el que se desea utilizar, transfirién- 
dolo seguidamente a NMS$. 


La subrutina, aunque tiene una estructura básica aná- 
loga a las utilizadas en los otros programas, presenta 
algunas diferencias debidas a la parametrización. Esto 
sucede sobre todo durante la formación de un regis- 
tro, obtenida con un bucle que suma los contenidos de 
BS$(+); por tanto, hay que tener en cuenta dos casos 
posibles: 


1 / Un campo presente en B$(+*) no debe transferirse 
al fichero 

2 / Un campo previsto en el registro, en fase de defini- 
ción, no está en el buffer B$(s). 


El primer caso se supera incluyendo un control en el 
bucle. Si el campo no es para sumar la instrucción que 
sigue (suma de los campos A$) se salta. La indicación 
de si sumar o no el campo deriva de las elecciones 
realizadas en la fase de definiciones (segunda parte). 
El otro caso puede introducir errores. Utilizando el pro- 
grama en generación, cada uno de los campos previs- 
tos se inicializa en la longitud justa con espacios en 
blanco, por lo que basta llamar cada campo en una 
operación de 1/0 para tener la certidumbre de la forma- 
ción correcta del registro. Sin embargo, debe prestar- 
se atención a eventuales programas sucesivos en los 
cuales no se utilizan todos los campos que, sin embar- 
go, deben estar presentes. 


Instrucción BORRA. Esta instrucción, cuyo diagrama 
puede verse abajo, permite borrar el contenido del ví- 
deo o el de un fichero. 


DECODIFICACION INSTRUCCION BORRA 


Escribe registro “l” 
en blanco 


ES? 
a 


Inicializa 
el directorio 


yl Sl 
Escribe 1 
en el registro 1 
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=D 
ED 


> | 
sI 
| Cinta 


En la versión cinta, el fichero 
siempre se carga en memoria. 
Por tanto, su puesta a cero 
consiste en poner a cero la 
matriz correspondiente, que 
se transferirá a la cinta cuando 
el programa encuentre la 
palabra FIN 





En el primer caso sólo es una «limpieza de la panta- 
lla», porque el buffer (B$(«)) no se altera. Portanto, se 
reduce únicamente a la instrucción de borrado de la 
pantalla cuyos códigos, en las distintas versiones, de- 
ben consultarse en los listados. 

En el segundo caso, direccionado a la unidad de dis- 
co o cinta, activa en cambio un verdadero borrado de 
los registros: la lógica seguida es escribir, en todo el 
fichero, espacios en blanco. Como alternativa se po- 
dría activar la remoción total del fichero (con instruc- 
ciones Basic del tipo KILL...), solución que, sin embar- 
go, podría ser causa de inconvenientes, como por 
ejemplo una excesiva fragmentación de los espacios 
disponibles en el diskette. 

La solución elegida presupone que el usuario no de- 
sea renovar el fichero, sino sólo borrar su contenido 
conservando el espacio ocupado. Esta solución tam- 
bién se ha elegido considerando el hecho de que un 
eventual borrado del fichero puede obtenerse muy fá- 
cilmente con los comandos Basic normales o de siste- 
ma operativo y, por tanto, que no es necesario prever- 
la en las instrucciones de alto nivel. 

Volviendo al diagrama de flujo de la página anterior, 
las funciones a realizar no necesitan otros comenta- 
rios, a no ser la puntualización de que antes de los 
bucles de escritura de los registros en blanco hay que 
preparar una cadena que contiene los espacios, cuya 
longitud debe ser igual a la del registro, o sea a la 
suma de las longitudes de cada campo que lo consti- 
tuye. El bucle de preparación de esta cadena (no indi- 
cado en el diagrama) debe incluir un control sobre la 
presencia o no de los distintos campos del registro, o 
sea un IF... que compruebe la existencia del carácter 
«S» asociado al campo (ver definiciones, parte 2). 


Instrucción BUSCA. La instrucción BUSCA identifica, 
entre los registros del fichero, el que tiene un determi- 
nado valor en el campo especificado. Para analizar el 
diagrama, en primer lugar deben puntualizarse las 
modalidades operativas previstas. La instrucción pue- 
de utilizarse de tres maneras: 


BUSCA nombre de campo 

BUSCA nombre de campo <operador> valor 

BUSCA nombre de campo <operador> nombre de 
campo 2 


Los operadores previstos son: >, <=, > =,<=, 
< >. Por ejemplo, considérese la estructura de un lis- 
tín telefónico, con los campos de datos: 


Apellido 
Nombre 
Teléfono 
Ciudad 


La primera forma, por ejemplo con el campo Apellido, 
se convierte en: 


BUSCA APELLIDO 


El programa, bajo esta instrucción, busca en el fichero 
datos el primer registro que en los bytes correspon- 
dientes al campo Apellido contiene el mismo valor (al- 
fanumérico) que el contenido en el campo. Por ejem- 
plo, si en la fase de definición se ha asignado a este 
campo la longitud de 20 bytes, por ser el primer regis- 
tro, empieza por el byte 1 hasta el byte 20. El progra- 
ma lee los diferentes registros, extrae la parte intere- 
sante (del byte 1 al 20) y la compara con el contenido 
del campo. Naturalmente, este campo debe tener un 
valor, el cual debe haberse leído. Generalmente, esta 
forma se emplea en la búsqueda de un dato leído en 
pantalla, por lo que la secuencia normal de las instruc- 
ciones es: 


LEE VIDEO APELLIDO 
BUSCA NOMBRE 


En cambio, la segunda forma se utiliza para buscar en 
el fichero el primer registro que en el campo especifi- 
cado tiene un valor definido con una constante. 
Supongamos por ejemplo que el símbolo «3» en el 
campo Ciudad tenga un significado particular (registro 
borrado, en suspenso o cualquier otra característica); 
para obtener la extracción del registro que tiene este 
indicador, la instrucción será: 


BUSCA CIUDAD = «ak» 


El valor, constante, de referencia puede ser también 
numérico, como por ejemplo la instrucción: 


BUSCA TELEFONO = 12345 


Selecciona el registro que tiene el valor 12345 en el 
campo TELEFONO. Es muy importante observar la di- 
ferencia que existe entre la búsqueda de caracteres o 
la de valores numéricos. El número de teléfono, al no 
tener que utilizarse para cálculos, también podría defi- 
nirse de tipo alfanumérico, y en este caso sería nece- 
sario respetar sus bordes en cuanto a eventuales es- 
pacios en blanco (antes y después del número) que 
se toman en consideración, y viceversa, definiendo el 
campo como numérico no tienen ningún peso. 

La última forma permite utilizar, como elemento de 
comparación, el contenido de otro campo, pertene- 
ciente o no a la estructura de los datos definida en el 
fichero. Por ejemplo, la instrucción: 


BUSCA APELLIDO = CIUDAD 


extrae el registro en el que el contenido del campo 
APELLIDO es igual al de CIUDAD. Como ya se ha indi- 
cado, en esta forma también puede utilizarse un cam- 
po que no pertenezca al fichero, aunque definido (por 
tanto, introducido en la fase 1 de las definiciones 
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DECODIFICACION INSTRUCCION BUSCA (PRIMERA PARTE) 


En la llamada debe suministrarse: 


OP$(+): En las últimas 6 posiciones contiene los operadores previstos (>, <, > =,=,< =,< >) 
P7$(x): Contiene los parámetros 
SK$(+): Contiene la letra “S” en correspondencia con los campos que constituyen el fichero 


La instrucción, por ser 
P7$(2) = "”, indica que se 
] desea buscar el carnpo en 
En la salida, la subrutina pone el fichero 
en J la posición del campo Por tanto, la matriz de 
especificado en la instrucción comparación (CP$) se pone 
BUSCA igual al contenido del buffer 
“J”, y el operador (OP) es 10 
(ver texto) 


La comparación se 
realiza cotejando con un valor 


Si el operador está entre 
los previstos (OP$(x)), “1” 
indica su posición, o sea el 
código 


(con error 4) 


El término de comparación El valor con el que realizar la 
es un valor numérico, comparación es una cadena. 
que se transfiere a la Su contenido se transfiere a la 
variable numérica Z variable CP$ 


Utilizando los atributos de los 
campos se calculan el byte de 
inicio y la longitud de los 
campos a buscar, En P1 se 
pone el byte de principio (en el 
interior del registro) y en P2 la 
longitud 
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DECODIFICACION INSTRUCCION BUSCA (SEGUNDA PARTE) 


Este diagrama corresponde a la versión disco. 
Para la cinta, la estructura es análoga, con las 
acostumbradas diferencias 


Nuevo registro 





y excluido de la 2, la cual corresponde al formato de 
registro). 

El diagrama de la subrutina puede verse en la página 
anterior y en la misma figura se han representado los 
principales parámetros utilizados que deben implan- 
tarse antes de la llamada. En la entrada de la subrutina 
debe determinarse la posición del campo, por lo que 
se llama una segunda rutina (Busca un campo, ver 
pág. 2364, que en la salida pone en la variable J la 
posición del campo seleccionado (por ejemplo, en la 
estructura de datos anterior, buscando el APELLIDO 
se tendría J = 1). Este valor se utiliza como puntero 
para la extracción de los atributos (longitud, tipo, etc.). 
Después se comprueba el segundo término de la ins- 
trucción. Si está ausente, se trata de la primera forma, 
y si está, es una de las otras formas. 

En el primer caso, el contenido del campo selecciona- 
do, o sea B$(J), se transfiere a la variable CP$ (utiliza- 
da para las comparaciones) y el operador que expre- 
sa el tipo de comparación a realizar se hace igual a 10 
(o sea condición de igualdad). Estas transferencias de 
contenido entre variables necesitan una explicación. 
La subrutina que comprueba la condición implantada 
en la instrucción es única y, por tanto, debe utilizar dos 


En el directorio (registro 1 
del fichero) se memoriza el 
número del último registro 
escrito, o sea el del último 
dato introducido 


Principio del bucle de 
búsqueda en el fichero 


El registro leído se transfiere a 
la matriz de tránsito A$, que 
será utilizada por la siguiente 
subrutina (Comparación) 


La parte de registro 
identificada por P1 y P2 se 
compara con CP$ si la 
búsqueda es sobre cadenas 
o con Z para búsqueda de 
valores numéricos 


Con el procedimiento 
ESCRIBE VIDEO se presenta 
el registro así identificado 


variables predeterminadas (ver la figura de arriba). En 
particular controla si entre las variables CP$ y A1$ 
existe la condición impuesta (>, <, =, etc.). 

Esta metodología implica la necesidad de transferir 
cada vez el valor adecuado a las dos variables: 


E la primera debe contener el valor del campo elegi- 
do, o sea CP$ = BS$(J) 

" la segunda (A15) la implanta el sistema extrayendo 
de los distintos registros los bytes correspondientes 
al campo a seleccionar y eventualmente convirtién- 
dolos en un valor numérico. 


La segunda modalidad de funcionamiento, correspon- 
diente a las otras dos formas de la instrucción en las 
que aparece tanto el operador como el término de 
comparación, es mucho más compleja. Ante todo hay 
que comprobar que el operador esté entre los previs- 
tos, y si el resultado es positivo, se pasa al análisis de 
lo escrito en la segunda parte de la instrucción para 
determinar la forma. Para mayor sencillez, en el diagra- 
ma se representa la lógica que corresponde sólo al 
caso de comparación con una constante (numérica o 
alfanumérica). En el otro caso (comparación con otro 
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COMPARACION 


En la llamada: 
A$  : Contiene un registro en el que realizar la comparación 


CP$  : Valor a buscar, en el caso de búsqueda de cadena 

Z : Valor a buscar, en el caso de búsqueda numérica 

OP: Código del operador (6 para>,7<,8>=,9<=, 10=,11<>) 
P1,P2 : Punteros a A$ para la extracción del valor 


AA$ se transfiere el 
campo identificado por P1 y P2 


CP$ = “" indica comparación 
con valor numérico 


Comparación 
con 
caracteres 


El operador OP indica el tipo de 
comparación (>, <, etc.) a 
realizar, pero su valor empieza 
por 6, por lo que para la 
instrucción ON... GOSUB se 
resta 5 


Los 6 tipos de comparación (>, 
<, etc.) son ejecutados por 6 
rutinas distintas, muy similares 
entre sí. 

A título de ejemplo, sólo se ha 
representado la primera (caso 
O = 1, símbolo >) 


0 Comparación con buen 
El valor de FZ indica el tipo de resultado (el caso 1 es la 
comparación (1 = caracteres, comprobación del campo > ...) 
O = numérico) 


Comparación 
numérica 


Y En la salida, FC = 1 indica 
comparación con buen 


resultado 


(*) Para todos los demás casos sólo varían en consecuencia estas dos instrucciones. Por ejemplo, en el caso O = 2 
(OP = 7, <), se hacen A1$<CP5yZ1<Z 
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campo) hay que memorizar el contenido del campo 
indicado por P7$(3) y, por tanto, determinar la posición 
correspondiente al campo cuyo nombre está en 
P7$(3), por ejemplo K, y extraer y transferir B$(K), po- 
niendo CP$ = BS(K). 

A esta fase sigue la determinación de la posición del 
campo a buscar (P1 y P2) y el bucle sobre el fichero 
con análisis (comparación) de cada registro. Si la 
comparación (ver gráfico de la pág. anterior) es positi- 
va, el registro se presenta en pantalla. 


Comparación. Los parámetros a implantar antes de la 
llamada a esta subrutina son: 


AS = Cadena que contiene el dato a analizar 

CP$  = Valor a buscar en el caso de comparación 
con caracteres (cadenas) 

Z = Valor a buscar en el caso de comparación 
entre valores numéricos 

OP = Indice del tipo de comparación a realizar 


P1,P2 = Punteros que identifican, en el interior de 
A$, la zona a extraer para la comparación. 


La cadena A$ contiene un registro del fichero que se 
desea examinar, pero puede utilizarse de cualquier 
otro modo, por ejemplo transfiriéndole el contenido de 
una variable (búsqueda en memoria). 

Después de esta transferencia (del fichero o de la me- 
moria) debe especificarse, implantando al valor ade- 
cuado los dos punteros P1 y P2, en qué elementos 
(caracteres) de la cadena se desea el control. P1 indi- 
ca el byte de inicio y P2 el número de bytes a conside- 
rar. Por ejemplo, poniendo P1 = 3 y P2 = 5, la compro- 
bación se realiza examinando la parte de A$ compren- 
dida entre el byte 3 y el byte 7 (a partir de 3 y para 5 
caracteres, el campo se extrae con la instrucción 
MIDS...). Definidos estos punteros y después de haber 
cargado A$, hay que especificar el tipo de análisis a 
realizar. Los operadores previstos son los operadores 
lógicos normales utilizados en Basic: >, <, > =,< =, 
=, < >. Para su identificación en el interior de la rutina, 
el operador OP debe implantarse al valor numérico co- 
rrespondiente a la posición del operador elegido, te- 
niendo en cuenta que, por motivos estructurales del 
programa (véanse las subrutinas anteriores), el primer 
indicador ocupa la posición 6. Por tanto, si se quiere 
activar la operación «>», hay que implantar OP = 6. 
Por último, como la rutina puede comparar tanto cade- 
nas como valores numéricos, en el primer caso hay 
que transferir la cadena a buscar a CP$, dejando la 
variable numérica Z al valor O. En el segundo caso, 
CP$ debe ser nula, o sea vacía, y Z implantada al valor 
numérico a buscar. 

A los fines de búsqueda únicamente, esta lógica no 
sería necesaria, porque en ciertas condiciones, la 
comparación entre valores numéricos puede efectuar- 
se también entre las cadenas equivalentes. Es decir, si 
la búsqueda debe hacerse en campos con contenido 


numérico, se podrían comparar los caracteres que 
contienen. Esta segunda solución, que no utiliza cam- 
pos numéricos, es mucho más sencilla para la progra- 
mación, pero también mucho más limitativa. 

Por ejemplo, supongamos que en el interior de los re- 
gistros de un fichero se ha definido un campo numéri- 
co de 5 caracteres de longitud y que se desea buscar 
el registro que contiene el campo numérico 1. Con la 
comparación por cadenas es necesario generar la va- 
riable CP$ de longitud 5 con los primeros 4 bytes en 
blanco si el valor numérico, como normalmente suce- 
de, está situado a la derecha. En cambio, en el caso 
de búsqueda en campos númericos, basta con im- 
plantar Z = 1, sin tener en cuenta la longitud del cam- 
po en el fichero, por lo que es una solución mucho 
más generalizada y fácil de utilizar. 

Sin embargo, este método comporta algunas compli- 
caciones en la escritura de las subrutinas, porque para 
cada tipo de comparación a realizar hay que prever 
los dos casos. El problema se ha resuelto implantando 
un flag que indica, con su valor, el tipo de análisis. Si la 
comparación es numérica, se comparan las dos varia- 
bles Z (implantadas en la llamada) y Z1 obtenida con- 
virtiendo en numérica la parte de A$ definida por los 
punteros P1 y P2; en el otro caso (comparación por 
caracteres) se comparan las cadenas CP$ (implanta- 
das en la llamada) y A1$, que contiene la parte de A$ 
sometida a control. Por brevedad, en el diagrama sólo 
se ha representado la lógica correspondiente al opera- 
dor «>». Para los demás sirve la misma, excepto la 
instrucción de control, que varía en función del opera- 
dor elegido. Finalmente, obsérvese que esta rutina, 
además de utilizarse para la instrucción BUSCA, tam- 
bién se utiliza para la DECIDE; funcionalmente es dife- 
rente, pero estructuralmente es análoga a la anterior. 


Instrucción DECIDE. Esta instrucción, cuyo diagrama 
aparece en la página siguiente, tiene un desarrollo 
análogo a la BUSCA. Antes de comentar el diagrama 
hay que llamar la atención sobre su sintaxis y finalidad. 
La instrucción se introduce en la forma (a menudo la 
forma no corresponde al formato): 


DECIDE 


< valor > < operador > 


< valor > ] 
< instrucción > 


< campo 2 > 


con el siguiente significado: si la condición expresa- 
da por < operador > entre < campo > y < valor > 
(o < campo > y < campo 2 >) es verdadera, enton- 
ces ejecuta la instrucción cuyo número está en 
< instrucción >. Por tanto, el procedimiento consiste 
en efectuar una comparación (entre un campo y un 
valor, o entre dos campos) y, si la comparación es 
positiva, de activar el procedimiento definido en el 
campo < instrucción >. 

Por tanto, la primera función a ejecutar es la decodifi- 
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DECODIFICACION INSTRUCCION DECIDE 


Ejecuta la función 


Este bloque realiza funciones ' 
análogas a las de la 

instrucción BUSCA. En la salida, 
el código del operador está 

en la variable "l” 


Esta primera parte analiza la 
condición expresada 

en la instrucción DECIDE. En 
base al resultado se activa o no 
la segunda parte, consistente 
en el desarrollo de un 
procedimiento cualquiera entre 
los previstos 


Memoriza los atributos y las 
modalidades de desarrollo 


Reconoce la función a activar, 
o sea comprueba que el 
número de línea existe 


y Ejecuta el procedimiento 


indicado 





cación del operador que expresa la condición a com- 
probar (>, <, etc.) a la que le sigue la comparación 
realizada utilizando la subrutina anterior. Naturalmen- 
te, si la comparación es con otro campo, primero hay 
que buscarlo, o sea determinar su posición, para po- 
der extraer de él el contenido (a utilizar en la compara- 
ción). Esta comparación la realiza la subrutina de la 
página 2364 (búsqueda de un campo). Si la compara- 
ción da resultado negativo, la subrutina termina; en 
caso de que no sea así, se activa la segunda parte, 
relativa al desarrollo del procedimiento identificado en 
el campo < instrucción >. 

También en este caso, la primera función a ejecutar es 
la búsqueda del procedimiento, que por un error de 
introducción podría no existir (recuérdese que, en esta 
versión, el procedimiento, o sea las instrucciones, se 
identifica con un número progresivo). 

Si la instrucción se encuentra, o mejor dicho, si existe 
el número de línea especificado, se extraen los pará- 
metros y la instrucción se ejecuta como si se hubiese 
llamado explícitamente. 

Por consiguiente, en esta subrutina hay un bloque de 
decodificación y uno de selección análogos a los uti- 
lizados para enviar a ejecución las distintas instruccio- 
nes del programa. 


Instrucción REPITE. La instrucción REPITE (ver pág. 
siguiente) es la equivalente a los bucles en Basic. Su 
sintaxis es: 


REPITE < número de veces > 
< procedimiento > 

< procedimiento > 

FIN 


El desarrollo consiste en un bucle, repetido el número 
de veces especificado, que llama en secuencia las 
instrucciones identificadas por el correspondiente nú- 
mero de línea en los campos < procedimiento >. Los 
procedimientos a repetir pueden ser un número cual- 
quiera (compatible con la ocupación de memoria); el 
bucle termina al encontrar la palabra FIN. 

Obsérvese que con esta estructura, mantenida volun- 
tariamente sencilla, no puede utilizarse un bucle den- 
tro de otro, o sea la instrucción REPITE no puede refe- 
rirse a sí misma. Para implantar una función como ésta 
(análoga de los bucles anidados del Basic), ante todo 
hay que definir, para cada palabra FIN que se encuen- 
tra, cuál es la correspondiente instrucción REPITE (de 
manera análoga a la función que ejecuta la instrucción 
NEXT del Basic, que especificando el nombre del índi- 
ce a incrementar, proporciona el medio para identificar 
cada bucle). 

El diagrama no presenta dificultades particulares, 
puesto que se trata de una utilización diferente de las 
lógicas y de las subrutinas ya vistas. 

El único punto que es necesario ilustrar es la determi- 


nación del número de veces que el bucle debe repetir- 
se. Se han previsto dos casos: 


" el número es expresado con un valor, que simple- 
mente debe extraerse (N = VAL...) 

" el número lo proporciona el contenido de un cam- 
po. En este caso, primero hay que buscar el campo 
(definido con el nombre en < número de veces >) 
y de éste extraer el valor. 


Después de esta función puede activarse el bucle que 
consiste en llamar todos los procedimientos especifi- 
cados hasta la palabra FIN. 

Obsérvese que el diagrama sólo es de principio, y 
muestra la lógica del bucle indicando cómo se realiza 
un solo procedimiento. En realidad, el listado contiene 
una parte de más, que es precisamente el desarrollo 
de todos los procedimientos comprendidos entre la 
instrucción REPITE y la palabra FIN. 


Instrucción CALCULA. El desarrollo de una fórmula 
puede sintetizarse como sigue (en la hipótesis de una 
sola operación, y por tanto dos operandos): 


reconocimiento y extracción del primer operando 
extracción del operador 

reconocimiento y extracción del segundo operando 
desarrollo del cálculo 

conversión en cadena del resultado. 


La primera función (reconocimiento del operando) ne- 
cesita un análisis sobre el tipo de dato. Efectivamente, 
el operando puede ser un valor numérico, en cuyo ca- 
so sólo debe transferirse a una variable numérica, o 
bien el nombre de un campo. En este caso hay que 
buscarlo entre los definidos y, si está, extraer su valor. 
Sólo después de este paso se dispone del valor numé- 


rico a utilizar para el cálculo (también en este caso a 


convertir en cadena). 

Siguen la búsqueda del operador con un bucle de 
comparación entre el presente en la operación y los 
Operadores previstos en los DATA, y la extracción del 
segundo operando, realizada de manera análoga a la 
primera. 

Terminadas las extracciones, se tiene: 


m Z1= Valor numérico correspondiente al primer 
operando 

=m Un flag, fijado en la búsqueda del operador, que 
indica el cáiculo a realizar 

m Z2= Valor numérico del segundo operando. 


Sólo queda por activar la línea de programa (o la sub- 
rutina) correspondiente a la operación, o sea la línea 
apuntada por el flag. 

Realizada la operación, el resultado que se encuentra 
en la variable 23 se transforma en cadena y se trans- 
fiere al campo indicado en la operación. 
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DECODIFICACION DE REPITE 


En la llamada, PER$ contiene el número de veces que debe repetirse el bucle, 
o el nombre del campo que, a su vez, contiene este valor 


(rimar) A 
ys y | 
Calcula en N el número de 
veces que debe repetirse el 
bucle 


Durante el desarrollo del bucle, 
algunas matrices deberán 
utilizarse y, por tanto, su 
contenido debe salvarse 


y 


SI 


— 
Y no 


y 


E ES E 
E] El procedimiento REPITE 
—» — no puede 

llamarse a sí mismo 


En la variable "l" se pone el 
indicador del procedimiento 
a activar 


y Realiza el 


Escribe procedimiento 
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DECODIFICACION DE CALCULA 


El diagrama presentado, por motivos de sencillez, se refiere a la subrutina en la 
forma más elemental, y sólo puede realizar cálculos de tipo Resultado = Valor 
1(+,-,*,/, 1) valor 2 


El valor está contenido en un 
campo 


P7$(2) contiene el primer valor 


Los operadores previstos son +, 
—,*,/, | (elevación a 
potencia) 


P7$(4) contiene el segundo 
valor 


Selección de la operación a 
realizar 


23 =.2Z1 +22 Z3=Z1*Z2 Z3 = ¿1/22 23=Z1 1 Z2 


Para depositar el resultado 


Memoriza Z3 (resultado), 
. transformándolo en cadena 
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Ejemplos de aplicación 


Para ilustrar la técnica particular que debe seguirse al 
escribir programas con este lenguaje, a continuación 
se indican algunos ejemplos de aplicación. 

Para todos ellos deberán tenerse siempre presentes 
las principales reglas: 


1 / Antes de utilizar cualquier campo, debe definirse, y 
dado que esta función precede a la de introduc- 
ción de las instrucciones, hay que definir a priori 
todos los campos que se quieren utilizar, distin- 
guiendo entre los que deben transferirse al fichero 
y los destinados únicamente al uso en memoria 

2 / La longitud del fichero datos debe definirse a priori, 
por lo que siempre debe tenerse por lo menos una 
idea del orden de magnitud de las cantidades de 
datos a memorizar 

3 / La fase de las definiciones no admite correcciones, 
por lo que hay que prestar mucha atención en su 
preparación, bajo pena de tener que volver a escri- 
bir los atributos de todos los campos. 


Programa con actualización de datos. El programa 
que sigue no está identificado con una aplicación con- 
creta, pero sirve para mostrar el empleo de todas las 
instrucciones principales. A fines prácticos puede apli- 
carse a la gestión de un plan de cuentas o para el 
control de compras a plazos si a los campos numéri- 
cos se les atribuye el significado de dinero, o bien co- 
mo gestión de almacén si los campos tienen el signifi- 
cado de cantidad. 

Considérese la siguiente máscara: 


Código > 
Descripción 
Importe 
Saldo 
Movimiento 
Resto 


Identifican una estructura de datos dividida en tres ti- 
pos: 


m El primero, constituido por los campos Código y 
Descripción, es una parte descriptiva utilizada para 
identificar un determinado elemento! En la aplica- 


CODIGO 
DESCR. 


IMPORTE 
SALDO 
MOVIMIENTO 
RESIDUO 
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ción al plan de cuentas puede ser el código de la 
cuenta, en las compras el objeto, y en el almacén la 
vOz, O sea el artículo 

" Siguen los campos Importe y Saldo (en la aplica- 
ción de almacén podrían ser Existencia inicial y 
Existencia actual) 

m El último, constituido por los campos Movimiento y 
Resto, es la zona de datos de «movimientos», o sea 
de los valores que deben sumarse o restarse para 
obtener el valor actual de balance. 


Para fijar las ideas, supongamos que con esta aplica- 
ción se gestiona un recordatorio de las situaciones de 
pagos a plazos. 

El Código y la Descripción, como se ha indicado, iden- 
tifican el objeto al que se refiere el registro. El importe 
es la cifra total (costo), mientras que el Saldo consti- 
tuye la cifra que aún hay que pagar, y se obtiene res- 
tando del importe inicial cada pago realizado. Expre- 
sado en fórmula: 


Saldo = Importe — Suma movimientos 


Como los distintos pagos se realizan en momentos su- 
cesivos, por ejemplo cada mes, el mejor modo de cal- 
cular el Saldo consiste en atribuirle un valor inicial igual 
al importe, restando cada movimiento en el momento 
de su introducción. 

Para obtener esta lógica existen otros dos campos: el 
Movimiento (que es el importe del pago a restar al Sal- 
do) y el Resto, que se utiliza como variable de tránsito. 
Además, ni el Movimiento ni el Resto deben transferir- 
se al fichero, que está estructurado para contener so- 
lamente los datos descriptivos (Código y Descripción), 
el valor inicial (Importe) y el actual después de cada 
movimiento (Saldo). 

Como de costumbre, la primera fase es la definición. 
En ella deben identificarse todos los campos (incluso 
si no se transfieren al disco). 

Por ejemplo, una estructura podría ser la presentada 
en la tabla de abajo. 

Como ya se ha indicado, sólo deben transferirse al fi- 
chero los campos CODIGO, DESCR., IMPORTE y 
SALDO, por lo que en la fase 2 de las definiciones se 
introducirá la letra «S» sólo en estos campos y no en 
los otros (MOVIMIENTO y RESTO), que se dedican a 
la introducción y al cálculo. Como es habitual, la apli- 


Identifica el registro 

Descripción de la voz 

Valor inicial mantenido como recordatorio 
Valor que queda después de cada movimiento 
Valor del movimiento 

Utilizado como matriz de cálculo 





cación se realiza con dos programas. El primero co- 
rresponde a la fase de generación de datos para el ar- 
chivo, y el segundo se dedica a la generación de mo- 
vimientos, o sea a las actualizaciones y a los cálculos. 


Creación y archivo. En la fase de creación, tras las 
definiciones anteriores, las funciones a realizar son: 


1 / Introducción de CODIGO, DESCR. e IMPORTE 

2 / Cálculo del valor inicial del SALDO (inicialmente es 
igual al IMPORTE, porque no se ha efectuado nin- 
gún movimiento) 

3 / Memorización en disco. 


El conjunto se repite el número de veces necesario, o 
sea el número de plazos que se desea realizar (como 
en este ejemplo al campo CODIGO se le ha reservado 
un solo byte, el número máximo es 9). 

El programa correspondiente a las funciones expues- 
tas se ha representado en esta página y en las si- 
guientes. 

Las instrucciones son todas sencillas y comprensibles, 
excepto la 20, que necesita algunos comentarios. 
Ante todo hay que recordar la sintaxis de ilustración 
CALCULA, que no puede prever el signo "=” y, por 
tanto, se sobreentiende que entre el primer campo, en 


Para cada dato se leen en pantalla los campos de ' 
descripción (CODIGO, DESCR) y el importe. 


El SALDO inicial debe ser igual al importe. Se calcula 
poniendo: 

SALDO = IMPORTE + O 

El cálculo + O es necesario para respetar la sintaxis de 
la instrucción. 





el que se depositará el resultado, y los siguientes, que 
expresan el cálculo a realizar, es como si existiese el 
símbolo ”=”; por tanto, la instrucción equivale a: 


SALDO = IMPORTE + O 


El objeto de esta instrucción es el de transferir al cam- 
po SALDO el valor contenido en el campo IMPORTE, o 


sea: SALDO = IMPORTE. 


Esta versión del programa no prevé instrucciones de 
este tipo, pero necesita dos operandos y un operador, 
por lo que para ejecutar la función deseada (transfe- 
rencia de contenido) es necesaria una operación arit- 
mética que deje sin variación el valor, por ejemplo la 
suma con O o equivalente, como por ejemplo el pro- 
ducto o la división por 1. 

Por último, obsérvese que el bucle tiene un índice has- 
ta el valor 9, lo que implica la necesidad de introducir 9 
registros (el bucle no puede ser interrumpido), pero 
podría parametrizarse fácilmente, por ejemplo introdu- 
ciendo antes de la 10 una instrucción de lectura del 
número de veces de repetición del bucle. Naturalmen- 
te, este campo deberá definirse de la misma manera 
que los otros. La correspondiente instrucción de lectu- 
ra debe realizarse fuera del bucle y antes de que em- 
piece, por lo que deberá efectuarse en la línea 5. 


[o CO) 
IMPORTE 


CALCULA 


SALDO MINA AS 
> 0) 
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Todos los campos se han representado, incluyendo el 
SALDO calculado. 


Los mismos se transfieren al disco. 


Con esta instrucción se activa el bucle de repetición 
para 9 veces. Así se introducen 9 grupos de datos 
(registros) diferentes. 

El bucle se ejecuta sobre las instrucciones 10, 20, 30 y 
40. La palabra FIN indica el final del bucle y no el del 
programa. 


Para dar a la palabra FIN el significado de final del 
programa, hay que escribirla en el campo reservado a 
la instrucción, o sea en la misma línea del número de 
línea (que debe ser 99). 
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AA 


CODIGO 
IMPORTE 


AS DISCO 


CODIGO 
IMPORTE 


AA 








El ordenador para el ordenador/Versión Commodore 64 
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REM RRE” 

REN * 

REM : ORDENADOR FARA EL ORDENADOR : 

REM k C- 64 

REN A . 

RETA AMARA RRA RARA 

DIM TFC15),D$025),V0$c20),FR$(8) 

DI!ó1 B2$(60), I5T$(15),50(15),NT(15),PER$(15),PAR$<15.10),0P$(11) 
BL$=" ":PDi=",":AS$="-":NS$="48" :SUS="M":GIUS="M":HOS$="0]" :SL$="/" 
US$=CHR$(133) :NV=5 :XC=12:YC=6: 52=2 : 09=0 : POKE 650, 123 
DOSUE20000 

FOR I=1 TO 15:READ TF<1>:NEXTI 

FOR I=1 TO 12:READ H$(1):NEXTI 

FOR I=1 TO 11:READ OP$(1>:NEXTI 

FOR I=i TO 8:READ FR$CI>,NPCI):NEXTI 

M3=19 

A1=32:A2=95 

PRINTHOS : GOSUB1300 : PRINTHOS : PRINTCHR$(142):REM 4% MENU ok 

IF 0PZ=5 THEN PRINTHOS:POKE646,6:END 





110 IF 6571 AND OPZ=2 THEN GOSUB 718:G0TO0159 
sn a a o 12000, 700,990, 14009 

700 REN ss FASE 2, INSTRUCCIONES did 

703 G5=1 

710 FOR NI=05 TO M3 

712 02=3:G00SUB7000 

714 IN=CW(4) 


FOR 1=5 TO 8:TPcI>=TP(9) LOC II =FLC(4)  NDCI)ENDC4) :CXC 19 R0X04) 
IN=IN+1:CYC1)=IN:NEXT 1 


720 IN=CW(4)-1 
722 FOR 1=9 TO 13:TPC1)=TP(4):LOCI=LCC4) ¿NDCI)ENDC4) 


Cxc128CX(94)+18: IN=IN+1:Cw(1)=IN:NEXT 1 
NUC=13 

GUSUB 2009 

J=1 


= 
735 GOSUB 3040 


IF FS=6 THEN 738 


742 IF FS=7 THEN 750 
744 IF 7] THEN 735 


GOTO 


750 IF Noi HEN 950 


RETUI 


760 IF LEFTSCBSCZ), 378" "ORLEFT$(B$(2),3)="488"THENSI=9: GOTO780 

Ue LS TO 8:IF LEFTS$CB$(2),3)=FR$(K) THEN SO(NI>=K:SI=k:K=8: G0TO0788 
NEX 

773 PRINTHOS:X=17:W=15:G05UB11000:PRINT"" LT." 

776 a ¿NEXTT:PRINTHOS:0Z=5: DOSUB7edO: 6070738 

778 ERR= 

788 ON SI GOSUB 808,800,8308,888,840,888,852,878,868 

785 IF ERR<)0 THEN PRINTHOS:0Z=5:G0SUB7000:GOTO730 

790 PRINTHOS:GOTO 908 

799 REM MORON LEE, ESCRIBE meo 

800 J$=LEFTS(BG(3), 1): 1FJI$<>"V"ANDIS$<>"D"THENS13 


IF LEFT$CBS$(9),3)=" "ORLEFTS$(B$(4),3)="488'" THEN 813 


802 FOR J=4 TO 3+NPCSI) 

803 IF LEFTS$C(BS(J),3)=" — "ORLEFTSCBS(J),3)5"44%" THEN 815 
804 FOR I=1 TO 60 STEP 6 

905 IF B2$(1)=BS(J) THEN 810 

B07 NEXTI:G0T0813 


NEXTJ:GOTOB15 


813 PRINTHOS:X=5:%=10:G05UB11000:PRINT""_T/T, REPITA LA INSTRUCCION" :FORT=1T015 


00: 


NEXTT 


B14 ERR=1:RETURN 

815 PRINTHOS:X=15:Y=10:G0SUB11000:PRINT"T——-1P" 
219 FOR T=1 TO 1060:NEXTT:ERR=0:RETURN 

230 REM OK BORA ARA AAA AAC: 
832 BS(3I=LEFT$(B$(3),1) 

833 IF B$(3)="W"0RES$(3)="D"THENGOSUBS15 : RETURN 
835 GOTO 813 


240 
841 


J=4 : REM o olaa CALCULA AA 
FORI=1TO66STEP6: IFB2$(1)=B$(J)THENS43 


398 


8 FORII=1T010:PAR$<J, 11>=PAR$(J+1, 11) :NEXTIL:NEXTJ: ISTICNII=" 


NEXTI :G60T0813 

IF B2$C1+1)="3" THEN 813 
IF J=7 THEN 849 
IFJ=STHENJ=7:GOTO 847 


J=5 
IF ASCCB$(J)><4BORASCCUBS(J 22737 THEN 841 
G0TOS44 


FORI=1T0S: IFLEFT$C(B$(6>,1>=0P$(1>THENSS1 
NEXTI:GOTO813 

GOSUB 615:RETURN 

PRE MAA AAA A AAA AE REPITE HOR 

FORI=4T013 

IF LEFTSCB$(1),3)="FIN" THEN 859 

IF VALCBSCI))=VALC(BFC1>)THENB13 

REM 

NEXTI :G0T0S13 

GOSUB 215:RETURN 

REM odo BORRA INSTRUCCION IAEA AO: 

OE PETONES ¿IFNTCIO=VALCBSC1))THENNTCID SO: 1ST$CI)="":BSC1)="0" 
NEXT 

RETURN 

RETURN 

REM alo BUSCA, DECIDE A 
FORI=1TOGOSTEP6 : IFE2$(1>=B$(4)THENE34 

NEXTI :GOTO313 

IF CLEFTSCBSC5),3)=" — "ORLEFTS(B$(5),3)="4HH4")ANDSI=4THENBI9 
FORI=6T011:IFLEFTS(B$(5),2)=0P$(1)THENS94 

NEXTI :G0T0313 

IF SI=4 THEN 898 

FORI=1T099: IFVALCB$(7)>=ITHEN 898 

NEXTI :G0T0913 

GOSUB 815:RETURN 

REM ak FASE DE ASUNCION xk 

ISTS(NI)=B$C02) :HNTCNI)=VAL(B$(1)) 

L$=LEFTSCISTSONID 3) 

IF L$=FR$(8) THEN NT(NI>=99:G0T0950 

PERS<NIDSLEFTSC(ESC(3),1) 

IF L$="REP" THEN PERS(NI>=BS$(3)+" > 
FORI=1TONPCSI):PARSCONI, 1)=B$C 143) 

DS "ORLEFTSCPARSCONT, 19,3)="44" THEN PAR$CNI, 28" " 
NEXTNI 

NI=MI-1 

FOR I=0 TO NI-1 

IF NTCI)<=NTCI+1) THEN 956 

N1=NTCI) ¿NTC SNTCI+1) NTC I+1 951: 11$=IST$C1>: IST$CI)=ISTGCI41) 
IST$(I+1)=11$:N1=S0C1):S0C17=S0C1+1):50C1+1)=N1:GOTO980 
IFNTCI)<ONTCI+102THENS6 
FORJ=ITONI-1:NTCJ3=NTCI+1) 0 ISTECII=ISTECIH1) :PERSCJI=PERSCJ+1):SOCJ SOC J+1) 
":NI=NI-1 
G0T0950 


0 NEXTI:GS=NI+1 RETURN 


T1$=PER$CI) :PERSCI>)=PER$C14+1):PER$CI+19=11$ 
FORII=1T010:11$(11>=PAR$C1,11>:PAR$CI, 112=PAR$< 141,115 
PAR$C(I+1, 11)=11$C11>:NEXT 11 

GOTO 9589 

REN e 

REM ARA LISTADO RARA AAA 

COSUB 9550:PRINTHOS: I=1:Y=1:1F R=2 THEN OPEN4, 4:CMD4 
PRINT"A"NTCI) TREC47"2MISTÍCIO"  MUSPERSCI):II=1 
IFPAR$CI, 11)=""THENI9S 
PRINTTAEC279PARS$C1, 11): Y=W+1:11=11+1:1F II<=NPCSOCI?) THEN 993 
PRINT:PRINT:Y=+3 


5 IF R=1 AND Y=>20 THEN GOSUB 9809:PRINTHOS : Y=1 


I=1+1:1F I<=G5-1 THEN 992 
IF R=2 THEN PRINT+$4 : CLOSE4 :GOTOU1O0O 


1089 X=2:Y=24:G05UB11008:PRINT"MPULSAR UNA TECLA PARA VOLVER AL MENU"; 
1005 POKE 198,0:WAIT193,1:POKE198.0 

1010 RETURN 

1308 REN IRA AO 


1301 REM * 


MENU — PRINCIPAL h 


REM alla lolaldlaloloiddaidloldlok 


283 LY=-1:POKES3231,6:POKE53288, 14 


1492 
1495 
1493 
1501 
1504 
1507 
1519 
1513 
1550 
1552 
1554 
1556 
1558 
1560 
1562 
153564 
1566 
1363 
1570 
1512 
1574 


pana MENU ":0PZ=8:WO$(OPZ)=" PTA T PARA EL P-/4T-":GOSUB 7008 
UP2=1 

55=53243 : POKESS+21.1:POKEZ040, 13 

o RESTORE 

FOR I=0 TO 62:READH: As NEXTI 


PUKESS+39,1:C01=95:C2=111 
GOSUB 1363 

GOSUB 1396 

GET OPZ$: IF OPZ$="" THEN 1327 


IF OPZ$=G1U% THEN C2=C2+16:0PZ=0PZ+1:GOSUB1363 
IF OPZ$=SU$ THEN C2=C2-16:0P2=0PZ-1:G0SUB1363 
IF OPZ4=US$ THEN 1381 

IF ASCCOPZ$)=25 THEN GOSUB 1456:G0T01305 
GUTO 1327 

REM dk 

IF C2<111 THEN C2=C2+16:0P2=0F2+1: RETURN 
IF C27175 THEN C2=C2-16:0P2=0P2-1 RETURN 
POKESS, C1 : POKESS+1,C2 

RETURN 

REM dk 

AAC: YEODPZASZH YC 

GOSUE 11000 

PRINT" 5h" 5 VOS$(OPZ) 

FOR T=1 TO 1000:NEXTT 
POKESS+21 , PEEK(SS+21)AND2534 

RETURN 

S REN 

FOR J=1 TO NV:READ Y0$(J>:NEXTJ 

FOR II=1 TO NY 

AAC: Wal IASZ+ WC 

GOSUB11000 

PRINT"a";VOSCII> 

NEXT 11 

RETURN 

DATAG, 0,0,6,96,0,6.144,0,3,32,0 
DATHA4,64,0,8,143,252,17,112,2,224, 129,252 
DATAB,63,8,0,65,0,0,63,6,0,31,0 

DATRO, 33,6,0,31,0,224,63,0,16,91,0 
DATA15,30,0,0,0,0,0,0,0,0,0,0,0,0,8 
DATA"1- “EFINICIONES" 

DATA"2- «+ NSTRUCCIONES ” 

DATA"3- LISTADO " 

DATA"4- “JECUCION” 

DATA"B- IN DE TAREA" 


5 REM ARONA AYUDA MENU mee 
9 PRINTCHR$(147>:PRINTCHR$(14) 


POKESS, 255 :POKESS+1. 115: POKESS+39,6 

POKES5+40,6:PUKESS+41,6 
POKESS+21,7:POKE2040, 13:POKE2041, 14: POKE2042, 15: POKESS+29, 4 
FORN=08T062 : READO : POKE332+N, 0: NEXTN 
FORN=0T062 : READU : POKES96+N, Q: NEXTN 
FORN=9T062 : READO : POKE960+N, Q: NEXTN 

POKESS+39, 1:POKESS+40, 1:POKESS+41, 1 

POKE 353261,6 


5 PRINTMA A 0 1 9 AAA" 


FOR I=1 TO 15:PRINT"MI 15 :NEXTI 
PRAT IIA Ad 
PRINTCHR$(19):PRINTTAEC?>" IMITA 4/1 TT TL 70" 
POKESS+2, 259: POKESS+3., 145: POKESS+4, 245: POKESS+5, 190 
PRINT"MIBBMDESPLAZA ABAJO: " 

PRINT"AIBBIDESPLAZA ARRIBA: " 

FRINT"AMBBINTRODUCE OPCION ELEGIDA: " 

PRINTTABCS) "TAO 4/4 118 MA DO AL ON 
GET R$: IFR$=""THEN1513 

POKESS+39,6:PRINT":1" ¿RETURN 

DATA3, 255, 192.12,0,32,16,16,16,32,56,8,32/103,9 
DATR64,40,4,64,40,4.64,0,4,93,206,223,81,72.164 
DATAB1. 206, 223,81,66, 164,93,46,143,64,0,4 

DATAS4, 40,4,64,40,4,32,108,8,32,56,8,16,16,16 
DATA12,0,32,3,255,132 

DATA3, 255, 192, 12,0,32,16,32,16.,32,126,8,32,192,2 
DATA64, 120,4,64,32,4,64,0,4,93,206,222,81.72,164 
DATAS1.,206,228,81.,65,164,93,46,148,64,0,4.64,16,4 
DATR64, 120,4,32,12,2.232, 120,3, 16,16,16,12,0,32,3,255,192 
DATAB,0,0,7,235.224,24,0,24,96,0,6,122,0,1,129,1,129 
DATA134,131,129,132.2,129,132,0,122.142.0,129 
DATA132,0,129,132,0,123,132,0,129,128,0,1,96,0,6 


uub 
3610 
039 
2040 

2041 
3050 


DATA24,0,24,7,255,224,0,0,0,0,0,0,0,0.0,0.0,8 

REM FIN DEL MENU PRINCIPAL 

REM 

REM a PRESENTA MASCARA dd 
FORI=1TODS:x=DXc1):Y=DYc1):1F TPC <1ORTFC<1)7)5THEN2018 


5 COSUB11000:PRINT"A"D$CI> 


NEXT I 

FOR J=1 TO NUC 

IF TPCJ>=0 THEN -2130 

As="" 

1F TPCJ><59S AND TPCJ><54 THEN 2068 
ACACIJ) -Y=CW CJ) :COSUB11000:PRINT"A"5BGCJ) 
GOTO 2138 

Ni=LCCJ) N2=NDCJ): IF TPCJA=1 de TPJ)=2 THEN C$=NS3: GUTOZ06S 
C$=AS$ 

IF Ni=1 THEN A$=C$:GOTO 2095 

FOR I=1 TO Ni-N2-1:A$=A$+C$:NEXTI 

IF H2=6 THEN A$=A$+C$:G0TO 2095 
AS$=A$+PDS 

FOR I=1 TO N2:A$=A3+"0" :NEXTI 

XECXCJ) Y=CWCJ):GOSUB 11000 





SPRINT "00 Asa 
ESCII="" 
2 FOR K=1 TO NI-N2-1 


BSCJI=ESCI ANOS 
NEXT K 
IF N2=0 THEN BS4(J>=ES(J)+N5$:GOTO 2130 


BD ESCI =ESCJI+FDS 


FORK=1T0N2:ES(J>=BFCJ)+N54 : NEXTK 


BD HEXT J 
A RETURN 


REN 

REM DATA ENTRY 44 
J=1 

NC=J: XA=CXÚNC) ¿Y=CW UNC) 
IF TFONCI=0 THEN 3105 
LC=1 


y GUSUE 3244 


a UN FS CUTÓ 3 
30 IF J>1 THEN 
a FS=8: J=NUC: GOTO 3 


3 1F FS=3 THEN RETURN 


IF FS=0 THEN 316068 

IF FS74 THEN 3210 

EUTO 3120 

REM CARACTER 

J=J+1: 1F J>NUC THEN 3030 
GOTO 3040 






u4u 
IF J<NUC THEN J=J+1:G0TO 3048 


y FS=9:COTO 30230 


IF CC<LCCJ) THEN S=1:CC=CC+1:%=x+1:G0SUB 11000:G0T0 3060 
F35=0:GUTO 3100 
IF CC>1 THEN S=-1:CC=CC-1:X=X%-1:GOSUB11009:GUTO 3060 


Y FS=8:GOTU 3040 





BO IF FS>2 THEN FS 


REN 

=9:GUTO 3 
IF FS=3 THEN FS=B9:GOTO 3 
RETURN 
REM 


3 REM 4% LECTURA DE 1 CAMPO 44 
Fs= 


IF TP(NC>=4 OR TPCNCI=0 THEN RETURN 

IF TPCNC>=2 THEN GOSUE 9000: RETURN 

IF MIDSCBSINCI,CC.1)=PDS THENX=x+S: CC=CC+S 

GOSUB 11000 

GET A$:1F A$C>"" THEN 3338 

GOSUB11000:PRINT" am"; :GOSUB11000:PRINT"A"5MIDSCESONCI/CC,1)5 

FOR T=1 TO 26:NEXT T 

GOTO 333 ys 
IFASC(AS)=190RASCCAS)=200RASCCAS)=1470RASCCUAS)=148 ORASCCAS)=44 THEN 3330 
PRINT"MA"¡ AS; 


g CA=ASCCUAS) 


FOR I=1 TO 15 

IF TFCI2=CA THEN FS=1: 1=15:GOSUB3630 : RETURN 
IF FS=9 THEN RETURN 

NEXTI 

IF CAXA1 OR CAA2 THEN 3339 

IF TPCONCI<S1 THEN 34568 

IF CA=45 OR CA=46 OR(CA>=4BANDCA<=57 > THEN3420 


3410 GOTO 3330 

3420 IF CA<X>46 THEN3458 

3439 GOSUB 4270 

3440 IF SHP=1 THEN 3410 

3450 S=1:GUSUB 3520 

3460 IF CC=LC(NC) THEN RETURN 

3478 CC=CC+1:%=X+1:GOTO 3310 

3529 REM 

3521 REM *k TRASFERENCIA AL BUFFER ak 
3540 REM 

3570 IF CC=1 THEN SN$="":GOTO 3590 
3580 SN$=LEFTS(BS(NC),CC-1) 

3590 IF CC=LCCUNC) THEN DE$="":GO0TO3610 
3608 N=LC(NC>=CC: DES$=RIGHT$CBSUNCI ¿NN 
3610 ES(NC)=SN$+A$+DES 

3620 RETURN 

3625 REM 

3639 REM Ak COMANDOS xk 

3649 REM 

36990 IF FS>5 THEN 3710 

3709 RETURN 

3710 IF FS=9 THEN GOSUB 13900 :RETURN 
3720 1F FS=8 THEN GOSUB 4030;RETURN 
3725 IF FSC8 THEN RETURN 

3730 ON FS-9 GOSUB 3748,3910 

3735 RETURN 


REM 
3745 REM xk INSERCION Mk 
REM 


3770 IF CC=LC(NC>THEN RETURN 

3780 IF CC=1 THEN SN$="":G0TO3890 

3798 SN$=LEFTS$(BS(NC>,CC-1) 

3800 NaLC(NC>-CC+1: DE$=RIGHT$<BS(NC) ,N> 
3820 C$=BL$ 

3930 A$=SN$+C$+DE$ 

3849 BS$(NC>=LEFT$CAS, LO(NC)) 

3950 XX=xX: Yy=Wy 

3360 X=CX(NC) :Y=CY(NC> :GOSUB 11000 
3370 X=xx:V=Yy 

39980 REM 

3390 PRINT BS$(NC):S=-1 

3900 IF RIGHT$(B$CNC>,1)=PD$ THEN 3780 
3905 RETURN 


REM 
3918 e MER BORRADO Mod 


3930 IF TPNCICO1 THEN 3950 

3949 IF MID$(BS$INC>,2,1)=PDF AND CC=1 THEN RETURN 
3950 IF CC<1 THEN RETURN 

3960 IF CCSLC(NC) THEN DE$="":GOTO 3980 
3970 N=LC(NCI-CC: DE$=RIGHT$CBS(NC) ¿+ N> 

3920 SH$=LEFTS(B$CNC),CC-1) 

3999 IF TPNC>=1 OR TPONC)=2 THEN C$=NS$:COTO 4010 
4000 C$=AS$ 

4010 ESCUNCI=SN$+DES+CS 

4020 XX=Xx:Yy=Y 

4030 X=CX(NC) :Y=CY INC) :GOSUB 11000 

4040 X=%X:Yaty 

4050 PRINT B$(NC):S=1: RETURN 

4090 REM Moa AL INEADOS AadodoloK 

4034 IF LC(NC>=1 THEN RETURN 

40€5 Ni=LC(NC>-CC+1 

4087 IF CC=1 THEN BES$(NC)="":G0TO4100 

4090 ES(NC>=LEFT$(BS$(HC),CC-1> 

4109 IF TPCNC)=1 OR TPONC>=2 THEN 4150 
4110 FOR I=1 TO Ni 

4120 BS(NC>=BS(NCI+BL$ 

4130 NEXT 1 

4149 GOTO 4198 

4159 FOR I=1 TO Ni 

4160 BS(NC)=CHR$(32)+B$(NC) 

4170 NEXT 1 

4120 IF RIGHT$(BS$(NC),1)=PD$ on Y 1) 
4199 «=CX(NC) :r=CWY (NC) :GOSUB 11 

4210 PRINT B$(NC> RETURN 

4270 REM CTRL PUNTO 

4230 SHP=0 

4300 IF CC=1 OR CC=LCINC> THEN SHP=1:RETURN 
4310 FOR I=1 TO LC<NC) 


7042 
7044 
7046 
7090 
7093 
7097 
7100 
7110 
2009 
e045 
galo 
ae15 
8020 
8025 
e03u 
2035 
3048 
2045 
2050 
8055 


IF MIDSC(B$(NC>,1,12=BL$ THEN I=LCCUNCI :SWHP=1: RETURN 
NEXT I:RETURN 
REN 


REM 
REM kk GESTION DISCO ack 
RE 


REM APERTURA FICHERO 
EA AA AAA 
OPEN2,8,3,NF$ 

REM 

RETURN 


Ri 

REM CIERRE CANAL COMANDOS 
RMS AAA 
CLOSE1 

RETURN 

REM 


CLOSE2 
a 


RE 
REM CIERRA FICHERO 
RE! 


PIPA: R2=0 

IF R1>256 THEN R2=INTCPA/256) :R1=R1-256KR2 
PRINTH1,"P"CHR$(3+96)CHR$(R1)CHRSCORZICHRSC 1) 
RETURN 

REM 


REM CONTROLES SOBRE LOS FICHEROS 
GOSUE 6800 :GOSUB 6208 
INPUT+1,A,B$,C,D 

GOSUB 6408:GOUSUB 6608 

RETURN 


En 

REM dk CARGA LOS DATA ek 

IF 0PZ=5 THEN 7006 
L=LENCYOS$COPZ))-3:L$=RIOHTS(VOSCOPZ>,L):1F 0PZ=0 THEN 7005 
U$="DZ "+STRSCOPZI+" " 

P=(30-L)/2:P$="":FORK=1TOP:P$=P$+" ":NEXT K 

PRINT"A"; :PRINTCHR$C14) 

PRINT"MZA Er.|... "DICIONES -ORUM, v.%." 
PRINT"MEA "5US; "AS . 
PRINT"MAM su PS; 

IF OPZ=0 THEN PRINT" 345 Ha"; 

PRINT"MaA"LS$; "E" PS 

PRINT"IDBBADDIAS z 

qu a O O RA 
X=25:=23:60SUB11000:PRINT"A-1-L+ 1: el, 


REM 
IF OPZ=0 THEN RETURN 
REM 


ON 0Z GOTO 7042,7044,7046,7110,7110,7119 
LV=54 : GOSUB20000 : NUC=6 : DS=11 :COTU7090 
Lv=117:GOSUB20090 : NUC=4 : DS=2: GOTO7098 
LY=143 : GOSUB20000 : NUC=4 : DS=13:G0T070390 
FOR I=1 TO DS:READ D$CI>,DXC1),DYC1):NEXTI 
FOR I=1 TO NUC:READ TP<I>,LOCI>,NDC 1), CXC 1), CC 1) 
REM 

NEXT_1 

RETURN 

REM aa GESTION DISCO arce 

IF 16=2 THEN 8960 

RE=1+RE 

IF REVALC(TDS) THEN RETURN 

PA=RE : COSUBE300 : INPUTH2. AS 

Ki=1:I=9 > 
I=I+1:1F I=11 THEN RETURN 
K2=WAL(B2$(0<1-1)6+3)) 

IF K2=0 OR SK$CI><5"S" THEN 8050 
B$CI>=MIDSCAS,K1,K2) 

K1=K1+K2 

GOTO 8038 


10134 
10135 
19136 
10140 


A$="":I=9 

I=I+1:IF I=11 THEN 3085 

IF VALCE2$(C1-1)46+3))=0 OR SK$(1><>"S" THEN 8920 
AS=AS$+B$C 1) 

GOTO 2065 

REM ESCRIBE EL REGISTRO FORMADO 
Re=VALCTDS>)+1 

PA=RS : COSUEESOO: PRINTHZ. AS 
TD$=STR$(RS) 

PñA=1 : COSUBS200: PRINTHZ, TDS 

RETURN 

REM enn mc ns 
REM 

REM RUTINAS CALCULOS 

REM 


REM ao ERRORES Ao 

PRINTHOS 

ON ERR GOTO 9160,3178 

X=2:Y=10:G0SUB11000:PRINT"NLA LONGITUD DEFINIDA PARA EL REGISTRO" 
Y=+2:605UB11000:PRINT"SUPERA EL MAXIMO PERMITIDO " 

GOTO 9508 

4=2:'Y=10:G05UB11000:PRINT"NT—S- EN DISCO " 
Y=+2:GOSUB11000:PRINT" ¿/3747 FUERA DE LINEA " 


> GOTO 9508 


REM RETORNO 
4=6:1=20:605UB11000:PRINT"ENFULSE UNA TECLA PARA VOLVER" 
POKE198,6:WAIT 198,1: ET +0: RETURN 


0 REM 44 ESPERA DE 1 TECLA 


%=4:=24:COSUB1 1000: PRINT"RPULSAR UNA TECLA PARA CONTINUAR"; 


B PUKRE 193,0: WAIT 198,1 


POKE 198,0 


Y RETURN 


REM 44 PETICIÓN IMPRESION Y,C AA 
4=3:Y=10:G0SUE1L 1000: FRINT"*INTRODUCIR OPCION :" 
4=7:w=13:COSUE11000:PRINT"E<CALMD EN EN VIDEO" 
Yaw+2: COSUE1 1000: PRINTEC EN IMPRESORA" 
4516: =Y+3: GOSUB11000:PRINT"MIELIJA ":x=22 

GET R$:IF R$<>"" THEN 9295 

GOSUE11000:PRINT" 3?" :FORT=11090:MEXTT 





GUSUB11000:PRINT" ":FORT=1T090:NEXTT 
cOTU 3975 

=YALURSI IF R<1 OR Ro2 THEN 9275 
RETURN 


Y REN ARARARRIRARA IATA RARA 


DATA 145,17,29,157,140.,133,126,13. 25,194,135,0,0,0,8 
E A E MA Ta Am 
GE A ES IE E 


DATA" a e A ES 7] AT" 
DIATA"A  -0- y1 : “o Lt0t 1,18 a 
DATA"  —-0- "TO/ : O Ltos ales " 





DATA" da ESA NM */18 a 
DATA" a (lA RARA 
A A A a 

DATA" da 1?! ¿XL ALS 
DATA" da. 181 ERAAAA EA 
A ESA ES Y 
E ¿MORT LA As 


30 REM AAA OPERADORES Ao 


DATA"+", AA] E AI, cd E ” 2 " ¿9 n, La", iz SO? 

REM AAA INSTRUCCIONES JRRARRAR 

DATA"LEE",10,"ESC",18,"BOR",8. "EUS",3,"CAL",4,"DEC",4, "REP", 10,"FIN"/0 
REM ARA OP LL 

DATA"-ESCRIPCION | IPO LON “EC OL LIN",4,7 


E DATA"1: ",4,9,"2: ",4,10,"3: ",4,11,."9: ",4,12,"5: ",4,13,"6: ",4,14 


DATA"?: ",4,15,"2: ",4,16,"9: ",4,17,"10: ",3,18 
DATA2, 10,0,7,9 

DATA1,1,0,18,9 

DATA1,2,0,22,9 

DATA1,2,0,27,9 

DATA1,2,0,32,9 

DATA1,2,0,37,9 

REM Mao A Jo oocoER 
DATA" a 119 
DATA"L/la 1 /7",24,39 
DATA3.6,0,16,9 

DATA1,2,0,35,3 

DATA3,1,0,15,15 

DATA2,1,0,33,15 

A O iS 


DATA" UM. ",3,8, "»NSTRUCCION", 11,8, ""HRAMETRO",27,8 
DATA"1:",5,14,"2:",5,15,"3:",5,16,"4:",5,17,"5:",5,18 
DATA"6:",23,14,"7:",23,15,"8:",23,16,"9:",23,17,"18:",22,18 
DATA1.2,0.4,18 

DATA3,16,8,11,108 

DATA3,6,0,23,108 

DATA3,10,0,8,14 

e TORO ARMAR: 


mM 
REM dololok POSICIONADO EN X, Y aodok 
POKE 211,X 
POKE 214,Y 
Svs58732 
RETURN 
REM dk FASE 1, DEFINICIONES Ak 
PRINTHO$:0Z=1:GOSUB 7080 
REM ok PREPARA MASCARA. JOR 
FOR J=2 TO 18 
K1=1+6X(J-1):K2=K1+5:P=9: IN=CY(K1-6> 
FOR K=kK1 TO K2 
P=P+1 
TPCK>3=TPCP> :LOCK>I=LCCP) :NDCK>=NDCP > :CXCKI=CXCP) :CrYC(K)=IN+1 


12017 NEXT K 


12018 
12019 
12020 
12021 
12022 
12023 


NEXT J 

TIN B$(J)2B2$(J):TPCJ>=5:NEXTJ 

NUC=68 : COSUB 2608 

IF G9=8 THEN 12024 

K9=2 

FOR K=K9 TO K3+4:TP(K>=1:NEXT K: IF K9(56 THEN K9=K9+6 :G0T012023 
J=1 


COSUB 3048 

IF FS=7? THEN RETURN 
IF FS=6 THEN 12020 

IF FS=9 THEN 12025 
69=1 

REM dk TRANSFIERE LOS BUFFERS A B2$(k)> Y PONE A CERO ak 
FOR I=1 TO 60 
B2$(1>=BSC1>:BSCI)="" 
NEXT 1 

FOR I=1 TO 6USTEF6 
I$=LEFTS(B2$(1),1) 


5 IFCCISCOCHRSC 32 )0RIGCOCHRSC(35))ANDISCS"")ANDEZ$(1+1)<5"1"THENB2$C1+1)="3" 


V1SVALCB2$(1+1)) :V2=VAL(B2$(1+2)):V3=VAL(B2$(1+3)) 

IF Vi=1 AND V2<=Y3 THEN B2$(1+2)=STR$(V3+1) 

NEXT 1 

PRINTHO$:0Z=2:GOSUB 7008 

IN=CY (3) 

FOR 1=5 TO 125TEP2 

TPCD=STP(3) ¿LOC FLOC3) ¿NDCIENDCO3) :CXC II 3CXC3) : IN=IN+1:CW< 128 IN 
TP<I+1)=TPC3) :LOCI+12=LCC3) ¿NDC 1412 =8MDC3) :CXC1+19=0X(4):CW<1+1)=1N 
NEXT 1 

JJ=1 

FOR I=1 TO S:Y=14+1 

FOR J=0T01:x=2+184J 

GOSUB11000: IFRIGHT$(B2$C(JJ>,1)="4"THENJJ=JJ+6:C0TO012087 

PRINT" VW ¡B2$(JJ>:JJ=JJ+6 

NEXT J,1:JJ=0 

X=9:=12:G05UB11000:PRINT"SHNTRODUCIR “32w% PARA CAMPOS A MEMORIZAR" 
A A 
NUC=12 

GOSUB 2088 

J=1 

GOSUB 3048 

IF FS=7 THEN RETURN 

IF FS=6 THEN 12092 

IF FS=9 THEN 12096 

IF ESC1)="98RRRR "THEN 12091 

PRINTHOS 

X=4:Y=8:C0SUB11000:PRINT""wI LA UNIDAD DE DISCO SE VA": Y=Y+2 
COSUB11000:FRINT"A EMPLEAR PULSAR LA TECLA “we " 
X=X+4:Y=Y+3:C0SUB11000:PRINT"wI NO, LA TECLA “Ar” 

GET R$:IF R$="" THEN 12118 

IF R$<9"N" AND R$<>"S" THEN 12118 > 

IF R$="N" THEN RETURN 

LR=5:FORI=3T012 
IFBSC1>="S"ORBS$CI>="0" THENLR=LR+WALCE2F CC 1-3)K6+35) 0 SK$CI-2)="95" 601012135 
AR 


NEXT 
IF Le390 THEN ERR=1 : GOSUB9150: RETURN 


12140 
12142 
12143 
12144 
12145 
12146 
12148 
12150 
12152 
12154 
12156 
12152 
12160 
12162 
12164 
12170 
13000 


14016 
14017 
14018 
14019 
14020 
14022 
14100 
14105 
14110 
14115 
14120 
14121 
14122 
14124 
14126 
14129 
14130 
14132 
14133 
14200 
14205 
14210 
14215 
14220 
14225 
14230 
14235 
14240 
14245 
14250 
14300 
14305 
14310 
14315 
14320 
14325 


NF$=B$(1):GOSUB 6908 

IF A=62 THEN 12150 

IF A=74 OR A=70 THEN ERR=2:GUSUB 9150:A=8:G0TO012064 
COSUE 6000:GUSUB 56248 

PA=1:GOSUB 6200: INPUT+2. TDS 

GOSUB 6500:GOSUB 6400 

RETURN 

REM ABRE EL FICHERO Y ESCRIEE REG. +1 
COSUB 6000 
OPEN2,38,3, "0: "+NFS+", Lo "+CHRFCLR+2) 
TD$="91":FORK=1TOLR=-2:TD$=TD$+"4" :NEXTK 
PA=1:GOSUE 6399 

PRINTH2, TDS 

CLOSE2 

GOSUE 6409 

RETURN 

REM a a. JR 

a CY 

m=1: veza. 

GOSUE11000: PRINTHS$C1>;" dá 

FOR HE=2 TO 12 

GETR$: IFR$=""ORR$<>CHR$(13)THEN13025 


COSUB11000:PRINTHSCHE> 

NEXT HE 

CETR$ : IFR$=""ORR$<>CHR$C13)THEN13037 

COSUB110900:PRINT" ATL+ 1: tm; 
2=C0:Y=CY 

RETURN 


REM dolo EJECUCION PROGRAMA ot 
DE= 
RE=1:IF VALC(TD$>>0 THEN GOSUP 6000: GOSUB 6200 


3 GOSUE26000 


NI=0 
NI=NI+1:IF NI=53 THEN 14020 
IST$=1ST$CNI) : PERS=PERSONI) :NTENTONIO 
FORI=1T010:P78(1)=PARS(NI, 1) “NEXT! 
=0 
I=1+1:1F LEFTSCISTS,3)=FR$(1) THENIO=1:G0T014816 
IF_1<8 THEN 14812 
COTO 14928 
ON I GOSUE 14100, 14208. 14308, 14408, 14600, 14708, 14808, 14980 
IF ER<)0_THEN RETURN 
IF Fl=1 THEN CLOSE1:CLOSE2:00T014028 
GOTO 14806 
X=2:W=21:G0SUB11009:PRINT"mPULSAR UNA TECLA PARA VOLVER AL MENU" 
POKE198, 6: WAIT198, 1:POKE199, 8: RETURN 
REM AR LEE ARA 
02=6:NUC=18 
GOSUE 16080 
IF PER$="D" THEN GOSUBS080: RETURN 
IF PERSC)"Y" THEN RETURN 
PRINTHOS 
GOSUB 2988 
COSUB 2088 
IF FS=9 THEN 14124 
IF FS=6 THEN 14122 
IF FS=7 THEN RETURN 
RETURN 
REM 
REM Ak ESCRIBE HR 
02=6:NUC=18 
GOSUB_16699 
IF PER$="D" THEN GOSUE 8090:RETURN 
FOR I=1 TO1G:1F TPC1><0 THEN TPC1>=4 
NEXT_1 
COSUB 2068 
X=4:Y=21:GOSUB11000:PRINT"NPULSAR UNA TECLA PARA SEGUIR" 
POKE198, 8: WAIT198, 1:POKE198, 1 
RETURN 
REM rn 
REM Jo BORRA Allo: 
IF PERS$="Y" THEN PRINTHOS : RETURN 
AR$="":FOR K=1 TO LR:RASSRAS+"4":NEXTI 
FOR 1=2 TO VALCTDS) PAS]. COSUBSSOO PRINTAZ,RAS:NEXT 1 
TDS="91"+RIGHTS CARS, LR-2> 
PA=1 : GOSUB6988 :PRINTHZ, TDS 


14330 RETURN 


14335 REM 


14408 


REM aólolok BUSCA Malal 


14405 
14410 
14412 
14420 
14425 
14430 
14435 
14440 
14445 
14450 
14455 
14469 
14465 
14470 


14489 
14485 
14490 
14495 
14509 
14505 
14510 
14515 
14520 
14525 
14530 Ri 
14600 
14605 
5 


14510 
14615 


14620 


K=1:COSUB 16100:P2=WAL(B2$((J-1)K6+3)) 

IF_P7$(2)="" THEN 0P=10:60T014429 

GOTO 14448 

K9=ASC(B$(J)> 

IF K9>47ANDK9<58 OR K9=32 THEN Z=VAL(B$(J)):CP$="":GOTO 14435 
CP$=B3 CJ) 

GOTO 14465 

FOR OP=6 TO11: IFLEFT$(P7$(2),2)=0P$(0P)THEN144580 

NEXT OP:ER=4:GOTO 25088 

K8=ASC(P?7$(3)) 

IF K8>47ANDK8<58 THEN Z=WAL(P7$(3)):CP$="":GOTO 14465 
LP$=P7$(3) 

IF J=1 THEN Pi=1:G0TO 14485 

P1=1:FORI=1T0J-1: IFSK$(1)<>"S"THEN14489 
P1=P1+VAL(B25((1-1)16+3)) 

NEXT_1 

FOR 1II=2 TO VALCTDS)> 

PA=1 1 : GOSUBES00: INPUTR2, AS 

GOSUB 15010: IFFC=1THEN14515 
NEXTI1:PRINTHOS:X=10:Y=10:G0SUB11000:PRINT"MNO HALLADO "¡P?$(1> 
FOR I=1 TO 10: IFSK$(1>="S"THENB$(I="" 

NEXT_1:G0T014525 

GOSUB 8025 

PRINTHOS:X=14:Y=10:G0SUB11000:PRINT"MHALLADO ";P7$(1> 

mn ¿NEXTI ¿RETURN 

REM dol CALCULA modal 

IFASC(P7$(2) )<480RASC(P7$(2))257THEN K=2:GOSUB16100:Z1=YAL(B$(J>>:G0TO1461 


Z1=WAL(P7$(2)) 
IFASCCP7$(4))<4B0RASCCP7$C4))357THEN K=4: COSUB16100: Z2=VAL(BS(J)) :G0TO1462 


Z2=WAL(P7$(4)) 


14623 I=0 


14630 
146235 
145640 
14545 
14650 


14651 


14560 
14665 
14670 
14675 
14629 
14700 
14705 
14710 
14715 
14720 
14725 
147230 
14735 
14740 
14759 
14752 
14755 
14758 
14761 
14762 
14764 
14766 
14768 
14769 
14770 
14772 


1I=1+1:1F I=6 THEN ER=5:G0T025000 

IFLEFTS(P7$C3), 1)=0P$C1)THEN14645 

GOTO 14630 

ON 1 GOTO 14655, 14660, 14665, 14670, 14675 

K=1:COSUB16100:B$(J)=MIDICSTRECZ3), 2, LENCSTRÍCZ3)9-1) :LO=VAL(B2$((J-1)K6+3 


LE=SLENCB$CJ)):1F LESLO THEN BS$C(J)=LEFTS$CBS$C(J>,LO> 

IF _LE=LC THEN 14654 

FOR 0OT=1 TO LC-LE:B$(J>="0"+B$(J):NEXT OT 

RETUEN 

22=21+22:60T014650 

¿3=Z1-22:G0T014650 

23=21Z2:60T014650 

23=21/22:60T1014650 

23=21122:60T1014650 

A 

REM eollk DECIDE Ao 

K=1 :GOSUB16100:A$=B$(J> 

IFASCCP7$(3) 374 7ANDASCCP7$C3)><58THENZ=VWALCP7$(3)):CP$="":G0TO14760 
IFLEFTSCP7$(3), 1)=CHR$(39)THENP1=2: 1=1:G0T014725 

G0TO014748 

I=1+1:1F I=11THENP2=9:G0T014750 
TIFMIDSCP7$C3), 1. 1)=CHR$C39)THENP2=1-2:60T014750 

COTO 14725 

K=3:G60SUB16100:CP$=B$(J) 

CP$=M1D0$(P7$(3).P1.P2> 

0P=5 

OP=0P+1 : IFOP=12THENER=4 : GOTO25000 

IF LEFT$(P7$(2),2)=0P$C0P)THEN 14762 

GOTO 14755 

7" ADAN IF FC=4 THEN RETURN 

I=14+1:1F I=M3+1 THEN PS$=P7$(4):00T014770 
IFVAL(P7$(4>>)=NTCI>THEN14774 

GOTO 14766 

PRINTHOS : PRINT"»BRBODODOMDDMLA INSTRUCCION "¡P3$;"NO EXISTE" 
PRINT"MMMBBPULSAR UNA TECLA PARA VOLVER AL MENU" :POKE198,0:WAIT198,1:ER=1 


RETURN 


14774 
14776 
14778 
14729 
14782 
14734 
14785 


IST$=1IST$C1>:PERS=PER$C1):NT=NTCI)¿K=0 
KeK+1:IF K=11 THEN 1=0:C0T014789 
P7S$CKI=PARSCI,K>:GOTO 14776 

I=1+1:1f 1=9 THEN ER=1:Cc0TO025009 
IFLEFTSCISTS,3)=FR$(1>THEN14785 

GOTO 14780 

DE=1 


14786 ON 1 COSUB14100, 14200, 14200. 14400, 14690, 14790. 14390. 14908 16648 GOTO 16618 





14790 RETURN 15045 RETURH 

a 16050 REÍ === 
14200 REM ado REPITE delo 15109 REM bil EUSCA CAMPO FC=1 444 

14805 IFASC(PER$)>47ANDASCCPER$><58THENN=VALC(PER$):G0T014315 16105 J=0: = 

14210 K=0:P7$cK)=PERS: GOSUB16190:N=WAL(BG(J>5 15110 I=1+6:1F 155 THEN ER=3:COTO25000 
14815 FOR lWI=1 TO 10:PP$CWI>=P75C(M1) :NEXTHI 15115 J=3+1 

14226 FOR WI=1 TO N 16120 IF F7$cK>=E2$(1) THEN 15130 

14825 FOR WJ=1 TO 18:1F LEFTSCPP$CUJ),3)="FIN" THEN 19290 16125 GOTO 16118 

14230 FOR Wk=1 TO M3: IFVALCPP$CHJ>)=NTCHKOTHEN1 42340 16130 RETURN 

14235 NEXTWK:PS$=PP$CHJ)>:GOTO 14770 RRÁ_A=_ÁAA AA AAA 
14840 IST$=IST$CHUK) : PER$=PER$CWK) : NT=NTCHK) 20008 REM RESTORE DATA 

14245 IF LEFT$CIST$,39<>"RIP" THEN 14860 20005 RESTORE > : 

14850 PRINTHOS:X=1:Y=12:GOSUB11099:PRINT"NNO SE PUEDE REPETIR LA INSTRUCCION";NT 20810 FOR 1=8 TO €2:READ D:NEXTI 

14855 W=W+3:G0SUB11098:PRINT"PULSE UNA TECLA":POKE198.6:WAIT192, 1:ER=5:RETURN 20028 FOR I=1 TO NW:READ X$:NEXTI 

14850 FORWb=1T010:P?7$CHW)>=PAR$ CK , b1) : NEXTHD 20025 FORK=1 TO 3 

14365 FOR IK=1 TOS: IF LEFTS$CISTS.2)=FRSCIK) THEN 14275 20030 FOR 1=6 TO 62:READ D:NEXTI 

14270 NEXT IK:ER=1:GOTO 25008 20025 NEXT K 

14875 10=IK 20845 IF LY<=0 THEN RETURN 

14980 ON 10 GOSUB14100, 14200, 14300, 14400. 14600, 14700. 14800, 14900 20058 FOR I=1 TO LY:READ LV$:NEXTI 

14395 NEXT MJ 20100 RETURN 

14890 NEXT MI 25000 REM 44d ERROR Aa 

14395 RETURN 25010 PRINTHOS:%=6:W=9:GOSUB11090:PRINT"IT—5- "¡ER;" PULSAR UNA TECLA" 
ooo 25015 POKE192,0:WAIT198,1:POKE198,0:RETURN 
14900 REM JOROk FIN dk 26069 REM PUESTAS A CERO 

14302 IF DE=1 THEN 14319 26010 FORK9=1T013 

14305 CLOSE1:CLOSE2 E 26015 TP(K9)=4:LCCK9)=1 :NDCK9)=0:DF$(K9)="":BSCK9)="" 
14310 x=12:Y=13:GOSUB11090:PRINT"IFIN PROGRAMA" :FI=1:RETURN 26029 CX(K9)=0 CW(K9)=0:DX(K9)=0: DY(K3)=0 
14920 REM ===> 26025 NEXT K9 

15000 REM alo COMPARACION RARA: 26038 RETURN 


15005 Pi=1:P2=10 

15010 A1$=MID$CA$.P1,P2> 

15015 K7=WALCA1LS$> 

15028 IFCP$=""THENZ1=K7:FZ=0:G0T015950 

15025 FZ=1 

15038 IFLENCA1S$)=>18THENA1S= LEFTS$(A1$,10):G0TO 150489 
15032 K5=10-LEN(A1$) 

15035 FOR 0=1 TO KS:A1$=A1$+CHR$(32) ¿NETO 


RELACION DE LAS PRINCIPALES VARIABLES - COMMODORE 64 


MO dS me  TEUITT TIM CP$sLEFT$(CPS$,10):G0TO 15050 BS(+) =matriz de los buffers (1 DS =número de descripcio- 
5042 K5=10-LENCCP$) ¡ E ¡- 
15045 FOR Q=1 10 KS'CPS=CPSICHREC3Z) “NEXTO ri ae aoale e E OI 
50 0=0P-5+(FZK6 / : si 

15051 1F 076 THEN 15055 LC(+) =longitud del campo de B2$(*+)  =matriz auxiliar para las 
15052 ON O GOTO 15060, 15099, 15190, 15120, 15140, 15160 introducción descripciones 

15055 ON 0-6 GOTO 15070, 15090, 15110,15130,15150,15178 ND(+) =número de decimales ISTS(*)  =matriz para instruccio- 
25088 A HA FC=1:RETURN en el campo de intro- nes 

062 FC=B:RETU e E 
15076 IF ALFOCPS THEN FC=1: RETURN ducción PERS(*) =cadenas de identifica- 


ción para periféricos 


15072 FC=0: RETURN pon 
PARS (x,*)= parámetros en las ins- 


15090 IF Z1<2 THEN FC=1:RETURN CY (+) 
15022 FC=0:RETURN 


=coordenadas en el ví- 
deo del campo de intro- 


IF A13<CP+ THEN FC=1:RETURN 
FC=0:RETURN 


3 1F Z12=Z THEN FC=1:RETURN 


FC=b:RETURN 


y IF AL$>=CF$ THEN FC=1:RETURH 


FC=D: RETURN 


9 1F 21%ó=2 THEN FC=1:RETURN 


FC=0 RETURN 


20 1F AL$<=CP+ THEN FC=1:RETURN 









2 FO=8: RETURN 


IF Zi=Z THEN FC=1:RETUEN 


FC=0:RETURN 

ú IF A1$=CPS THEN FC=1:RETURN 
FC=B:RETURN 

B IF 21<9Z THEN FC=1: RETURN 
FC=0:RETURN 

A IF AIS$<OCPF+$ THEN FC=1:RETURH 
FC=0: RETURN 

O REM OA BUSCA CAMPO ARA 
J=0: I=-5 

=1+6:1F 1755 THEN 16045 
sel 


KsK+1:IF K=11 THEN TP<J>=0:GOTO 16048 

IF F7ECKo=B2$(17 THEN 16035 

GOTO 16020 

DécJ)=B2$0 10: TPLJ=WALCE28C 1419) :LCCJ)=WALCB2$1 1427) :NDCJ)=WAL(BE2$0 1+3)) 
DACIO=YALCB2ZIC 1449): COJO =VAL(B2Z$L 1459) + CXCJ)=C DALE JI4110 DW J9=C Y CJ) 


ducción 


Dv) ] =coordenadas en el ví- 
deo de la descripción 

TF(x) = matriz numérica con los 
códigos ASCII de las te- 
clas de comando 

DS(+) =descripciones en las 
máscaras video 

VOS(*)  =voces del menú princi- 
pal 

BLS =blank 

PDS = punto decimal 

AS$ =carácter “—; identifica 
los campos de intro- 
ducción alfanuméricos 

NS$ =carácter “4”; identifica 
los campos de intro- 
ducción numéricos 

=borrado de pantalla 
=número de campos de 

introducción en la más- 
cara video activa 


trucciones 

G5 = flag de llamada al bucle 
de introducción de ins- 
trucciones 

M3 =número máximo de ins- 
trucciones 

OPS$(*)  =operadores 

NP(+) =número parámetros 

FRS(*)  =matriz para el reconoci- 
miento instrucciones 

NFS =nombre fichero datos 

PA =registro actual 

TDS = último registro introdu- 
cido, en forma alfanu- 
mérica 

10 = índice para gestión del 
disco 

= flag de comparación 
ER =indicador de error 





El ordenador para el ordenador/Versión Apple ll 





140 
300 


530 


a 
e 
ón 


££0 


RES == ESE 
REM ORDENADOR PARA EL ORDENADOR 
REM VERSION DOS 

RA 
MP$ = "EL ORDENADOR PARA EL ORDEN 
ADOR": 


DIM B$(50),TP (60) ,ND(60),LC(60),D 
$150),DX (60) ,DY(50),CX (60),CY (50) 
, 18$(99),PA$ (99,10) PES (99): 
ONERR GOTO 40000 
GOSUB 1300: 
IF OP = NV THEN TEXT : 
HOME : 
END 
FOR] = 1.7107: 
READ FR$(1): 
NEXT l: 
FOR 1 = 1 TO é: 
READ CF$(1): 
NEXT 1: 
FOR I = 1 TO 4: 
READ OP$(1): 
NEXT 1: 
FOR 1 = 1 TO 9: 
READ ER$ (1): 
NEXT 1: 
ON OP GOSUB 5000,8000, 12000, 14000 


GOTO 100 
REM 
TEXT 
HOME 
BP$ = CHR$ (7): 
D$ = CHR$ (4): 


DR$ = "1": 

ES = " a 

BA$ = B$ + B$ + B$ + B$: 
BS = 0 

BU$ = E$ + B$ + B$ + B$: 
ES = ==="; 





BES = BS + B$ + B$ + B$ 

HE$ = "CTRL E. INTRODUCCION - CTR 

LR. VUELVE AL MENU - CTRL A,S,Z, 

W. MUEVEN EN LAS 4 DIRECCIONES - 

CTRL 1. INSERCION - CTRL D. BORRA 

- ESC . ANULACIÓN PULSAR 

UNA TECLA": 

Bs = o" 

TEXTOS 

HOME 

IMYERSE : 

PRINT BAS; 

FOR I =1 
PRINT " 
HTAB. 40: 
PRINT " "3 

NEXT 1: 

PRINT BA$;: 

NORMAL. : 

VTAB 2: 

HTAB 

PRINT 

UM, S 

TI$ = 

YT = 4: 

GOSUB 2700: 

NORMAL : 

A 

INVERSE : 

G0SUB 2700 

NORMAL: 


TO 21: 






. 6. S. EDICIONES FOR 
A.": 
CAE. EE 0 


1000 
1010 


1040 


1100 
1110 


1200 
1210 


1220 
1300 


1330 


350 


1410 


1440 





RETURN 

REM 

ro 

1 V- 13 

CH =  SCRN( X1,2 € Y1) + 16 


Y SCRN( X1,2 1 Yi + 1): 
HTAB X: 
VTAB Y: 


o 
é 


IF FC = O THEN INVERSE 
PRINT— CHR$ (CH)z+ 
HTAB X: 

NORMAL : 

RETURN 
REM 

X =X1 
Y. Yi 
NORMAL 
HTAB X: 
VTAB Y: 
PRINT — CHR$ (CH)5s 

HTAB X: 

RETURN 

REM 

AO = PEEK ( - 16384): 

IF AO > 128 THEN POKE - 16368,0 


“++ 
. 


AO = AO - 128: 


RETURN 
GOTO 1210 
REM 
GOSUB 500: 
RESTORE : 
READ NV: 
IF NY = O THEN RETURN 
L =0: 
FOR 1 = 1 TO NV: 
READ VO$(1): 
LL = LEN (VO$(1)): 
¿FUEL? L. THEN L.= LL 
NEXT 1: 


x= 
. 
' 


= (40 - 1) / 2: 
YI = ((24-N 1 2) / 2) +1: 


Y = Y 


VTAB Y: 

FRINT "CUAL 2 "32 
GOSUB 1200: 

OP$ = CHR$ (A0): 
DP = VAL (0P$): 
IF OP < 1 OR OP > NV THEN 
PRINT BF$;: 

GOTO 1410 

FLASH : 

PRINT OP: 

NORMAL : 

FOR 1 = 1 TO 1000: 
NEXT 1: 

RETURN 

REM 

60DSuB 500: 

HTAB 3: 

VTAB 23: 


2040 


2080 
2085 


2090 


2150 


2150 


2500 
2530 


2335 


2550 


2560 


2580 
2590 


2700 


2730 


2800 
2830 





PRINT IN$;: 
IF CO < -> 0 THEN PRINT " "sCO; 
FOR IC = 1 TO NC: 
HTAB DX(IC)>: 
VTAB DY(I1C): 
PRINT D$(IC): 
B$(IC) = LEFTS (B$(IC),LC(IC) 
». 
L = LEN (B$(1C)): 
IF L < LC(IC) THEN B$(1C) 
= B$(IC) + LEFTS$ (BA$,LC(IC) 
A 
IF TP(IC) < > 1 THEN 2120 
IF ND(IC) = O THEN 2112 
PD = ND(IC): 
c1 LGUIE) =.BD:= 15 
C2-=LC(ICY -= Ci - 12 
B$(IC) = LEFTS (BA$,C1) 
E E a 
AS = LEFTS (BES$,C1) + "." 
+ LEFTS (BE$,C2): 
GOTO 2160 
B$(1C) = LEFT$ (BA$,LC(IC)): 
A$ = LEFTS (BE$,LC(IC)):< 
GOTO 2160 
IF TP(IC) £ > 4 AND TP(IC) 
< > 5S3 THEN B$(IC) = LEFTS ( 
BAS,LC(IC)): 
18 =""; 
L=0 
GOTO 2150 
2$ = B$(IC): 
GOSUB 2500: 
L = LEN (2$): 
B$(IC) = 2$ + MID$ (BA$,1,LC( 
IC) - L) 
A$ = 726 + MIDS (BU$,1,LC(IC) 
=0) 
HTAB.CX(IC): 
VTAB CY(IC): 
PRINT A$: 
NEXT IC: 
RETURN 
REM 
L = LEN (29): 
IF L = 0 THEN RETURN 
FOR 1 = 1 TO L: 
C= ASC ( MIDS (2$,1,1)): 
IFC< >32 THEN 11 = 1: 
GOTO 2560 
NEXT 1: 
28 ="": 
RETURN 
FOR 1 =L TO 1 STEP - 1: 
E = ASC ( MIDS (28,1,1)): 
IFC< >32 THEN 12 = I: 
GoTO 2590 
NEXT 1 
KO = 12 - li + 1: 
7% = MIDS (2$,11,K0): 
RETURN 
REM 
XT = (42 - LEN (TIS)) / 2: 
HTAB XT: 
VTAB YT: 
PRINT TIS;: 
RETURN 
REM 
A$ = LEFT$ (BA$,38): 
HTAB 2: 
VTAB YT: 






2930 


2950 


3030 


3070 
3080 


3085 


3100 
3110 


3120 
3130 
3140 


3150 


3180 
3190 


3200 


3500 


3530 


3540 


3943 


PRINT A$;: 

RETURN 

REM 

724 ="": 

A = LEN (26): 

FOR 1 = 1 TO Az 
71% = MIDS (2$,1,1): 
IF 218< >" " THEN 22$ 
= 224 + 215 

NEXT 1: 

74 = 22%: 

RETURN 

REM 

CC = 1: 

FC = 1: 

HTAB 27: 

VTAB 23: z 

PRINT "AYUDA.CTRL-Y" 

XC = CX(CC)2 

YC = CY(CC): 

LO = LC(CC): 

GOSUB 3500: 

IF AO = 5 OR AO = 18 OR AO 

= 27 THEN RETURN 

IF AO < > 26 THEN 3100 

CC = CC + 1: 

IF CC > NC THEN CC = 1 


IF TP(CC) = 4 THEN 3080 
GOTO 3040 

IF AO < > 23 THEN 3140 
CC = CC - de 

IF CC < 1 THEN CC = NC 
IF TP(CC) = 4 THEN 3110 
GOTO 3040 


IF TP(CC) < > 1 THEN BS(CC) 

= C$: 

GOTO 3080 

PD =0: 

FOR 1 = 1 TO LC(CC): 
C= ASC ( MIDS (C$,1,1)): 
IF (C < 48 OR C > 57) AND C 
<_>32 ANDC< > 46 AND C 
< > 45 THEN B$(CC) = Có$: 
PRINT BPS;: 
GOTO 3040 
IF C = 46 THEN PD = PD + 1 

NEXT 1: 

IF PD > 1 THEN B$(CC) = Có$: 

PRINT BP$;: 

GOTO 3040 

C$ = MID$ (C$,1,1C): 

2$ = C$: 

GOSUB 2500: 

2$: 

LC(CC) - LEN (C$):2 

MIDS (BA$,1,K0): 

AS = A$ + C$: 

B$(CC) = A$: 

AS = MID$ (BE$,1,K0): 

AS = A$ + C$: 

HTAB XC: 

VTAB YC: 

FRINT A$: 

GOTO 3080 

REM 

IC = 0: 

C0$ = B$(CC): 

IF LO = O THEN RETURN 

IF CC = 0 THEN HTAB XC: 

VTAB YC: 

PRINT— MID$ (BU$,1,LO)> 

X = XC: 

Y = YC 

IF MID$ (C$,1IC + 1,1) = ".* 

AND TP(CC) = 1 THEN IC = IC 

Fede 

X=Xx+1 

GOSUB 1000: 

GOSUB 1200: 


”= 
o 
nu. 


3360 


3650 


3655 
3650 


3570 


3700 
3722 


3725 


3790 


3800 
3830 


G0SuB 1100 

IF A0 = S OR AO = 23 OR AO 
= 26 OR AO = 18 OR A0 = 27 
THEN RETURN 

IF AO = 9 THEN GOSUB 3700: 
GOTO 3560 

IF AO = 4 THEN GOSUB 3800: 
GOTO 3550 

IF AO = 25 THEN GOSUB 13000: 
GOTO 3350 

IF AO < > 13 THEN 3420 

IF IC = O THEN 3590 

IF TP(CC) = 1 AND MID$ (C$,1C,1) 
= "," THEN IC = IC - 1 

C$ = MID$ (C$,1,1C): 

AS = MIDS (BAS,1,LO - 10): 
CS =C5$ + As: 

AS = MIDS (BUS,1,LO - 1C):2 
IF TP(CC) = 1 THEN A$ = MIDS (BE 
$,1,L0 - IC) 

HTAB XC + IC: 

PRINT AS: 

RETURN 

IF AO < > 1 THEN 3450 

IF IC = O THEN PRINT BPS$;: 

GOTO 3550 

IC = IC - 1: 

X= X - 1: 

GOTO 3550 

IF IC = LO THEN PRINT BP$;: 
GOTO 3550 

IF AO = O THEN 3550 

IF AO = 19 THEN IC = IC + 1: 
X= X + ls 

GOTO 3545 

CH$ = CHR$ (A0): 

PRINT CHS;: 

C$ = MIDS (C$,1,IC) + CH$ 
+ MIDS (C$,IC + 2,39): 

IC = 1C + 1: 

X=X +1: 

GOTO 3545 

REM 

IF IC = LO OR TP(CC) = 1 THEN AO 
= 0: 

RETURN 

2$ = C$: 

GOSUB 2500: 

CS = 24 

FC = 0: 

G0SUB 1000: 

GOSUB 1200: 

GOSUB 1100: 

IF AO = SORA =40RA0= 23 
OR AO = 26 OR AO = 18 OR AO 
= 27 OR AQ = 25 0R AO = 1 
OR AO = 15 DR AO = 13 THEN FC 
=1: 

RETURN 

CH$ = CHR$ (A0): 

C$ = MIDS (C$,1,IC) + CH$ 
+ MID$ (C$,IC + 1,L0 - IC 
<=" 

L= LEN (C$): 

AS = MIDS (BUS,1,LO — L): 
AS = C$ + A$: 

HTAB XC: 

FRINT A$: 

X= X +1: 

IC = IC + 1: 

IF IC < LO THEN 3730 

FC = 1: 

RETURN 

REM 

IF IC = LO OR TP(CC) = 1 THEN 
RETURN 

7$ = C$: 

60SUB 2500: 

CS = 26: 


5030 


5070 


s110 


5150 


5210 
5220 


C$ = MIDS (C$,1,1C) + MID$ (CS, 
IC + 2,L0 - 1C - 1): 
L = LEN (CS): 
AS = MIDS (BUS,1,LO — L): 
AS =C$ + AS: 
HTAB XC: 
FRINT AS: 
RETURN 
REM 
NC = 60: 
Y =1: 
FOR I = 1 TO 40 STEP 6: 
BS(1) = VNS(J): 
Bs (1 STR$ (VT(J)): 
Bs (1 STR$S (VL(J)): 
BS$(1 STR$ (VD(J)) 
B$(1 STRS (VX(J)): 
B$(1 + 5) STRS (YY (J)): 
FOR K = 1 TO I + 5; 
TP(K) = 4: 
ND(K) = 0: 
DS (K) ..s 
DX(K) = 1: 
DY (K) 1: 
NEXT Kz 
LCD =1 
LC(1 + 1) = 
FORK =I+ 
LC(K) = 2 
NEXT Kz 
CX(1) = 4: 
CX(I + 1) = 17: 
CX(I + 2) = 21: 
CX(1 + 3) = 26: 
CX(1 + 4) = 31: 
CX(1 + 5) = 36 
FOR K = 1 TO 1 
CYK) =J+ 
NEXT K:z 
J=J+1: 
NEXT 1: 
Ds (1) 
Ds (2) 
Ds (3) 
DS (4) 
Ds (5) 


+++++ 
LA 
"nu... 


”n..rRX.AX" 


O: 


1: 
2 TO 1 +3 


3 84 1 


+ S: 
9: 


"NOMB": 
"TIP": 
"LON": 
"DEC": 
"COL": 
D$(6) =. "LIN": 
FOR K 1 TO 6: 
DY(K) = 8: 
NEXT K: 
DX(1) = 
DX(2) = 
DX(3) = 


u 


4: 
16: 





DX (4) 26: 
DX(S) = 31: 
DX (6) 36 
IN$ = "DEFINICIONES FASE 1": 
CO = 0: 
G0SuB 2000: 
FOR 1 = 1 TO 60 STEP 6: 
TP(1) = 3: 
FORK = 1 +1 701 +5: 
TP(K) = 1: 
NEXT K: 
NEXT 1: 
G0SUB 3000: 
IF AO = 18 THEN RETURN 
IF AO = 27 THEN 5160 
Y =1: 
FOR IV = 1 TO 60 STEP 6: 
2$ = B$(IV): 
GOSUB 2900: 
BS(IV) = 25: 
UNS (J) = BS(IV): 
VTD) VAL (B$(IV 
vd) VAL (B$(IV 
YD(J) VAL (BS$(IV 
YU VAL (BS(IV 
YD VAL (B$(IV 


1)): 
2 Y 
3)): 
4)): 
SS): 


++ +++ 


nou tun 4 


5266 


5267 


5268 


35269 


5270 


5271 


can 
mn 
7 
MN 


5410 


5440 
450 


5467 


5480 


J=J+1: 

NEXT IV: 

FOR IV = 1 TO 10: 
IF VT(IV) < > 1 THEN VT(IV) 
=3 
IF VL(IV) < = 0 THEN VL(1V) 
= 

1 

IF VD(IV) < O THEN VD(IV> 
=0 
IF VX(IV) < 2 THEN VX(IV) 
=2 
IF VY(IV) < 5 THEN VY(IV) 
=5 
IF VX(IV) > 39 THEN VX(IV) 
= 39 
IF VY(IV) > 23 THEN VY(IV) 





FOR 1 = 3 TO 12 STEP 2: 
DX(1) =7 
DY(D) =y: 
CX(1) = 18: 
CY(D) =/: 
J=J+1: 

NEXT_1: 

J = 16: 

FOR 1 = 4 TO 12 STEP 2: 
DX(I) = 23: 
DY(D) =J: 
CX(1) = 35: 
CY(D =/: 
Yy=J+1: 

NEXT 1: 

FOR 1 =3 T0 12: 
TP(1) = 1: 
LC(I) = 1: 

NEXT I: 


IN$ = "DEFINICIONES FASE 2" 
GOSUB 2000: 

HTAB 3: 

VTAB 14: 


FRINT “INTROD. *1” PARA CAMPOS A 


MEMORIZAR": 


G0SUB 3000: 

IF AO = 18 THEN RETURN 
1F AO = 27 THEN 5410 
J=1: 





FOR 1 = 1 TO 10: 
VM(I) = VAL (B$(1 + 2)): 
IF VM(I) = 1 THEN VI(I) 


= y: 
J=J+VL(1): 
VD = VD + 1 
NEXT 1: 
DD = 0: 
IF B$(1) < > LEFT$ (BA$,6) 
THEN DD = 1 


MX = VAL (B$(2)): 
NF$ = B$(1): 


ss10 


5520 


3540 


6000 


6200 
6230 


6430 


6600 
6630 


8030 


8056 





LR =0 
FOR 1 

IF 

+ 
NEXT 1 
IF DD 
=0: 
RETURN 
GOSUB 0: 
NR = 1: 


1 TO 10: 
(1) = 1 THEN LR = LR 
(1D) 


sg 


O OR LR = O THEN DD 


GOSUB £200: 

MX = VAL (AA$): 

GOSUB 5600: 

RETURN 

GOSUB 4400: 

GOSUB 6000: 

ARAS = "1": 

NR = 1: 

GOSUB 6400: 

GOSUB 4400: 

MX = 1: 

GOTO 140 

REM 

PRINT DS: 

PRINT D$; "OPEN"¿NF$ + ",D" 
+ DR$;",LUGLR + 2: 

PRINT DS: 

RETURN 

REM 

PRINT D$: 

PRINT DS; "READ"¿NF$;",R"¿NE: 
INPUT AA$: 

FRINT D$: 

RETURN 

REM 

PRINT DS: 

PRINT DS; "WRITE"¿NF$;",R"5NR: 
PRINT — CHR$ (34) + AAS: 
FRINT D$: 


RETURN 
REM 
PRINT DS: 
PRINT D$;"CLOSE";NF$: 
PRINT D$: 
RETURN 
REM 
NC = 13: 
Y = 14: 
DS(1) = "NUM. ": 
D$(2) = "INSTRUCCION": 
D$(3) = "PARAM. "z 
TP(1) = 1: 
TP (2) = 3: 
DX(1) = 7: 
CX(1) = 7: 
DX(2) = 14: 
14: 
29 
TOS: 
( = 105 
DY(D) =8: 
2: 
10: 
5: 
3: 
4 TO 13 STEP 2: 
= 10: 
2 
= 12 
= B: 
= y: 
= 3: 
+1: 





8197 


o 
107] 


8200 


220 


8500 
3530 


8540 


8500 
2610 


2625 


8636 


8655 


FOR I = 5 TO 13 STEP 2: 
LCD 
DD 
DY (1) 
cx 
cr) 
Ds(D) 





A 


"INSTRUCCIONES": 

2000 

GOSUB 3000: 

IF AO = 18 THEN FETURN 

IF AC = 27 THEN 8150 

IF LEFTS (B$(2),4) = "FIN" 
THEN RETURN 

15% = RS(2): 












GOSUB 500: 

IF ER < 2 THEN  GOSUB 30000: 
GOTO 8140 

NL = VAL (B$(1)): 

IF NL < = O THEN ER = 4: 
GOSUB 30000: 

GOTO B140 

ISS(NL) = 1S$: 


IF 1S$ < > "" THEN 8200 
FOR 1 = 1701 
PAS(NL,D) = "": 
NEXT 1: 
PESINL) = ""z 
GOTO 8150 
PESI(NL) = "": 
FOR I = 1 TO 10: 
PASINL,D) = "": 
NEXT 1: 
ON IS GOSUB 8400,8400,8700,8800,9 
000, 9100, 9300: 
IF ER = O THEN PES(NL) = PES: 
GOTO 8150 
GOSUE 30000: 
GOTO 8160 
REM 
2$ = 18$: 
GOSUB 2900: 
2$ = LEFTS (2$,3): 
1S$ = 224: 
IF 1S$ = "" THEN ER = 0: 
RETURN 
FOR: 1: 1 TO 71 
IF FR$(1) = 2$ THEN ER = O: 
IS = 1: 
RETURN 
NEXT 1: 
ER = 1: 
RETURN 
REM 
2$ = B$(3): 
GOSUB 2900: 
25 = LEFTS (25,1): 
VK = 1: 
IF 26 < > "Y" ANDZ2$< > "D" 
THEN ER = 3: 
RETURN 
1F 2$ = "D" AND DD = O THEN ER 





RETURN 

PES = 724: 

FOR IV = 4 TO 13: 
26 = B$(1U): 
GOSUR 2 
VAS = Z$2 

GOSUB 9500: 

IF ER< > 0 THEN RETURN 

IF PES = "D" AND VM(VR) 

< > 1 AND VERS ne 

THEN ER = 6: 

RETURN 

IF VAS < > "" THEN PAS(NL, VK) 








8725 


8730 
8800 
geió 


8820 


88e50 


8860 


8870 


- 8880 


8910 


8920 


8930 


9000 
9010 


= VR$: 
VK = Ve +1 
NEXT IV: 
ER = 
IF VK = 1 THEN ER = 5 
RETURN 
REM 
2$ = B$(3): 
GOSUB 2900; 
PES = 726: 
ER = 0: 
IF” LUEFTS (PES,1) < > "Y" 
AND LEFTS (PE$,1) < > "D" 
THEN ER = 3: 
RETURN 
IF. LEFTS (PE$,1) = "D" AND DD 
= O THEN ER = 2 
RETURN 
REM 
2$ = B$(4): 
GOSUB 2900: 
VR$ = 26: 
IF UR$ = "" THEN ER = 5: 
RETURN 
GOSUB 9500: 
IF ER< >0 THEN RETURN 
VS = VR$: 
2% = B$(5): 
GOSUB 2900: 
CFS = 726: 
FOR 1 = 1 TO 6: 
IF CF$(1) = CF$ THEN 8840 
NEXT 1: 
ER = 7: 
RETURN 
76 = BS(6): 
GOSUB 2900: 
IF 26 = "" THEN ER 
RETURN 
71% = LEFTS (2$,1): 
IF 21% = CHR$ (34) AND VT(VR) 
< > 1 THEN 8920 
IF 21$ > = "O" AND 715 < 
= "Q" AND VT(VR) = 1 THEN 8920 
VT = VT(VR): 
VR$ = 76: 
GOSUB 9500: 
IFER< >0 THEN RETURN 
IF VT < > VT(VR) THEN ER = 8: 
RETURN 
IF LEFTS (B$(7),1) < "0" OR 
LEFTS (B$(7),1) > "9" THEN ER 
=4: 
RETURN 
ER = 0: 
PES = "": 
PAS (NL,1) = VS: 
PA$ (NL,2) = CFS: 
PAS(NL,3) = 26: 
2$ = B$(7): 
GOSUB 2900: 
PAS(NL,4) = 26: 
RETURN 
REM 
2% = B$(4): 
GOSUB 2900: 
VR$ = 76: 
IF DD = O THEN ER = 2: 
RETURN 
GO0SUB 9500: 
IFER< >0 THEN RETURN 
IF VM(VR) < > 1 THEN ER = 6: 
RETURN 
26 = B$(5): 
GOSUB 2900: 
IF 2% = "" THEN ER = 0: 
PES = "*: 
PA$(NL,1) = VR$: 
RETURN 





" 
LA 


9070 


9100 
9110 


9125 


9130 


9150 


9160 


9170 


9180 


9185 


9190 


9195 


2300 
9310 


9320 


9335 


9340 


9355 


9360 


RETURN 

2$ = BS$(6): 

GOSUB 2900: 

IF 25 = "" THEN ER = 8: 
RETURN 
PES = “*: 
PAS (NL, 1) 
PAS (NL, 2) 
PAS (NL, 3) 
ER = 0: 
RETURN 
REM 

2$ = B$(4): 

GOSUB 2900: 

VAS = 75: 

GOSUB 9500: 

IF ER< >0 THEN RETURN 

IF VT(VR) < > 1 THEN ER = 9: 
RETURN 

26 = BS(5): 

V1$ = UR$: 

GOSUB 2900: 

VAS = 726: 

IF LEFTS (2$,1) > = "0" AND 
LEFTS (25,1) < = "9" THEN 9170 
GOSUB 9500: 

IFER< >0 THEN RETURN 

IF VT(VR) < > 1 THEN ER = 9: 
RETURN 

21$ = BS(6): 

GOSUB 2900: 

OPS = 78: 

FOR 1 = 1 TO 4: 

IF OP$(1) = OPS THEN 9185 

NEXT 1: 

ER = 7: 

RETURN 

V2$ = VR$: 

2$ = BS(7): 
G0SUB 2900: 

IF LEFTS (2$,1) > = "0" AND 
LEFTS (25,1) < = "9" THEN 9200 
VR$ = 76: 
GOSUB 9500: 

IF ER< >0 THEN RETURN 

IF VT(VR) < > 1 THEN ER = 9: 
RETURN 


23 


PES = "";: 
PAS(NL,1) = Vi$: 
PAS (NL,2) = V2$: 
PAS(NL,3) = OPS: 
PAS(NL,4) = 26: 
ER = 0: 
RETURN 
REM 
Y =1: 
2$ = B$(3): 
G0SUB 2900: 
IF VAL (Z$) < = O THEN ER 
=3: 
RETURN 
PES = 2$: 
FOR ID = 4 TO 13: 
7$ = BS(ID): 
G0SUB 2900: 
IF 2$ "" THEN 9370 





IF 2$ = "FIN" THEN 9380 
IS = VAL (23): 

IF IS< =0 THEN ER = 4: 
RETURN 


IF 1S = NL OR IS$(1S) = "REPIT 
E" THEN ER = 2: 

RETURN 

PAS /NL,J) = 75: 


9370 
9380 
9390 
9500 
9530 


9340 


10000 
10005 
10007 
10010 
10020 
10030 
10040 


10060 


11000 
11010 


12000 
12030 


12080 


12100 


12110 


12125 
12130 


13000 
13030 


13040 


J=J+1 
NEXT ID 
ER = 0: 
IF J = 1 THEN ER = 3 
RETURN 
REM 
FOR I = 1 TO 10: 
IF UN$(1) = UR$ THEN VR 
= 1: 
ER = 0: 
RETURN 
NEXT Il: 
ER = S: 
RETURN 
RE=== 
REM DATOS 
a ES 
DATA S 
DATA "DEFINICIONES", "INSTRUCCIONE 
S", "LISTADO", "EJECUCION", "FIN DE 
TAREA" 
DATA "LEE", "ESC", "BOR", "DEC", "BUS 
Y "CAL", "REP" 
EM ME, a, 
pr ne o 0/0 
DATA "LA INSTRUCCION NO EXISTE", " 
ERROR LOGICO", "EL PARAMETRO NO EX 
ISTE", "NUMERO LINEA NO VALIDO", “Y 
ARIABLE NO DEFINIDA", "VARIABLE NO 
VALIDA", "OPERANDO NO VALIDO", "CO 
MPARACION NO VALIDA", "CALCULO ILE 
GAL" 
REM 
TIS = "PULSAR UNA TECLA": 
YT = 22: 
GOSUB 2700: 
GOSUB 1200: 
GOSUB 2800: 
RETURN 
REM 
GOSUB 500: 
POKE 34,5: 
POKE 32, 1: 
POKE 33,38: 
POKE 35,23: 
VTAB 6: 
FOR IS = 1 TO 99: 
IF IS$(1IS) = "" THEN 12130 
HTAB 3: 
PRINT 1S;: 
HTAB 7: 
PRINT 1S$(1S)3: 
HTAB 19: 
PRINT PES(IS);: 
FOR I = 1 TO 10: 
IF PAS(IS,I) = "" THEN 1211 
o 
HTAB 27: 
PRINT PAS(IS, 1) 
NEXT 1: 
IF PEEK ( - 16384) > 128 
THEN POKE - 16368,0: 
G0SUB 1200 
PRINT 
NEXT IS: 
PRINT : 
PRINT : 
TI$ = "PULSAR UNA TECLA": 
YT = 22: 
G0SUB 2700: 
GOSUB 1200: 
GOSUB 2800: 
TEXT : 
RETURN 
REM 
YT = 23: 
Go0suB 2800 
FOR 1 = 1 TO 205: 
FOR T = 1 TO 100: 








NEXT T: 

CH$ = MIDS (HES,1,1): 

IF CH$ = "" THEN CH$ =" " 
13060 AS = RIGHTS (A$,37) + CHS: 

HTAB 2: 

VTAB 23: 


PRINT A$;3: 
A0 = PEEK ( - 16384): 
IF AO > 128 THEN 13110 
13100 NEXT 1: 
GOTO 13040 
13110 GOSUB 2800: 
HTAB 3: 
VTAB 23: 
PRINT IN$;: 
IF COX >0 THEN PRINT " ";C0; 
13130 HTAB 27: 
PRINT "AYUDA.CTRL-Y": 
- POKE - 16368,0: 
RETURN 
14000 REM 
14025 IN$ = "EJECUCION": 





FOR NL = 1 TO 99: 
IF ISS(NL) = "" THEN 14090 
14060 IS$ = IS$(NL): 
. PES = PES(NL): 
FOR 1 = 1 TO 10: 
PS(1) = PAS(NL,I): 
NEXT 1: 
GOSUB 8500: 


ON IS GOSUB 14500,14800, 15100, 


15400, 15700, 16000, 16300 
14090 NEXT NL: 
RETURN 
14500 REM 
14510 IF PES = "D" THEN 14450 
14520 FOR I = 1 TO 10: 
IF P$(1) = "" THEN 14540 
14530 NEXT 1 
14540 NC = I - 1: 
FOR 11 = 1 TO NC: 
D$(11) = P$(11): 


VR$ = D$(11): 
GOSUB 9500: 
NV(IT) = VR: 
TP(IT) = VT(VR): 
LC(11) = VL(VR): 
ND(11) = VD(VR): 
DX(11) = VX(VR): 
DY(11) = VY (VR): 
CX(11) = DX(11) + 11: 
CY (ID) = DY(I1): 

NEXT 11: 

GOSUB 2000: 


GOSUB 3000: 
IF FS = 7 THEN RETURN 
14590 IF FS = 6 THEN 14540 
14600 FOR I = 1 TO NC: 
VAS (NV(1I)) = BS$(I): 
NEXT 1: 
RETURN 
14650 IF RL > MX THEN RETURN 
14560 NR = RL: 
GOSUB 4000: 
GOSUB 4200: 
GOSUB 5600: 
FOR I = 1 TO 10: 
VKZ(I) = 0: 
NEXT 1: 
FOR ID = 1 TO 10: 
IF P$(ID) = "" THEN 14720 
14690 IF VM(ID) = O THEN 14710 
14700 VR$ = P$(1D): 
GOSUB 9500: 


14710 
14720 


14730 


14740 


14800 


- 14810 


14820 


14830 
14850 


14950 


14980 


15000 
15010 


15020 
15030 


15050 


15060 


15100 
15110 


15120 


VKZ(VR) = 1 

NEXT ID 

FOR 1 = 1 TO 10: 
IF WM(I) = O THEN 14740 
IF VKZ(1) = 1 THEN VAS(I) 
= MIDS (AA$,VI(1),VL(1)) 


NEXT I: 

RL = RL + 1: 

RETURN 

REM 

IF PES = "D" THEN 14950 


FOR 1 = 1 TO 10: 
IF P$(1) = "" THEN 14850 


NEXT 1 

NC = 1-1: 

FOR II = 1 TO NC: 
TP(IID) = 4; 
VR$ = P$(11): 
G0SUB 9500: 
D$(11) = URS: 
LC(1I1) = VLI(VR): 
ND(II) = VD(VR): 
DX (11) = VX(UR):2 
DY(II) = VY (VR): 
CX(11) = DX(I1) + 11: 
CY(11) = DY(11): 
B$(11) = VAS(UR): 

NEXT 11: 

G0SUB 2000: 

HTAB 23: 

VTAB 23: 

INVERSE : 


PRINT "PULSAR UNA TECLA"; : 
NORMAL : 
GOSUB 1200: 
HTAB 23: 
PRINT — LEFTS (BA$,16);: 
RETURN 
GOSUB 000: 
NR = RW - 1: 
GOSUB 6200: 
FOR I = 1 TO 10: 
VKZ (1) = O: 
IF VM(1) = 1 THEN VPS(1) 
= MIDS (AA$,VI(1),VL(1)) 
NEXT 1: 
FOR ID = 1 TO 10: 
IF P$(ID) = "" THEN 15030 
IF VM(ID) = O THEN 15020 
VR$ = P$(1D): 
GOSUB 9500: 
VKZ (VR) = 1 
NEXT 1D 
ARS = "": 
FOR 1 = 1 TO 10: 
IF VM(1) = 1 AND VKZ(1) 
= 1 THEN VAS(I) = LEFTS (VAS 
(D,VLD): 
AAS = ARAS + VAS(I) + MIDS (BA 
$,1,VL(1) —- LEN (VA$(1))) 
IF VM(I) = 1 AND VKZ(I) 
= 0 THEN AA$ = ARAS + VPS$(I) 
NEXT 1: 
NR = Ri: 
GOSUB 5400: 
NR = 1: 
MX = MX + 1: 
AAS = STR$ (MX): 
GOSUB 4400: 
GOSUB 6400: 
RW = RW + 1: 
RETURN 
REM 
IF PES < > "D" THEN GOSUB 500: 
RETURN 
RL = . 
RW = 2: 
MX = 1: 
GOSUB 5000: 





NR = 1: 
AAS = "1": 
GO0SUB £400: 
GOSUB £600: 
RETURN 
15400 REM 
15410 VR$ = P$(1): 
GOSUB 9500: 
V1$ = VAS(VR): 
2$ = V15S: 
G0SUB 2900: 
V1$ = 76: 
N = VT(UR): 
IF LEFTS (P$(3),1) < > CHR$ (3 
4) THEN 15480 
15440 L = LEN (P$(3)): 
FOR I = 2 TO L: 
IF MIDS (P$(3),1,1) = 
CHR$ (34) THEN 15460 
15450 NEXT 1 
15460 V2$ = MIDS (P$(3),2,1 - 2): 
2$ = V2$: 
GOSUB 2900: 
V2$ = 7$: 
GOTO 15520 
15480 IF LEFTS (P$(3),1) > = "o" 
AND LEFTS (P$(3),1) < = "9" 
THEN V2$ = P$(3): 
GOTO 15510 
15490 VR$ = P$(3): 
GOSUB 9500: 
V2$ = VAS(VR): 
2$ = V2$: 
GOSUB 2900: 
V2$ = 2$ 
15510 IF N = 1 THEN Vi = VAL (V1$): 
V2 = VAL (V2$) 
15520 FOR I = 1 TO 6: 
CF(1) = 0: 
IF CF$(1) = P$(2) THEN CF(1) 
=1 
15530 NEXT 1: 
IFN< > 1 THEN 15540 
15535 IF (V1 = V2 OR CF(1) = 0) AND (V1 


< V2 OR CF(2) = 0) AND (Vi ' 

> V2 OR CF(3) = 0) AND (Vi 

< =V2 OR CF(4) = 0) AND (Vi 

> =V2 OR CF(5) = 0) AND (Vi 

< > V2 OR'CF(6) = 0) THEN 15540 
15537 RETURN 


15540 IF (V1$ = V2$ OR CF(1) = 0) 
AND (VIS < V28 OR CF(2) =0) 
AND (V1$ > V2$ OR CF(3) = 0) 
AND (Y1$ <= V2$ OR CF(4) 
= 0) AND (V1$ > = V2$ OR CF(5) 
= 0) AND (V1$ < > V2$ OR CF(6) 
= 0) THEN 15560 
15550 RETURN 
15560 NI = VAL (P$(4)): 
IF IS$(NI) = "" THEN RETURN 
15580 1S$ = IS$(NI): 
PES = PES(NI): 
FOR 1 = 1 TO 10: 
PS(1) = PASINI, 1): 
NEXT 1: 
GOSUB 8500: 
ON IS GOSUB 14500, 14800, 15100,500 
00,15700, 16000, 16300: 
RETURN 
15700 REM 
15710 VR$ = P$(1): 





IF P$(2) = "=" THEN CH$ = P$(3) 
15740 GOSUB 6000: 
FOR IR = 2 TO MX: 


15800 


15820 


15830 


15850 


16000 
16010 


16020 


16040 


16050 


16070 


16080 
16090 


16300 
16310 


16330 


16340 


16360 


16380 


16400 


16410 


16420 


30030 


NR = IR: 
GOSUB £200: 
1$ = MIDS (AA$, VI(VR),VL(VR)) 
: 
GOSUB 2900: 
IF 2$< > CH$ THEN 15830 
RL = IR: 
FOR I = 1 TO 10: 
IF WM(I) = 1 THEN VAS(I) 
= MIDS (AA$,VI(I),VL(1)) 
NEXT 1: 
RETURN 
NEXT IR: 
FOR 1 = 1 TO 10: 
IF VM(1I) = 1 THEN VA$(1) 
NEXT 1: 
RETURN 
REM 
IF LEFTS (P$(2),1) > = "o" 
AND LEFTS (P$(2),1) < = "9" 
THEN V1 = VAL (P$(2)): 
GOTO 14040 
VAS = P$(2): 
GOSUB 9500: 
Vi = VAL (VAS(VR)) 
IF LEFTS (P$(4),1) > = "0" 
AND LEFTS (P$(4),1) < = "9" 
THEN V2 = VAL (P$(4))2 
GOTO 16070 
VR$ = P$(4): 
GOSUB 9500: 
V2 = VAL (VAS(VR)) 
OPS = P$(3): 
FOR I = 1 TO 4: 
CF(1) = 0: 
IF OP$ = OP$(1) THEN CF(1) 
=1: 
GOTO 16090 
NEXT 1 
VW = (Vi kK V2) * CF(1) + (Vi 
+ V2) *K CF(2) + (Vi - V2) 
Xx CF(3) + (V1 / V2) K CF(4)2 
VR$ = P$(1): 
GOSUB 9500: 
VAS(VR) = STR$ (VWV): 
RETURN 
REM 
VT = VAL (PES): 
FOR I = 1 TO 10: 
IF PS(I) = "" OR P$(I) = "FIN" 
THEN 16340 
PPS(1) = P$(I): 
NEXT 1 
a A 
12 =1: 
IT=1 
NI = VAL (PP$(12)):2 
IF IS$(NI) = "" THEN 14400 
1S$ = IS$(NI):' 
PES = PES(NI): 
FOR I = 1 TO 10: 
PS(1) = PAS(NI,I): 
NEXT 1: 
G0SUB 8500: 
ON IS GOSUB 14500, 14800, 15100, 154 
00, 15700, 14000, 50000 
IZ = IZ + 1: 
IF 12 < = FT THEN 16340 
IT=IT+1: 
IF IT < =VT THEN IZ = 1: 
GOTO 16340 
RETURN 
REM 
YT = 21: 
TIS = ERS(ER): 
INVERSE : 
GOSUB 2700: 
PRINT BPS;: 


30070 
40000 
40030 


50000 


GOSUB 1200: 

NORMAL : 

GOSUB 2800: 

IF NL > O THEN IS$(NL) = "" 
RETURN 

REM 

IF PEEK (222) = S THEN 5540 
GOSUB 500: 

YT = 13: 

TIS = "ERROR EN FASE DE EJECUCION 
"a 

GOSUB 2700: 

GOSUB 11000: 

GOTO 140 

RETURN 


RELACION DE LAS PRINCIPALES VARIABLES - APPLE 


MPS$ =nombre programa 

oP =opción elegida en 
menú principal 

NV =número de voces 

OP$(*) =operadores  mate- 
máticos (+,-,*./) 

BAS =40 blanks 

BUS =40 guiones 

BES =40 iguales 

HES = Cadena de la ayuda 

BS(+) = buffer data entry 

TP(+) =tipos de los campos 

ND(*)  =número decimales 

LC(«) = longitudes campos 

DS(+) =descripciones cam- 
pos 

DX(+) =coordenadas X des- 
cripciones 


DY(+) 


CX(x) 
CY (+) 
1S$(+) 


PAS(x) 
PES(x) 
ERS(s) 
ER 
AAS 
NFS 


LR 
NR 


=coordenadas Y des- 
cripciones 

=coord. X campos 

=coord. Y campos 

=instrucciones del 
programa 

=parámetros asocia- 
dos a la instrucción 

=periféricos asocia- 
dos a la instrucción 

=cadena con los 
mensajes de error 

=Código error 

= buffer del disco 

= nombre fichero 

= longitud registro 

=número registro 








El ordenador para el ordenador/Versión Philips VG 8010 


10 
20 
25 
30 
31 
32 


3 


REM EL ORDENADOR PARA EL ORDENADOR 
REM Version MSX (cinta) 

REM 
CLEAR 7500: DEFINTA-V: ONERRGOTO15000: ONSTOP GOSUB21000:STOP ON 

KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16) :KEY 3,CHR$(17):KEY 4,CHR$(19) :KEY S,CHR$(20) : WIDTH 40 
CLS:LOCATE 3,7:PRINT"Pulsar la tecla *CAPS*' y asegurarse":LOCATE 2,10:PRINT"de que la luz am 





arilla este encendida. ":LOCATES, 16:PRINT"Despues pulsar una tecla." 


35 
40 
50 
50 
70 
71 
75 
77 
80 
90 
100 
110 
115 
120 
130 
135 


250 


290 
300 
310 
323 
325 
326 


IF INKEYS=""THEN 35 ELSE GOSUB 400 

DIMB$ (40) ,D$ (50) ,B2$ (50) ,0P$(11) 

DIMTF (15), TP (60) ,LC (60) ,ND(50) ,CX (60) ,CY (60) ,DX (50) , DY (60) 
M3=15:DIM IST$(M3),SO (M3) ,NT (M3), PER$ (M3) , PAR$(M3, 10) ,TD$(15) 
Al=1:A2=31:NS$="=":AS$="-":PD$=",":BL$=" ":ER$="E":MP$="| MENU PRINCIPAL p" 
BP$="D6L£0ER16ER146ER1S6CCC" 

F$=CHR$ (1) +CHR$ (87) 

O$="":FOR 1=0 TO 39:0$=0$+F$: NEXT 1 

S7=2:MI=1 

XO0=16:YO=1:XC=5: YC=8: XS=3 

US$=CHR$ (13) : ZE$=CHR$ (48) : GIUS=CHR$ (32) 

HE$="CTRL Y (AYUDA) " 
H1$="E.G.S. 
REM 
RESTORE 
FOR I=1 TO 11:READ OP$(1):NEXT 

READ PROG$ 

READ NV 

FOR I=1 TO NV:READ VO$(1):NEXT 

MA=NV+1 

VOS (MA)="Fin de tarea" 

FOR I=1 TO 15 

READ TF (1) 

NEXT 1 

REM MAIN 

GO0SUB1300 

IF OPZ=MA THEN FOR I=1 TO 1000:NEXT:CLS:COLOR1S, 4: END 

LM=0PZ-1: GOSUB7000 

GOSUB 2000 

GOSUB 3000 

IF FS=6 THEN 260 

GOTO 230 

REM 

REM - DEFINICION FICHERO - 

GOSUB 600:69=3 

FOR I=1 TO 60:B2$(1)=B$(1):B$(1)="":NEXT 

FOR I=1 TO 60 STEP6:1F (LEFT$(B2$(1),1)<>" "AND LEFT$(B2$(1),1)<>"")AND B2$(1+1)<>"1"THEN B 


Ediciones Forum, S.A." 


2$(1+1)="3" 


327 
328 
330 
338 
340 
342 
344 
345 
346 
350 
360 
370 
400 
402 
403 
cla 
405 
407 
409 
410 


IF VAL(B2$(1+1))=1 AND VAL (B2$(1+2))<=VAL (B2$(1+3)) THEN B2$(1+2)=STR$ (VAL (B2$ (1+3))+1) 
NEXT 1 

0PZ=2:GOSUB 7000:GOSUB 2000 

JJ=1 

FOR I=1 TO 5: Y=13+1 

FOR J=0 TO 1:X=2+18xJ 

GOSUB 11000: 1F RIGHT$ (B2$ (JJ),1)="-" THEN B2$(JJ)="" 

PRINT B2$ (JJ) :JJ=JJ+6 

NEXT J,1:JJ=0 

LOCATEO, 12 

PRINT"Introducir *S” para campos a memorizar" 

LOCATE 0,13:PRINT 0$; 

GOSUB 3000: 1F FS=7 THEN 230 ELSE IF FS=4 THEN 330 

IF VAL (B$(2))>15 THEN 330 

CLS:LOCATE 5,8:PRINT"Si la unidad de cinta va a":LOCATE 4,11:PRINT"utilizarse, pulsar la te 
gr, 

LOCATE 9,16:PRINT"Si no, la tecla *N'." 

O$=INKEY$: IF 0$="S" OR O$="N" THEN409 ELSE 407 

IF 0$="N"THEN 499 


CLS:LOCATE 4,8:PRINT"Si el fichero ya existe,pulsar *S*,":LOCATE 6,13:PRINT"se debe crear p ; 


ulsar *N*." 


411 
413 
420 


O$=INKEYS$: IF 0$="S" OR O$="N" THEN 413 ELSE 411 
NM$=B$ (1) :NR=VAL (BS (2)) 
LR=0:FOR I=3 TO 12: IF LEFT$(B$(1),1)="S" THEN LR=LR+VAL (B2$ ( (1-3) £6+3)):SK$(I-2)="S" ELSE S 


Ks(I-2)="" 


850 


861 


870 


882 


884 


NEXT 1:IF O$="N" THEN 499 

GOSUB £40:GOSUB 600 

OPEN "CAS: "+NM$ FOR INPUT AS 41 

FOR I=1 TO NR: INPUT $1,TD$(I):NEXT:CLOSE %1 
REM 

GOTO 230 

REM — ESPERAR --—--—— 

CLS:LOCATE 16, 11:PRINT"ESPERAR" 

RETURN 

REM --- POSIC. CINTA LEE --- 

CLS:LOCATE 1,10:PRINT"Posicionar la cinta y apretar PLAY." 
LOCATE 6,14:PRINT"Despues pulsar una tecla." 
IF INKEYS="" THEN 670 

RETURN 
REM ---— 
REM FASE INSTRUCCIONES 

RESTORE 10160 

FOR I=1 TO 8:READ FR$(1),NP (1): NEXT 

G5=1 

FOR NI=GS TO M3 

0PZ=3:GOSUB 7000: FOR I=1 TO 3:DY(1)=CY(1)-2:NEXT 

GOSUB 2000:GOSUB 3000: IF FS=7 THEN IF NI>1 GOTO 950 ELSE 230 

IF FS=6 THEN 740 

IF LEFTS(B$(2),3)="  " THEN SI=9:GOTO 780 

FOR Sl=1 TO 8:1F LEFT$(B$(2),3)=FR$(SI) THEN SO(NI)=SI:GOTO 780 

NEXT SI 

CLS:PRINT"ERROR"*FOR I=1 TO 1000:NEXT:GOTO 760 

ON SI GOSUB 800,800, 830, 880, 840, 880,850, 870,860 

GOTO 900 

REM — LEE -— ESCRIBE --- 

IS=LEFTS(B$(3),1):1F J$="4" OR J$="N" THEN 801 ELSE GOTO 813 

IF LEFT$(B$(4),3)="—— " THEN 813 

FOR J=4 TO 3+NP(SI) 

IF LEFTS(B$(J),3)=" — " THEN 815 

FOR I=1 TO 40 STEP 6 

IF B2$(1)=B$(J) THEN 810 

NEXT 1:GOTO 813 

NEXT J:GOTO 815 

CLS:LOCATE 3,10:PRINT"ERROR, REPETIR LA INSTRUCCION":FOR I=1 TO 1500:NEXT:RETURN 760 
CLS:LOCATE 10,10:PRINT "CORRECTO" 

FOR I=1 TO 1000:NEXT: RETURN 

REM --- BORRA --- 

BS$(3)=LEFT$(B$(3),1): 1F B$(3)="4" OR B$(3)="N" THEN 835 

GOTO 813 

GOSUB 815: RETURN 

J=4:REM --- CALCULA --- 

FOR I=1 TO 60 STEP 6:1F B2$(1)=B$(J) THEN 842 ELSE NEXT 1:GOTO 813 

IF B2$(1+1)="3" THEN 813 

IF J=7 THEN 846 

IF J=5 THEN J=7 ELSE J=5 

IFASC(B$(J))<48 OR ASC(B$(J))>57 THEN 841 ELSE 843 

FOR I=1 TO 5: IF LEFTS$(B$(6),1)=0P$(1) THEN 848 





- NEXT 1:GOTO 813 


GOSUB 815: RETURN 

REMNESSREPTE == 

FOR I=4 TO 13 

IF LEFT$(B$(1),3)="FIN" THEN 859 

IF VAL (B$(1))=VAL(B$(1)) THEN 813 

IF VAL (B$(1))>99 THEN 813 

NEXT 1:GOTO 813 

GOSUB 815: RETURN 

REM --- BORRA INSTRUCCION --— 

FOR I=1 TO NI:IF NT(1)=VAL(B$(1)) THEN NT(I)=0: IST$(1)="":B$(1)="0" 
NEXT 1 

RETURN 

RETURN 

REM -— BUSCA -—— DECIDE --- 

FOR I=1 TO 60 STEP 6:1F B2$(1)=B$(4) THEN 884 

NEXT 1:GOTO 813 , 

IF LEFTS(B$(5),3)=" — " AND SI=4 THEN 898 

FOR I=6 TO 11:1F LEFTS(B$(5),2)=0P$(1) THEN 894 ELSE NEXT 1:GOTO 813 


894 IF SI=4 THEN 898 

895 FOR I=1 TO 99:1F VAL(B$(7))=1 THEN 898 

896 NEXT 1:GOTO 813 

898 GOSUB 815:RETURN 

900  ISTS(NI)=B$(2):NT(NI)=VAL (B$ (1)) 

903 IF LEFTS(IST$(NI),3)=FR$(8) THEN NT(NI)=99:GOSUB £00:GOTO 950 

910 PERS(NI)=LEFTS(B$ (3),1) 

915 IF LEFTS(ISTS(NI),3)="REP" THEN PER$(NI)=B$ (3) +SPACES$ (4) 

920 FOR I=1 TO NP(SI):PAR$(NI,1)=B$(1+3) 

922 IF LEFTS(PAR$(NI,1),3)=" " THEN PAR$(NI,I)="" 

925 NEXT 1 

930 NEXT NI:NI=NI-1 

950 FOR I=0 TO NI-1 

935 IF NTC(IDNT (141) THENNI=NT (1) ¿NT (1)=NT(1+1):NT(1+1)=N1: 118=18T8(1): 1STS(1)=ISTS(1+1): IST$(I+ 
1)=11$:N1=S0(1):S50(1)=S0(1+1):S0(1+1)=N1:GOTO 960 

956 IF NT(I)=NT(I+1) THEN 957 ELSE 959 

957 FOR J=1 TO NI-1:NT(J)=NT(J+1): 1ST$(J)=1ST$ (J+1) : PERS (J)=PER$ (J+1) :S0(J)=S0(J+1) 
938 FOR II=1 TO 10:PAR$(J, 11)=PAR$(J+1,11):NEXTII:NEXTJI: ISTS(NI)=" "¿NI=NI-1:G0T0950 
959 NEXT 1:G5=NI+1:GOTO 230 

960 11$=PERS (1) :PER$ (1) =PERS (1+1) :PER$(1+1)=11$:FORII=1T010: 11$(11)=PARS(1,11):PAR$(1,11)=PARS ( 
141, 11): PARS(I+1, 11)=11$(11):NEXTII 

962 GOTO 950 

990 CLS:FOR I=1 TO GS-1:PRINTNT(I);TAB(4) 1STS(1);" "¡PER$(1);:FORII=1TONP(SO(1)):1F PAR$(1,11) 
="" THEN 994 ELSE PRINT TAB(27)PAR$(1,11):NEXT 11 

994 PRINT:PRINT:NEXT 1 

995 FRINT"Pulsar una tecla para volver al menu" 

997 IF INKEY$="" THEN 997 

998 GOTO 230 

1300 REM ---- 

1310 REM MENU 

1322 CLS:COLOR 15,4 

1335 LOCATE1,0:PRINT H1$ 

1340 LOCATERAPRINTAAAáqáá ATAN ALOCATES, 31 PRINT" |"3PROG$; mi 
AR —_ uo 

1345 LOCATE11,6:PRINTMP$; :LOCAFE11,S5:PRINT" ——_—_—_—_—_—_—_——. "y 

1346 LOCATE11,7:PRINT" 1"; 

1350 FOR I=MI TO MA 

1340 Y=I1SZ+YC:X=XC:GOSUB 11000 

1370 1I=1 

1380 IF II=MA THEN 11=0 

1390 PRINT 11;"-";V0$(1) 

1400 NEXT 

1403 LOCATE1,23:PRINT "Posicionar el cursor y pulsar RETURN"; 

1410 I=MI 

1420 Y=I1SZ+YC:X=XS:GOSUB 11000 

1430 SP=YC-6 

1440 PRINT"->"; 

1450 OPZ$=INKEY$: IF OPZ$="" THEN 1450 

1455 OPZ=VAL (0PZ$): 1F OPZ$=US$ THEN 1530 

1460 IF OPZ>4 THEN 1450 

1470 IF OPZ$=ZE$ THEN X=XS:GOSUB 11000:PRINTSPC( SP);:I=MA:GOTO 1420 
1480 IF ASC(OPZ$)>48 AND ASC(DP2$)<58 THENX=XS:GOSUB 11000:PRINTSPC( SP);:I=0PZ:GOTO 1420 
1490 IF OPZ$<>GIU$ THEN 1450 

1500 X=XS:GOSUB 11000:PRINTSPC( SP); 

1510 I=1+1:1F I>(MA) THEN 1410 

1520 GOTO 1420 

1530 REM 

1540 1II=1: IF 1>4 THEN II=0 

1544 X=X+2 

1543 FOR J=1 TO 6:GOSUB 11000:FOR IJ=1 TO 30:NEXT 1J 

1550 PRINTSPACES (30) :GOSUB 11000:FOR IJ=1 TO 30:NEXT 1J 

1560 PRINTII¿"-";VO$(1):NEXTJ 

1580 OPZ=1 

1581 IF OPZ=4 THEN RETURN 4400 

1583 IF OPZ=2 AND G5>1 THEN RETURN 745 

1585 IF OPZ=2 THEN RETURN 700 

1587 IF OPZ=3 THEN RETURN 990 

1588 IF OPZ=1 AND(GS>1 OR G9>1) THEN 1600 

1590 RETURN 

1600 GOSUB 7000:FOR I=1 TO 60:TP(1)=4:B$(1)=B2$(1):NEXT:GOSUB 2000:GOSUB 7000:GOSUB 3000: IF FS=7 
THEN RETURN 230 ELSE RETURN 1600 

2000 REM 

2010 REM --—— MASCARA -— 

2030 CLS: COLOR 12,14 

2050 IF OPZ>4 THEN LOCATE1,0:PRINTH1$:GOTO 2240 

2120 IF 0PZ>2 THEN GJ=2 ELSE, GJ=1 

2130 L=LEN (VOS (GJ)) 

2140 FM=(38-L) /2: FMS=SPACES$ (FM) 

2150 LOCATE1,0:PRINTH1$35 





3 :LOCATE2,4 


2180 IF OPZ=1 GOTO 12000 

2185 IF OPZ=3 THEN 2215 

2190 LOCATE14, 5: PRINT"———"; 

2193 LOCATE14,6:PRINT"  FASE";OPZ;:LOCATE 22,6:PRINT "|" 
2200 LOCATE 14,7: PRINT"——— "y 

2215 LOCATE 0,3:PRINT FM$;" "¿VO$(GJ);" "¡FMS:LOCATE FM,2 
2216 GB$=LEFTS (0$,L42):PRINT CHR$(1);CHR$ (£HS8) ; G8$; CHR$ (1) ; CHR$ (EHS9) :LOCATE FM, 4:PRINT CHR$(1) 
¿CHRS (LHSA) ¡ G8$; CHR$ (1) ¿ CHR$ (LHSB) 5 

2218 LOCATE 0,21:PRINT O$:LOCATE 25,22:PRINT HE$ 

2240 FOR J=1 TO NUC 

2242 1F TP(J)=0 THEN 2420 

2245 As="" o. 

2270 LOCATEDX(J),DY(J):PRINTDS (J) 

2273 1F TP(J)<>S AND TP(J)<>4 THEN 2290 

2280 LOCATECX(J),CY(J) 

2285 PRINT B$(J):GOTO 2420 

2290 Ni=LC(J):N2=ND(J):1F TP(J)=1 OR TP(J)=2 THEN C$=NS$:GOTO 2310 
2300 C$=AS$ 

2310 A$=STRING$ (N1-N2-1,C$) 

2320 IF N2=0 THEN A$=A$+C$:GOTO 2350 

2330 A$=A$+PD$ 

2340 FOR I=1 TO N2:A$=A$+C$:NEXT 1 

2350 LOCATECX(J),CY(J) 

2360 PRINT AS 

2380 B$(J)=SPACE$ (N1-N2-1) 

2410 B$(J)=B$ (J) +RIGHT$ (A$,N2+1) 

2420 NEXT J 

2430 RETURN 

3000 REM -----==- 

3010 REM D.ENTRY 

3020 B7=0 

3030 J=1 

3040 NC=J: X=CX (NC) : Y=C Y (NC) 

3050 CC=1 

3060 GOSUB 3240 

3070 IF FS=0 THEN 3100 

3080 IF FS>4 THEN 3210 

3090 GOTO 3120 

3100 J=J+1: 1F J>NUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 

3130 IF J>1 THEN J=J-1:GOTO 3040 

3140 PLAYBP$:FS=0: J=NUC: GOTO3O40 

3150 IF J<NUC THEN J=J+1:GOTO 3040 

3160 PLAYBP$:FS=0:GOTO3O30 

3170 IF CC<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 
3180 PLAYBP$:FS=0:G0TO3100 

3190 IF CC>1 THEN S=-1:CC=CC-1:X=X-1:GOSUB 11000:GOTO 3060 
3200 PLAYBP$:FS=0:G0TO3040 

3210 IFFS>8THENFS=0: GOTO3O60 

3220 IFFS=8THENFS=0:G60T03100 

3230 RETURN 

I240 REN Tarma ias 

3250 REM LECTURA DEL CAMPO 

3270 FS=0 

3275 IF TP(NC)=0 THEN B7=B7+1:GOTO 3276 ELSE 3280 

3276 IF B7<38 THEN RETURN ELSE ERR 

3280 IF TP(NC)=4 THEN RETURN 

3290 IF TP(NC)=2 THEN TP(NC)=1 

3300 IF MIDS(B$(NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 

3310 GOSUB 11000 

3320 A$=INKEY$; IFA$=""THENPRINT"M";:GOSUB 11000:PRINTMID$ (B$ (NC) ,CC,1);:GOSUB 11000:GOTO 3320 
3330 CA=ASC(A$) : IFCA>A2THEN3380 

3340 FOR I=1 TO 15 

3350 1F TF(1)=CA THEN FS=I:GOSUB 3630: RETURN 

3360 NEXT 1 

3370 GOTO 3320 

3380 IF TP(NC)<>1 THEN 3440 

3390 IF CA=4S5 OR CA=4£ OR (CA>=48 AND CA<=57) THEN 3410 
3400 PLAYBP$:GOTO 3320 

3410 IF CA<>46 THEN 3440 

3420 GOSUB 4270 

3430 IF SWP=1 THEN 3400 

3440 S=1: GOSUB 3520 

3450 IF CC=LC(NC) THEN RETURN 

3460 CC=CC+1:X=X+1:GOTO 3300 


3530 REM TRANSF.AL BUFFER 
3550 IF CC=1 THEN SN$= "":GOTO 3570 


3560 
3570 
3580 
3590 
3620 
3622 


4030 
4040 
4050 
4060 
4070 


4340 
4400 


SN$=LEFTS (B$ (NC), CC-1) 
IF CC=LC(NC) THEN DS$= "":GOTO 3590 
N=LC(NC)=CC: DS$=RIGHTS (BS (NC) ,N) 
BS (NC) =SN$+A$+DS$ 

PRINT AS 

RETURN 

REM ---—-- 

REM COMANDOS 

REM === 

IF FS=5 AND OPZ=1 THEN 300 

IF FS=5 THEN RETURN 

IF FS)5 THEN 3490 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 

1F FS=8 THEN GOSUB 4080: RETURN 

IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

REM ---—-- 

REM INTROD. 

REM -—-— : 

IFCC=LC (NC) THENPLAYEP$: RETURN 
IFCC=1THENSN$="": GOTO3BOO 
SN$=LEFTS (BS (NC) , CC-1) 

N=LC (NC) =CC+1:DS$=RIGHTS (B$ (NC) , N) 3 
IF TP (NC) =10RTP (NC) =2THENC$=BL $: GOTO3830 
C$=BL$ 

AS=SN$+C$+DS$ 

BS (NC)=LEFTS (A$,LC(NC)) 

X=X: YY=Y 

X=CX (NC)  Y=CY (NC) : GOSUB11000 

X=XX: Y=YY 

PRINTBS (NC) :S=-1 
IFRIGHTS (B$ (NC), 1) =PD$THEN3780 





IF TP(NC)<>1 THEN 3960 

IF MIDS(B$(NC),2,1)=PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN PRINTBF$: RETURN 

IF CC=LC(NC) THEN DS$="":GOTO 4000 
N=LC (NC)-CC: DS$=RIGHTS (B$ (NC) , N) 
IF CC=1 THEN SN$="":GOTO 4010 
SN$=LEFTS (B$ (NC), CC-1) 
IFTP(NC)=10RTP (NC) =2THENC$=NS$: GOTO4030 
C$=AS$ 

B$ (NC) =SN$+DS$+C$ 

XX=X3 YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 
X=XX1 Y=YY 

PRINTBS (NC) ; : S=1: RETURN 

REM 

REM ALIN, 

REM ——-— 

IFLC (NC) =1THENRETURN 

N1=LC (NC) -CC+1 

IFCC=1THENB$ (NC)="":GOTO4150 

B$ (NC)=LEFTS (B$ (NC) , CC-1) 
IFTP(NC)=10RTP (NC) =2THEN4200 

FOR I=1 TO Ni , 

Bs (NC)=B$ (NC) +BL$ 

NEXT 1 

GOTO 4240 

FOR I=1 TO Ni 

B$ (NC)=BL$+B$ (NC) 

NEXTI 

IFRIGHTS (B$ (NC), 1) =PD$THENBS$ (NC) =BL$+LEFTS (BS (NC) ,LC(NC)=1) 
X=CX (NC) : Y=CY (NC) 

GOSUB 11000 

PRINT B$ (NC) : RETURN 

REM === 

REM CTRL. PUNTO 

SWP=0 
TFCC=10RCC=LC (NC) THENSHP=1: RETURN 
FORI=1TOLC (NC) 

IFMIDS (B$ (NC), 1, 1)=PDS$THENI=LC (NC) : SWP=1: RETURN 
NEXTI: RETURN 

REM ----=—----- 


4710 
4720 
4730 
4740 
4770 


5008 
5010 
5015 


5030 


5210 
5240 
5250 
5260 
5265 
5270 
5273 
5275 
5280 
5399 
5400 
5401 
5410 
5420 
5440 
5520 
5600 
5610 
5615 


5625 
5640 
5665 
5670 
5680 
5700 
5710 
5725 
5740 
5820 
5830 
5890 


5893 
5900 


REM DESARROLLO 

REN: =—====== 

RE=0: R8=0:H6=0 

FOR I=1 TO 10:B$(1)="":NEXTI 

FOR NI=1 TO M3 

IST$=IST$ (NI) :PER$=PER$ (NI) : NT=NT (NI) 

FOR I=1 TO 10:P7$(1)=PARS$(NI, 1):NEXTI 

FOR I=1 TO 8: IFLEFT$(I1ST$,3)=FR$(1) THEN I0=I:GOTO 4460 
NEXTI:NI=N1-1:G0TO4530 
ONIGOSUBSO0O, 5200, 5400, 5600, 5800, 6000, 6200, 6400 

NEXT NI:NI=NI-1 

LOCATE3,22:PRINT"Pulsar una tecla y vuelve al menu" 

IF INKEY$="" THEN 4540 ELSE 230 

REN ———= 

REM GEST.CINTA 

REN: ———= === 

IF I0=2 THEN 4700 

RE=1+RE 

A$=TDS$ (RE) 

K1=1: FORI=1T010:K2=VAL (B2$ ( (I-1)16+3)) 
TFK2=00RSKS$ (1) <>"S"THEN4690 

B$(1)=MID$(A$,K1,K2) 

K1=K1+K2: NEXTI 

RETURN 

R8B=R8+1:A$="":FOR I=1 TO 10 

IF VAL (B2$((I-1)K6+3))=0 OR SK$(1)<>"S" THEN 4730 

A$=A$+B$ (1) 

NEXT I 

TD$ (R8)=A$ 

RETURN 

NEL =SS 

OPZ=6:NUC=10 

GOSuUB4800 

IF PER$="C" THEN GOSUB 4600: RETURN 

IF PER$="V" THEN GOSUB 2000:GOSUB 3000: RETURN 

RETURN 

REM --- ESCRIBE --- 

NUC=10: 0PZ=6 

GOSUB 6800 

IF PER$="C" THEN GOSUB 4600: RETURN 

FOR I=1 TO 10:1F TP(1)<>0 THEN TP(1)=4 

NEXT 1 

GOSUB 2000 A 
X=0:Y=23:GOSUB 110003PRINT"Pulsar una tecla para proseguir la ejec."; 
IF INKEYS="" THEN 5275 

RETURN 

REM ———— 

REM BORRA 

a 

IF PER$="4" THEN CLS: RETURN 

IF PER$<>"C" THEN 5520 

FOR I=1 TO NR:TD$(1)=SPACES (LR) : NEXT: H6=3 

RETURN Ri 

REM -— BUSCA --- 

K=1: GOSUB6900: P2=VAL (B2$ ( (J-1) 46+3) ) 

IFP7$ (2)=""THENOP=10ELSEGOTOS630 

TFASC (B$ (3) ) >47ANDASC (B$ (J) ) <S8ORASC (B$ (J) )=32THENZ=VAL (B$ (J) ) : CP$=""ELSECP$=B$ (J) 
GOTO 5660 

FOR OP=65 TO 11:1F LEFT$(P7$(2),2)=0P$(0P) THEN 5640 ELSE NEXT OP:ER=5:STOP 
IF ASC(P7$(3))>47 AND ASC(P7$(3))<S8THENZ=VAL (P7$ (3) ) :CP$=""ELSECP$=P7$ (3) 
IF J=1 THEN P1=1:GOTO 5700 

P1=1:FORI=1T0J-1: IFSK$(1)<>"S"THENS680 
P1=P1+VAL (B2$ ((1-1) 6+3)) 

NEXT 1 

FOR II=1 TO NR 

A$=TD$(11) 

GOSUB £510:1F FC=1 THEN 5730 

NEXT II:CLS:LOCATE10, 10:PRINT P7$(1);"NO HALLADO":GOTO 5750 
GOSUB 4660 P 

CLS:LOCATE10, 10:PRINT"HALLADO ";P7$(1) 

FOR I=1 TO 1000:NEXT: RETURN 

REM -— CALCULA --- 

IF ASC(P7$(2) ) <48DRASC (P7$ (2) ) >57THENK=2:GOSUB 6900: Z1=VAL (B$(J)) ELSE Z1=VAL (P7$(2)) 
IF ASC(P7$(4) ) <480RASC (P7$ (4) ) >57THENK=4: GOSUB6900: 22=VAL (B$ (J) ) ELSEZ2=VAL (P7$(4)) 
FOR I=1 TOS: 1F LEFT$(P7$(3),1)=0P$ (1) THENS890 ELSE NEXTI:ER=5:GOTO 20000 
ON I GOSUB 5900,5905,5910,5915,5920 

K=1:GOSUB 6900:B$ (J)=STR$ (23) : RETURN 

23=21+22: RETURN 

23=71-22: RETURN 


5910 
5915 
5920 
6000 
6005 
6020 
6030 
6035 
6037 
6040 
6042 
6043 
6060 
6070 
6080 
6090 
6100 
6110 
6115 
6120 


23=71422: RETURN 

23=21/72: RETURN 

23=21"22: RETURN 

REM -— DECIDE —— 

K=1:GOSUB 6900: A$=B$ (J) 

IF ASC(P7$(3))>47 AND ASC(P7$(3))<58 THEN Z=VAL (P7$(3)):CP$="":GOTO 6060 
IF LEFTS(P7$(3),1)=CHR$ (34) THENP1=2:GOTO60353 ELSE £040 

FOR 1=2 TO 10:1F MID$(F7$(3),1,1)=CHR$(34) THEN P2=1-2:GOTO 6045 

NEXT 1:P2=9:GOTO 6045 

K=3:G0SUB 6900: CP$=B$ (J) 

GOTO 6060 

CP$=MIDS (P7$ (3) ,P1,P2) 

FOR OP=6 TO 11:1F LEFT$(P7$(2),2)=0P$(0P) THENS080 

NEXT OP:ER=4:GOTO 20000 

GOSUB £500 

IF FC=0 THEN 6180 

FOR I=1 TO M3 

IFVAL(P7$ (4) )=NT (1)GOTD6130 

NEXTI:P3$=P7$ (4) 

CLS:LOCATEA,9:PRINT"LA INSTRUCCION ";¿PS$;" NON EXISTE":LOCATE1,12:PRINT"Pulsar una tecla pa 


ra volver al menu" 


6125 
6130 
6140 
6150 
6160 
6170 
6180 
6200 
6201 
6210 
6220 
6230 
5240 
6250 
6252 
6253 


IF INKEY$="" THEN 6125 ELSE RETURN 230 

IST$=1ST$ (1): PERS=PER$ (1) ¿NT=NT (1) 

FOR K=1 TO 10:P7$(K)=PAR$(I,K):NEXT K 

FOR I=1 TO 8:1F LEFT$(IST$,3)=FR$(1) THEN 6170 

NEXT I:ER=1:GOTO 20000 

ON I GOSUB 5000, 5200,5400, 5600, 5800, 6000, 6200,6400 

RETURN 

REM mee 

REM REPITE 

IFASC (PERS) >47ANDASC (PER$) <S8THENN=VAL (PER$) ELSEK=0:P7$ (K) =PER$: GOSUB6900: N=VAL (B$ (J)) 
FOR Wl=1 TO 10:PP$(WI)=P7$(W1) : NEXT 

FOR WiI=1 TO N:REM inicio bucle 

FOR WJ=1 TO 10: 1F LEFTS(PP$(WJ),3)="FIN" THEN 6300 

FOR Wk=1 TO M3: IF VAL (PP$ (WJ))=NT (WK) THEN 6252 ELSE NEXT WK:PS5$=PP$ (WJ):GOTO 4120 
IST$=1ST$ (WK) : PER$=PER$ (WK) : NT=NT (WIK) 

IF LEFTS$(1ST$,3)="REP "THEN CLS:LOCATE1,12:PRINT"LA INSTRUCCION NO SE PUEDE REPETIR "¿NT:EL 


SE GOTO 6257 


6254 
6235 
6257 
6260 
6265 
6270 
6280 
6300 
6310 
6400 
6410 
6412 


IF INKEY$=""THEN LOCATE9, 14:PRINT"<Pulsar una tecla>":GOTO 6254 

RETURN 230 

FOR Wbi=1 TO 10:F7$(WW)=PARS (LK, ll) : NEXT ww 

FOR IK=1 TO 8:1F LEFT$(IST$,3)=FR$(IK)THEN6265 ELSE NEXTIK:ER=1:GOTO 20000 
I0=IK 

ON IK GOSUB 5000, 5200, 5400, 5600, 5800, 6000,6200, 6400 

NEXT WI 

NEXT WI 

RETURN 

REM -— FIN --- 

IF R8=0 AND H6<>3 THEN 6440 

CLS:LOCATE1,10:PRINT"Posicionar la cinta y apretar REC y PLAY":LOCATE9, 15:PRINT"despues pul 


sa una tecla" 


6415 
6420 
6430 
6440 
6500 
6501 
6505 
6510 
6513 
6516 
6520 
6525 
6530 
6550 
6600 
6602 
6605 
6607 
6610 
6612 
6615 
6617 
6620 
6622 
6625 
6627 
6630 
6632 


IF INKEY$=""GOTO6415 

GOSUB400: OPEN"CAS: "+NM$ FOR OUTPUT AS 41 

FOR I=1 TO NR:PRINT 41,TD$(1) :NEXTI:CLOSE +1 
CLS:LOCATE14,10:PRINT"FIN PROGRAMA": RETURN 4530 

REN anios 

REM CONFIRMA 

P1=1:P2=10 

A1$=MID$ (A$,P1,P2) 

IF CP$="" THEN Z1=VAL (A1$):FZ=0:GOTO 6525 ELSE FZ=1 

IF LEN(A1$) >1OTHENA1$=LEFTS (A1$, 10)ELSEA1$=A1$+SPACES (10-LEN(A1$)) 
IF LEN(CP$) >10THENCP$=LEFTS$ (CP$, 10) ELSECP$=CP$+SPACES (10-LEN(CP$) ) 
D=0P-5+(FZk6) 


ON O GOSUB 4600,6610,6620,6630,6640, 6650, 6605, 6615, 6625, 6635, 6645, 6655 
RETURN 





IF 21>Z THEN FC=1 ELSE FC=0 
RETURN 
IFA1$>CP$THENFC=1ELSEFC=0 
RETURN 
1FZ1<ZTHENFC=1ELSEFC=0 
RETURN 
IFA1$<CP$THENFC=1ELSEFC=0 
RETURN 
IFZ1>=ZTHENFC=1ELSEFC=0 
RETURN 
IFA1$>=CP$THENFC=1ELSEFC=0 
RETURN 
IFZ1<=2ZTHENFC=1ELSEFC=0 
RETURN 


6820 
6830 
6840 


IFA1$<=CPSTHENFC=1ELSEFC=0 
RETURN 
1FZ1=ZTHENFC=1ELSEFC=0 
RETURN 
IFA1$=CPS$THENFC=1ELSEFC=0 
RETURN 
IFZ1<>2THENFC=1ELSEFC=0 
RETURN 
IFA1$<>CPS$THENFC=1ELSEFC=0 
RETURN 

REM --- BUSCA CAMPOS —- 
J=0 

FOR I=1 TO 40 STEP.6 

J=J+1 

FOR K=1 TO 10 

IF P7$(K)=B2$(1) THEN 6840 
NEXT K:TP(J)=0:GOTO ¿5850 
D$ (J)=B2$ (1) : TP (J)=VAL (B2$(1+1)):LC(J)=VAL (B2$ (1+2)) :ND(J)=VAL (B2$ (1+3) ) :DX (J) =VAL (B2$ (1+4) 


1: CY (J)=VAL (B2$ (145)):0X(9)=(DX(J)+11):DY(J)=CY(J) 


6850 
6860 
6900 
6908 
6910 
6915 
6920 
6930 
6940 
7000 
7010 
7030 
7040 
7050 
7060 
7070 
7071 
7072 
7074 
7076 
7077 
7078 
7079 
7080 
7082 
7090 
7100 
7105 
7110 
7111 
7112 
7115 
7120 
7130 


9030 


NEXT 1 

RETURN 

REM --- BUSCA CAMPO --- 

J=0 

FOR I=1 TO 60 STEP 6 

J=J+1 

IFP78 (K)=B28 (1) THEN6940 

NEXTI: ER=3: RETURN20000 

RETURN 

REM ===> 

REM LECT. DATOS 

RESTORE 10080 

READ NV 

FOR 1 = 1 TO NV:READ NUC(I) 

NEXT 1 

ON OPZ GOSUB 7200,7220,7230,7230 

NUC=NUC (0PZ) : IFOPZ=2THENK1=1:K2=NUC-10: J=1: 60707074 
IFOPZ=1THENNUC=60: FORI=1T1020:D8 (1)="":NEXTI:FORI=0T09: READD$ (1£6+1) :NEXT1: 60707078 
FOR I=1 TO NUC:READ D$(1) 

NEXT 1:1F OPZ=2 THEN 7082 

IF 0PZ=3 THEN K1=1:K2=NUC-9:J=1:G0TO 7082 

FOR J=1 TO 10 

RESTORE10110 

K1=1+6% (J-1) :K2=K1+5 

FOR I=K1 TO K2 

READ TP (1) ¿LC (1) ¿ND(1),DX(1),CX(1),CY (1) 20 Y (1) =CY (1)+(I-1) 
DY (D=CY (1) 

NEXTI 

IF JK=2 THEN RETURN 

IF 0PZ>2 THEN 7130 

IF 0PZ=2 THEN Jk=2:FOR J=1 TO S:RESTORE 10240:K1=J12+1:K2=K1+1:G0SUB 7082:NEXT: JK=0: RETURN 
NEXT J 

GOTO 7180 

IF 0P2=3 THEN JK=2:FOR J=1 TO S:RESTORE 10300:K1=J12+2:K2=K1+1:G0SUB 7082:NEXT: JK=0 
RETURN 

RESTORE 10100: RETURN 

RESTORE 10160: RETURN 

RESTORE 10210: RETURN 

RESTORE 10270: RETURN 

REM 

RETURN 


10000 REM ----- 
10010 REM DATOS 
10025 DATA "+",M-%,Mg9, 070,000 0) 00€ 0, M0 mea 


10030 


DATA " EL ORDENADOR PARA EL ORDENADOR " 


10040 DATA 4 
10050 DATA "DEF INICIONES","INSTRUCCIONES","LISTADO","EJECUCI 


ON" 


10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
10080 DATA 3 

10090 DATA 6,12,13 

10100 DATA 1,2,3,4,5,6,7,8,9,10 


10110 DATA 3,10,0,1,3,10 

10120 DATA 1,1,0,16,16,10 

10130 DATA 1,2,0,20,20,10 

10132 DATA 1,2,0,25,25,10 

10134 DATA 1,2,0,30,30,10 

10136 DATA 1,2,0,35,35, 10 

10160 DATA "LEE",10,"ESC",10,"BOR",O,"BUS",3,"CAL",4,"DEC",4,"REP",10,"FIN",0 
10180 DATA 1,8,1,7,25,11 


10194 LATA 2,8,1,7,25,13 13140 GOSUB 13400 


10210 DATA "NOMBRE FICHERO", "LONGITUD", , 5 5 5 9% 9 59 95 13150 PRINT "Fi: vuelve al menu principal E 
10220 DATA 3,6,0,1,16,9 13150 GOSUB 134500 

10230 DATA 1,2,0,24,35,9 13170 PRINT "F2: anula toda la introduccion "s 
10240 DATA 3,1,0,2,14,14 13180 GOSUB 13400 

10250 DATA 3,1,0,20,32,14 13190 PRINT "F3: borra un caracter " 
10270 DATA "Num.", "Instruccion", "Parametra",1,2,3,4,5,6,7,8,9,10 13200 GOSUB 13400 

10275 DATA 1,2,0,1,2,9 13210 PRINT "F4: permite la insercion de espacios =s 
10280 DATA 3,10,0,10,10,9 13220 GOSUB 13400 

10290 DATA 3,6,0,23,25,9 13222 PRINT"FS: graba toda la introduccion E 
10300 DATA 3,10,0,2,5,13 13224 GOSUB 13400 

10310 DATA 3,10,0,20,23,13 13230 PRINT " CTRL Y (AYUDA) "; 
11000 REM POS CUR 13300 RETURN 

11030 LOCATE X,Y: RETURN 136500 A$=INKEYS: IF A$= "" THEN 13400 

12000 X=5: Y=8: GOSUB11000 13605 IF A$<> CHR$(32) THEN 13400 

12010 PRINT"Nombre Tip Lon. Dec. Col. Lin."; 13610 LOCATE 0,22 

12020 GOTO2190 13620 RETURN 

13000 REM --- AYUDA --- 15000 CLS:LOCATE 3,9:PRINT"ERROR DE LOGICA O CALCULO ERRONEO":LOCATE 2,12:PRINT"COMPROBAR Y REPE 
13050 LOCATE 0,22 TIR LA EJECUCION":LOCATE 10,15:PRINT"Pulsar una tecla" 
13055 PRINT "AYUDA (barra espaciadora para continuar)"; 15010 IF INKEY$="" THEN 15010 ELSE RESUME 230 

13060 GOSUB 13400 20000 CLS:LOCATES, 10:PRINT"ERROR ";ER;" Pulsar una tecla" 
13110 PRINT "FLECHAS: mueven en las 4 direcciones MS 20002 IF INKEYS$="" THEN 20002 ELSE RETURN 230 

13120 GOSUB 13600 21000 RETURN: REM --- STOP --- 


13130 PRINT "RETURN: alinea y convalida introduccion "; 


RELACION DE LAS PRINCIPALES VARIABLES PHILIPS VG 8010 


BS(+) 
B25(+) 


= buffer data entry 

= contiene la descripción, el tipo, la 
longitud, la posición, etc., de los 
campos definidos por el usuario 
en la fase Definiciones 

= descripciones campos de la data 
entry 

=tipo de campos de la data entry 

= longitud de los campos de la data 
entry 

=número decimales campos de la 
data entry 


D$(x) 


TP(«) 
LC(«) 


ND(+) 
DX() ] 
DY («) 


uo) 


TF(+) 


=coordenadas de la descripción 
campos de la data entry 


= coordenadas campos de la data 
entry 

= contiene los códigos de teclas de 
función 

M3 =contiene el número máximo de 
instrucciones 

= contiene los 11 operadores mate- 
máticos y lógicos previstos 

= contiene las instrucciones 

=contiene los números de las ins- 
trucciones 

= contiene el periférico o el paráme- 
tro de las instrucciones 


OPS(+) 


IST$(+) 
NT(+) 


PER$(+) 


PAR$ 
(+, x) 


= contiene los campos, los operado- 
res o las constantes a que se refie- 
ren las instrucciones 
=contiene las 8 instrucciones pre- 
vistas 
= contiene el número máximo de pa- 
rámetros previstos para cada ins- 
trucción 
= contiene la posición de las instruc- 
ciones en FR$(«) 
PROG$ = contiene el nombre del “programa 
NV =contiene el número de voces del 
menú 
VO$ = contiene las voces del menú 
FS = indica el número (de 1 a 15) de la 
tecla función apenas pulsada 
NM$ = contiene el nombre del fichero de- 
finido en la fase Definiciones 2 
NR =contiene el número de registros 
del fichero definido en la fase Defi- 
niciones 2 
LR =contiene la longitud de cada re- 


FRS(+) 


NP(+) 


SO(+) 
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gistro del fichero definido en la fa- 
se Definiciones 2 
=contiene la “S” para los campos 
que forman parte del fichero defi- 
nido 
= contiene el número de instruccio- 
nes introducidas + 1 
= contiene el número de referencia 
para la presentación máscara y la 
lectura de las DATA 
= contiene el número de campos de 
la data entry 
= contiene la instrucción que se eje- 
cuta en aquel momento 
NT = contiene el número de la instruc- 
ción que se ejecuta en aquel mo- 
mento 
= contiene el periférico o parámetro 
de la instrucción ejecutada en 
aquel momento 
= contiene los campos, los operado- 
res, etc., de la instrucción ejecuta- 
da en aquel momento 


PER$ 


P75(+) 


= se utilizan para cálculos y compa- 


z,Z1 ] 
raciones numéricas 


22,23 


eps) 


= se utilizan para comparaciones al- 
fanuméricas 

FC = contiene el resultado de la compa- 

ración (1 o 0) 


G9, B7 = se utilizan como switches 


Versión disco 


TD$ = variable de comunicación con dis- 
co 

wWOQ$ =contiene el número de registros 
que hay en el disco 

RE = número del último registro leído 

R8 = número del último registro escrito 


Versión cinta 

TD$(+) =contiene los registros leídos de 
cinta o de grabación en cinta 

RE = número del último registro leído 

R8 = número del último registro escrito 

H6 = se utiliza como switch 





Actualización. La actualización consiste en introducir, 
para un determinado código, el importe movido (en el 
campo Movimiento) y en calcular el nuevo valor del 
SALDO, con la expresión: 


SALDO = SALDO — MOVIMIENTO 


El significado de esta expresión es: el nuevo saldo es 
igual al anterior menos el movimiento. Y, aunque lógi- 
camente nada impide realizarlo de la manera indica- 
da, conviene adoptar otro método de cálculo introdu- 
ciendo una variable auxiliar: el RESTO. De esta mane- 
ra, se tiene: 


RESTO = SALDO — MOVIMIENTO 


que expresa el nuevo valor del saldo, a memorizar con 
la expresión: 


SALDO = RESTO + 0 (el operador + y el segundo 
sumando derivan de la sin- 
taxis de la instrucción) 


Por tanto, el programa puede desarrollarse con los si- 
guientes pasos: 


Introducción del código para la selección del registro. 
El valor introducido por pantalla, según el formato 
especificado en la fase de definición, se transfiere al 
campo de nombre CODIGO. 


Busca el valor contenido en el campo CODIGO y se 
compara con los que hay en el fichero, en los bytes 
reservados para este campo. 


— Introducción del CODIGO al que se refiere el movi- 
miento (línea 10) 

— Búsqueda en el fichero (línea 20) 

— Representación, para comprobación, de la másca- 
ra completa (30) 

— Introducción del MOVIMIENTO (40) 

— Cálculo del RESTO (50) 

— Cálculo del SALDO (60) 

— Representación de la máscara (70) 

— Transferencia de los nuevos valores al correspon- 
diente fichero (80) 


Sin embargo, en la forma presentada, el programa tie- 
ne un defecto. Si en la instrucción 20 no se encuentra 
el código, el proceso continúa a pesar de ello, por lo 
que el desarrollo de las instrucciones que siguen de- 
berá condicionarse (con la instrucción DECIDE). En 
este caso particular, el error no puede producirse, por- 
que el fichero se ha creado con una longitud igual al 
código máximo utilizable (9). 

Téngase en cuenta que al escribir este segundo pro- 
grama no es necesario introducir de nuevo las defini- 
ciones, porque pueden volverse a utilizar las del pro- 
grama anterior. En este caso, el segundo programa 
debe escribirse sin apagar el ordenador para no per- 
der las definiciones anteriores. 


CODIGO 


¡e 
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Presentación en pantalla del contenido del registro, 
o sea del importe inicial y del último saldo, 
correspondiente al movimiento anterior. 


Lectura del nuevo movimiento. 


Cálculo del resto, o sea del nuevo valor del saldo. 


Transferencia al campo saldo. 


2400 








ESCRIBE VIDEO 


CODIGO 
MA 


MOVIMIENTO 


CALCULA 


7 o o) 
MOVIMIENTO 





[7 Y US 


Presentación en pantalla de los nuevos valores. 


ESCRIBE 


CODIGO 
IMPORTE 


Escritura en disco. 


ESCRIBE 


CODIGO 
AMAS 


Fin de tarea. 





EJEMPLO DE SALIDA EN IMPRESORA (C-64) 


10 LEE Y 
CODIGO 40 ESCRIBE D 
DESCR CODIGO 
IMPORTE DESCR 
IMPORTE 
SALDO 
2 CALCULA s 
SALDO 
IMPORTE 60 REPITE 9 
+ 10 
a ; 20 
30 
40 
30 ESCRIBE Y FIN 
CODIGO 
DESCR ne 
IMPORTE 99 FIN 
SALDO 
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Menú principal. Este procedimiento no utiliza los 
gráficos, por lo que la versión Apple es formal y 
funcionalmente idéntica a las otras. 


Introducción de los campos. En esta fase deben 
definirse los atributos de todos los campos que se van 
a utilizar a continuación. 





También en esta versión, al final de la fase de definición 
hay que especificar entre todos los campos previstos 
los que se desea memorizar en el fichero. 


AR e e e 








La foto presenta la máscara vídeo correspondiente a la 
introducción de las instrucciones. Su estructura y su 
utilización son idénticas a las de las otras versiones. 





RNA Pr E RANA TE 
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Ejemplo de programa. Los dos líneas, la 10 y la 20, 
se emplean para leer dos valores (respectivamente 
memorizados en las variables UNO y DOS) y para 
calcular la suma. 


El completado del programa anterior se realiza con dos 

instrucciones: la número 30 para la escritura en pantalla 
del resultado y la número 40 para la activación del bucle 
de repetición. 


Esta máscara vídeo aparece en el momento de la 
ejecución del programa y corresponde a la línea 
número 10. Naturalmente, todos los atributos de los 
campos deben haber sido definidos previamente. 


La foto muestra el efecto de la línea 30, que contiene la 
instrucción ESCRIBE (en vídeo). El valor numérico que 
aparece al lado del nombre del campo TOTAL es el 
resultado del proceso sobre los valores de los dos 
campos anteriores. 





Menú principal. También para la versión MSX; aparte 
de diferencias marginales, resulta válido todo lo dicho 
para las versiones anteriores. MEN Ediciones Forum, S.A. 


A A A 
MENU PRINCIPAL 


-D E N 
a | [a] 
E 

AA 

A AE 


1 
N 


O E A 


Definiciones. Comparando esta versión con las otras 


resulta evidente una coincidencia casi absoluta. 
E£.6.S. Ediciones Forum, S.A. 


DESEO O ION ESS 


FASE 1 
Tip Lon. Dec. Col. Lin. 


a 


== == ms 
CTRL Y CAYUDA> 


Al final de los atributos de los campos hay que definir 
cuáles, entre todos los introducidos, deberán constituir 


el registro del fichero. Ediciones Forum, S.A. 


NOMERE FICHERO M----- LONGITUD == 


Introducir “S” para campos a memorizar 


En esta versión existe la diferencia introducida por 
el uso de la unidad de cinta en lugar de la de disco. 


Si la unidad de cinta va a 


utilizarse, pulsar la tecla “S”*. 


Si no, la tecla “N*. 
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Formato de las instrucciones. La máscara vídeo 
también es similar a las anteriores. Obsérvese que 
no se ha previsto ningún control sobre el periférico 
utilizado, por lo que debe ser el usuario quien no ha de 
llamar la unidad de disco (si su sistema no la prevé). 


Ejemplo de programa. Las funciones realizadas son: 

línea 10: lee de pantalla los campos especificados (por 
lo que se trata de una data entry) 

línea 20: comprueba si en el campo NOMBRE se ha 
introducido el valor FIN. En caso afirmativo, 
el programa termina 

línea 25: transfiere la introducción a la cinta (periférico 
C = cinta) 

línea 30: activa el bucle para diez veces. 

En este programa se muestran las dos maneras de salir 

de una introducción repetitiva al final del bucle 

(después de diez repeticiones) o al cumplirse una 

determinada condición (línea 20). 


La foto muestra el desarrollo de un listado del 
programa. Al final del mismo, el procedimiento se pone 
en espera de una tecla cualquiera antes de proseguir. 


Máscara vídeo generada por la instrucción número 10. 


M7 
jo 


) 


cl 174 
A 5] 


7 


MO 
A A a] 


UL cl 2174 
z 


4 
E A E A A 


(«2 ======== 
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Extensiones y modificaciones 


El procedimiento, en la forma presentada, tiene finali- 
dades didácticas, y por tanto está orientado a usuarios 
poco expertos cuyas necesidades pueden satisfacer- 
se con un número de funciones limitado. Para aplica- 
ciones más complejas, con programas para proble- 
mas específicos de aplicación, son necesarias algu- 
nas implantaciones. Las principales son: 


E Inserción de un procedimiento de gestión en la im- 
presora 

" inserción de instrucciones análogas a las llamadas 
de subrutinas 

a Posibilidad de memorizar el programa 


La primera, gestión de la impresora, no presenta difi- 
cultades de concepto, reduciéndose a una subrutina 
de impresión parametrizada. Una forma muy sencilla 
puede obtenerse insertando en los códigos de los pe- 
riféricos conocidos la sigla IM (IMPRESORA) y una 
subrutina que envíe a impresión los contenidos de los 
campos especificados en la instrucción. Esta subruti- 
na puede obtenerse modificando la instrucción ES- 
CRIBE correspondiente al vídeo. 

El segundo punto es mucho más complejo, y la ilustra- 
ción debe empezar especificando las motivaciones. 
En la escritura de un programa es frecuente utilizar ins- 
trucciones bajo condición. Por ejemplo, en este ma- 
crolenguaje, la instrucción DECIDE envía a ejecución 
otras instrucciones al producirse una determinada 
condición. Sin embargo, para un funcionamiento co- 
rrecto, es necesario que dichas instrucciones no se 
realicen en el flujo normal. 

Analizando la lógica de este procedimiento, es eviden- 
te que las condiciones expuestas no se producen. Ca- 
da instrucción está identificada por un número de línea 
y se envía de alguna manera a ejecución. Es decir, si 
por ejemplo se quiere emitir un mensaje por pantalla al 
producirse una cierta condición, la instrucción a utilizar 
es DECIDE... "N”, con N número de línea a ejecutar si 
el test (DECIDE) da un resultado positivo. En cualquier 
caso, este número de línea (N) debe estar presente y, 
por tanto, en la versión actual, la función correspon- 
diente debe ejecutarse dos veces: una en el flujo nor- 
mal y otra al cumplirse la condición. En consecuencia 
hay que insertar una lógica que en el flujo principal 
impida la ejecución de determinadas instrucciones, 
las que sólo deben activarse al producirse una condi- 
ción. Una solución consiste en prever números de lí- 
nea de 3 cifras. De esta manera, las instrucciones a 
activar bajo condición pueden numerarse con valores 
superiores a 99 y, por tanto, no se ejecutan en el flujo 
normal, que tiene este valor como límite del desarrollo. 
Procediendo así se tiene una forma extremadamente 
estructurada: las instrucciones hasta 99 constituyen el 
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flujo principal, ejecutado en orden creciente, mientras 
que las numeradas a partir de 100 constituyen proce- 
dimientos «aislados», activados solamente si son lla- 
mados desde el flujo principal. 

Sin embargo, existe una vía indirecta para activar esta 
lógica, que consiste en un uso particular del procedi- 
miento: las instrucciones a ejecutar sólo bajo condi- 
ción deben numerarse de manera que ocupen la parte 
final, inmediatamente antes de la línea 99, y precedi- 
das por una instrucción de salto (DECIDE) que «des- 
víe» el flujo principal a la 99 sin interesar las líneas 
intermedias. Naturalmente, esta instrucción DECIDE 
debe contener un test que proporcione siempre un re- 
sultado positivo; de esta manera, la instrucción se ha- 
ce análoga a la GOTO. Sin embargo, a pesar de que 
esta solución proporciona el resultado deseado, no es 
la mejor, puesto que reduce notablemente la estructu- 
ración de los programas realizados con este macro- 
lenguaje. 

La última implantación sugerida, o sea la posibilidad 
de memorizar el programa, es la más importante, in- 
cluso por las particulares implicaciones que comporta 
su realización. 

El programa está contenido en 4 variables dimensio- 
nadas (de las que una bidimensional contiene los pa- 
rámetros, el primer índice identifica la instrucción y el 
segundo los correspondientes parámetros) y para me- 
morizarlo basta con transferir secuencialmente al dis- 
co (o a la cinta) cada matriz. 

Análogamente, para volverlo a cargar en la memoria 
basta prever una rutina de lectura que extraiga el con- 
tenido del fichero subdividiéndolo en cada una de las 
4 variables, que son: 


NT (x) : Contiene los números de línea 
ISTS(+*) : Instrucciones 

PERS(x) : Parámetros (periféricos) 
PARS(*,.*) : Campos 


Por tanto, la temporización del programa consiste en 
un bucle entre 1 y el número máximo de las instruccio- 
nes (o sea el dimensionado de cada matriz) que sume 
el contenido de cada matriz en el orden visto. Por 
ejemplo, el registro genérico ”l” está compuesto por: 


AS = STRS(NT(I)) + ISTS(I) + PERS(I) + A1$ 


donde A1$ es la suma de todos los parámetros previs- 
tos en la instrucción: 


A1$ = PARS(l,1) + PARS(1,2) + ... + PARS(1,10) 


Naturalmente, el cálculo indicado en A1$ es indicativo, 
porque en el programa deberá ser un bucle. 
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INTRODUCCION 


Esta última parte se dedica a programas de tipo «pro- 
fesional», o sea orientados a usuarios que deseen es- 
tructurar las posibilidades que ofrece un ordenador en 
el ámbito de su propio trabajo. 

Sin embargo, hay que establecer una premisa. Todos 
los procedimientos ilustrados en esta obra están confi- 
nados en la categoría de «ordenadores domésticos», 
o sea máquinas de un costo limitado y empleadas nor- 
malmente como videojuego. 

La propuesta de implantar en este tipo de máquinas 
un software para empleos profesionales puede pare- 
cer pretenciosa e inadecuada, pero en realidad no 
existe ningún impedimento para ello, puesto que los 
ordenadores domésticos de la nueva generación tie- 
nen muy poco que envidiar a sus hermanos mayores. 
Si comparamos atentamente las características de un 
ordenador doméstico de buena calidad con las de 
uno personal, las diferencias pueden ser muy margi- 
nales. Las características sobre las que basar un juicio 
son: 


"m capacidad y tiempo de acceso de las memorias de 
masa (diskettes) 

mn software que la máquina puede albergar 

" capacidad de memoria (muy marginalmente) 


En particular, el último punto, capacidad de memoria, 
es uno de los parámetros que más inducen a evalua- 
ciones erróneas, porque los intérpretes Basic o los 
compiladores tanto Basic como de otros lenguajes no 
direccionan más allá de 64 K de memoria, por lo que 
en la mayor parte de las aplicaciones es del todo inútil 
disponer de áreas mucho más amplias. 

Incluso los ordenadores domésticos modernos (como 
los MSX) han superado con mucho este límite. Tam- 
bién en lo que respecta a la gestión de la memoria de 
masa, no existe una diferencia sustancial entre los dos 
tipos de máquinas, e incluso sucede que algunos or- 
denadores domésticos tienen unidades de disco de 
500 Kbytes en diskettes de 3" 1/2, contra los 360 Kby- 
tes en 5” 1/4 de los personales. Por tanto, la única dife- 
rencia verdadera reside en el software. 

Mientras que para la categoría PC se han desarrollado 
desde hace tiempo sistemas operativos avanzados y 
programas de empleo generalizado, para los ordena- 
dores domésticos, el esfuerzo de los productores de 
software se ha orientado principalmente a los vi- 
deojuegos, y sólo recientemente ha empezado la difu- 
sión de software «profesional». 

Los cuatro campos que siguen 


" el tablero electrónico 

"m la Base de Datos 

" los gráficos de ordenador 
E el tratamiento de textos 
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constituyen un ejemplo de cómo es posible automati- 
zar algunas funciones en el ámbito profesional, incluso 
con un ordenador doméstico. 

En cualquier actividad profesional hay algunos aspec- 
tos comunes como: 


E proceso de valores numéricos 

m gestión de archivos 

" preparación de gráficos para representar 
E preparación de textos (cartas, listas, etc.). 


Todos estos puntos tienen las mismas características, 
independientemente del sector en cuyo ámbito se de- 
sarrollan: 


1 / Conservan la misma lógica 

2 / Necesitan un elevado período de generalización 

3 / Si se desarrollan con un ordenador, no deben re- 
querir ninguna otra preparación específica. 


A partir de esta observación se han desarrollado pro- 
gramas que responden a las características enuncia- 
das y que realizan las funciones vistas. Para los proce- 
sos de valores numéricos se ha producido el tablero 
electrónico, para los archivos la Base de Datos, los 
gráficos se han desarrollado en el tercer paquete y 
para la preparación de los textos se ha previsto el pro- 
grama de tratamiento de textos. 

Utilizando adecuadamente el «paquete» de software 
así constituido, es posible delegar a las máquinas mu- 
chas de las operaciones, no creativas, que se efec- 
túan en la actividad laboral. Los cuatro programas se 
presentan, como de costumbre, bajo el doble aspecto 
de utilización y de desarrollo. 

La parte dedicada a la utilización está orientada a 
quienes desean aprovechar el programa sin entrar en 
los detalles de las distintas funciones. 

El desarrollo muestra en detalle la lógica seguida y co- 
loca al usuario en posición de aportar todas las modifi- 
caciones y las implantaciones que considere necesa- 
rias para adaptar mejor el software a sus necesidades 
específicas. 

Téngase en cuenta que esta sugerencia no es una 
contradicción por la que se invita a «personalizar» un 
programa generalizado, sino que se debe a una moti- 
vación muy precisa. Por la extremada generalidad que 
deben tener, estos programas en algunos casos pue- 
den resultar farragosos, poco adaptados y excesiva- 
mente lentos. Si se tiene la posibilidad de modificarlos, 
pueden eliminarse las partes no interesantes, obte- 
niendo versiones más limitadas pero más «ágiles» pa- 
ra su aplicación específica. Naturalmente, una vez 
realizadas las modificaciones habrá que recompilar to- 
do el procedimiento. 


El tablero electrónico 


El tablero electrónico está entre los más útiles, y sin 
duda es el más versátil de todos los programas de 
empleo generalizado. Su lógica se basa en el hecho 
de que cualquier proceso de tipo numérico puede re- 
presentarse en una tabla cuyo contenido puede estar 
constituido bien por valores sobre los cuales efectuar 
el proceso, bien por las fórmulas a aplicar. Esquemati- 
zado de esta manera el problema, es posible realizar 
un programa que puede adaptarse a la mayor parte 
de las necesidades de cálculo. 

La versión presentada permite realizar cálculos con 
fórmulas definidas por el usuario o con fórmulas «inter- 
nas», o sea con algoritmos predefinidos y dedicados 
al desarrollo de procesos que se realizan con frecuen- 
cia (por ejemplo, el sumatorio o la media de valores, 


Uso del programa 


Con «tablero electrónico» se indica una «familia» de 
programas de empleo generalizado y particularmente 
adecuados para la realización de cálculos. 

Su empleo prescinde del conocimiento de cualquier 
lenguaje de programación, por lo que estos progra- 
mas deben contener un intérprete que traduzca las 
instrucciones de alto nivel (impartidas por el usuario) a 
códigos máquina o que las «explote» en instrucciones 
más elementales pertenecientes a un lenguaje de pro- 
gramación. 

El mejor enfoque para la preparación de un software 
de este tipo es el lenguaje Assembler, puesto que per- 
mite interpretar directamente las instrucciones y apro- 
vechar completamente las posibilidades de la máqui- 
na. Sin embargo, el uso de este lenguaje requiere co- 
nocimientos no corrientes e implica una notable dedi- 
cación. Como alternativa puede utilizarse un lenguaje 
de programación más evolucionado, como el Basic, 
obteniendo una mayor facilidad en la escritura del pro- 
grama, si bien con algunas limitaciones, en particular 
una menor velocidad de ejecución y un aprovecha- 
miento incompleto de la memoria disponible. 

El programa presentado se ha estructurado utilizando 
el lenguaje Basic, y por tanto está sujeto a las limitacio- 
nes indicadas. En compensación ofrece la posibilidad 
de modificaciones e implantaciones. Naturalmente, 
para su empleo hace falta la versión compilada, pues- 
to que, de otro modo, los problemas de tiempo serían 
demasiado grandes para que fuese utilizable. 

Como ya se ha comentado, un tablero electrónico se 
emplea para el desarrollo de cálculos. En sustancia, 
para obtener este resultado es necesario prever las 
siguientes funciones principales: 


etcétera). El campo de aplicación es prácticamente ili- 
mitado, desde el uso como sencilla calculadora, aun- 
que muy potente, hasta el desarrollo de cálculos esta- 
dísticos o de funciones matemáticas: por tanto, su em- 
pleo también puede ser ventajoso en el ámbito docen- 
te en las escuelas. 

Un ejemplo de sus posibilidades es en la distribución 
de un gasto comunitario; una vez memorizada la tabla 
milesimal, ya no es necesario realizar ningún cálculo, 
puesto que el tablero electrónico dará los resultados. 
La intervención del usuario estará limitada a la intro- 
ducción de los importes a repartir. Con la misma facili- 
dad se puede crear una aplicación para la gestión de 
un almacén (entradas, salidas, existencias), o para el 
análisis de la rentabilidad de una inversión. 


m Introducción 
m Desarrollo del cálculo 
m Presentación de los resultados. 


La diferencia sustancial con un programa análogo es- 
crito en Basic y no orientado a un empleo generalizado 
reside en el modo de tratar las variables y en la pre- 
sentación del resultado. 

Por ejemplo, supongamos que se quiere escribir un 
programa que permita la realización de cualquier ope- 
ración entre dos datos. 

En Basic, las funciones a realizar son: 


1 / Lectura por teclado de dos valores 

2 /Lectura por teclado de la operación a realizar, o 
sea de los símbolos (+, —, »*, /) correspondientes 

3 / Realización del cálculo 

4 / Presentación del resultado. 


La primera función consiste en asignar dos nombres 
simbólicos a las dos variables y en adquirir su valor 
por teclado, por ejemplo con una instrucción INPUT. 
La segunda función necesita una lectura más que tie- 
ne el significado de código, en base al cual se realiza- 
rá el cálculo. El desarrollo del cálculo es el punto difícil. 
Si se conociese a priori el tipo de operación no habría 
dificultades. En cambio, si se desea parametrizar, hay 
que prever todas las posibles operaciones, escribien- 
do una subrutina para cada una y después utilizar la 
correspondiente al símbolo introducido. Por tanto, se 
necesita una matriz de control en la que memorizar 
(con una DATA), una vez introducidos, los símbolos 
previstos y, después determinar con un bucle cuál se 
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ha pedido y, en base a la respuesta, llamar la corres- 
pondiente rutina. 

En este ejemplo, con sólo dos variables, no hay pro- 
blemas de una cierta complejidad. Sin embargo, de- 
ben tomarse algunas precauciones: como mínimo es 
necesario que el programa compruebe la correcta su- 
cesión de la introducción de los valores. Por ejemplo, 
suponiendo que las dos variables tengan los nombres 
simbólicos A y B y que la subrutina que ejecuta el co- 
ciente prevea el cálculo de A/B, es necesario que la 
introducción sea controlada para asegurar la correcta 
asignación de los valores. Es decir, el usuario debe 
estar informado de cómo se realiza el cálculo y adón- 
de (en qué variables) se transfieren los valores numéri- 


cos que intervienen en el cálculo. Para resolver estos 
problemas, el mejor modo es parametrizar incluso ca- 
da operación simple, realizándola sobre dos variables 
diferentes a las de introducción. De esta manera, el 
usuario deberá indicar las variables a utilizar, evitando 
así un posible equívoco. 

Las variables A y B utilizadas para la introducción de 
los valores numéricos toman el significado de «direc- 
ción» en la que la rutina de cálculo debe extraer los 
valores. Por ejemplo, considérese una aplicación más 
generalizada que prevea el uso de 5 variables distin- 
tas de introducción y el desarrollo de un cálculo, en 
este caso, el cociente entre 2 de ellas. Las funciones 
que deben realizarse son: 


ESTRUCTURA DE UNA CELDA 


Comprendido entre 1 y "N”, indica 
la fórmula 


Si vale 1, el campo (D$ = 
dato) está constituido por caracteres 


ESTRUCTURA DE UNA LINEA 


celda 1 


celda 3 


Posición de principio celda "N” = Bl = 1 + 12x* (N— 1) 


Contenido celda “N” de la línea "L” 


Contenido = MID$(B$(R),Bl, 12) 


La estructura mostrada sólo es un ejemplo. En los listados, la longitud total de cada celda 
está limitada, por motivos de espacio, a 9 bytes: 7 para el valor, 1 para el puntero 
a las fórmulas (que por tanto son un máximo de 9) y 1 para el tipo 
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SELECCION Y DESARROLLO FORMULAS 


L = Línea actual 


Celda “C” 


Extrae PF$ 
de la línea L, celda C, indicada 
por el cursor 


P 


Escribe el resultado 


PFS$ apunta al elemento 


FS(x) 


Subrutina de 
interpretación 





1 / Presentación de las 5 variables para la introducción 
de los valores 
2 / Introducción de la indicación de cálculo. 


La primera puede resolverse con una data entry que 
presente los nombres de las variables esperando una 
respuesta. La segunda debe estar constituida por una 
cadena que expresa el cálculo a realizar. 

Terminada la fase de introducción tanto de los valores 
como de las operaciones, hay que activar una subruti- 
na que analice la cadena, reconozca las variables 
contenidas en ella y las sustituya por los correspon- 
dientes valores numéricos. 

Implantando la subrutina con todas las operaciones, 
se obtiene un módulo completamente parametrizado 
para el desarrollo de los cálculos, aunque en él aún 
subsisten limitaciones: la necesidad de volver a definir 
a priori los nombres de las variables y la asignación de 
los valores con una máscara vídeo que prevea su pre- 
sentación. 

Sin embargo, teniendo en cuenta que estos nombres 


| 
E] 


simbólicos han perdido el significado de variables pa- 
ra adquirir el de direcciones de las que tomar los valo- 
res numéricos, es inmediato sustituirlos por un meca- 
nismo de «selección posicional». El programa conser- 
va los nombres simbólicos, mientras que el usuario ya 
no debe utilizarlos: en su lugar indica la posición. 
Por ejemplo, en el caso de 5 variables, en la pantalla 
aparecerán 5 zonas, indicadas con las letras A, B, C, 
D y E, cada una de introducción. El usuario introducirá 
en las distintas zonas los respectivos valores numéri- 
cos y podrá indicar el cálculo especificando las dos 
zonas a considerar. 

Desde este punto de vista, el desarrollo es completa- 
mente análogo al anterior. La única diferencia consiste 
en tener limitados los nombres de las variables a una 
sola letra. En realidad, esta metodología no permite 
utilizar variables internas. 

Como se ha indicado, la posición de los 5 campos de 
introducción es fija y bien definida, por lo que puede 
utilizarse el posicionado del cursor para determinar 
cuál es la variable que está en fase de introducción. 
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Por ejemplo, suponiendo que cada campo tenga una 
longitud de 6 caracteres y que los 5 campos sean con- 
secutivos, se tiene la situación: 


: empieza en la columna 1 

: empieza en la columna 7 
: empieza en la columna 13 
: empieza en la columna 19 
: empieza en la columna 25 


MOOo0Ww> 


Por tanto, basta con determinar la posición del cursor 
para saber a cuál de las 5 zonas corresponde el valor 
numérico que se está introduciendo. 

Además, como la subrutina de cálculo no utiliza los 
mismos símbolos que la de introducción, no es nece- 
sario definir 5 variables diferentes, sino que basta con 
considerar un solo buffer de ubicación dividido lógica- 
mente en 5 zonas. De esta manera puede preverse 
una cadena de 30 caracteres de longitud en la que 
realizar, con paso 6, las introducciones. 

Para el desarrollo de los cálculos es suficiente tomar 
las partes interesadas (indicadas por la posición del 
cursor) y transferirlas, como parámetros, a la subrutina 
de cálculo. Cada zona en que está dividida la cadena 
de introducción recibe el nombre de «celda», y si el 
cursor está por ejemplo en la columna 19, se toma la 
celda número 4, marcada con la letra D, y viceversa, 
empleando la letra D, que ocupa la cuarta posición en 
el alfabeto, se selecciona la celda correspondiente 
que empieza en la posición 19 en el buffer de línea. 
Utilizando de manera análoga diferentes buffers, uno 
para cada línea de la pantalla, se dispone de una «re- 
tícula» de celdas en la que cada una está identificada 
por una línea y una columna. 

En los ejemplos anteriores no se ha definido el cálculo 
del resultado de cada operación. Esto se ha hecho 
voluntariamente, puesto que está estrechamente li- 
gado a la estructura final. Cada celda puede conte- 
ner tanto un valor (numérico o alfanumérico) como una 
fórmula. En este caso no se presenta el verdadero 
contenido, como en los otros casos, sino el resultado 
de la fórmula. 


El área de trabajo del tablero electrónico está 
constituida por una retícula de 15 x 26 casillas de 
introducción. En la pantalla puede presentarse 
simultáneamente un máximo de 9 x 5. 

La indicación de la celda considerada es 
proporcionada por la presentación de la misma en 
caracteres invertidos. En la versión C-64, los comandos 
para el desplazamiento son: 

: mueve arriba 


CRSRUP (1) 
CRSR DOWN ( | ) : mueve abajo 
CRSR RIGHT (2>)|: mueve a derecha 


CRSR LEFT (-) : mueve aizquierda 
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Para memorizar la fórmula hay que utilizar una matriz 
diferente, porque la celda debe contener el resultado 
y, por tanto, a ésta hay que relacionarle un puntero 
que defina la cadena que representa el cálculo aso- 
ciado a la celda. Además de este puntero hay que 
prever la indicación del tipo de contenido. El valor me- 
morizado en una celda puede ser numérico o alfanu- 
mérico (caracteres). Para distinguir un caso de otro se 
utiliza un flag que forma parte de la celda y, por tanto, 
la longitud real es superior al número de caracteres 
presentados. En la página 2410 se han representado 
las escrituras de una celda y de una línea. El espacio, 
en bytes, reservado a la celda está dividido en dos 
partes, la primera dedicada a los punteros, y la otra al 
valor. Los punteros utilizados en esta versión son: 


PF$ = indica la fórmula asociada a la celda 
FOS$ = tipo del dato ("1” = alfanumérico). 


En la parte inferior de la figura se ha representado un 
ejemplo de extracción del contenido de una celda del 
buffer general de línea B$(R). El número del buffer, o 
sea el valor de R, está determinado por la línea en que 
se encuentra el cursor, mientras que el número de cel- 
da N está ligado a las columnas. 

En la página anterior se ha representado un esquema 
de la lógica seguida en el desarrollo de las fórmulas 
asociadas a una celda (presentación del resultado). 
El programa extrae de la matriz B$(R) la parte que co- 
rresponde a la celda examinada utilizando el método 
del gráfico de la página 2410. De esta cadena (A$) se 
toma el punto PF$ que, si es diferente de cero, indica 
la fórmula asociada a la celda. En este caso, PF$ 
(transformado en numérico) se utiliza para tomar de la 
matriz F$(s), que contiene la fórmula, la perteneciente 
a la celda examinada. La fórmula así obtenida se apli- 
ca, y el resultado se deposita en la adecuada zona de 
la celda. 

La lógica descrita sólo es válida a nivel funcional, ya 
que en realidad, la subrutina que ejecuta las funciones 
descritas es muy compleja, sobre todo en la parte que 
se ocupa del desarrollo de los cálculos. 


CUATRO 


COMANDOS 


Desplazamiento de la pantalla. Posicionándose en 
los extremos de la pantalla, se produce el “scroll” del 
contenido de las celdas de todo el tablero, con la 
consiguiente actualización de los ejes de referencia 
(línea, columna). En este caso se ha activado un 
desplazamiento a la derecha: esto ha producido el 
“scroll” del contenido de la pantalla hacia la izquierda 
y la actualización del eje horizontal. 


Al pedir un desplazamiento hacia abajo, se activa un 
procedimiento análogo al anterior. El contenido de la 
pantalla corre hacia arriba y el eje vertical se actualiza 
con cada desplazamiento. Esta operación permite 
presentar, en grupos de 9, todas las 15 líneas previstas 
en el tablero (de la letra A a la O). 


Introducción de datos. La introducción de los datos se 

produce en la zona inferior de la pantalla. El tipo de dato 

se selecciona con el comando activado (carácter 

amarillo de abajo a la derecha). Los comandos de 

introducción son: 

F: para la introducción de fórmulas (máx. 30 caracteres) 

A: para la introducción de datos alfanuméricos (máx. 7 
caracteres) 

N: para la introducción de datos exclusivamente 
numéricos (máx. 7 caracteres). 


Una vez completada la escritura, mediante la tecla 
RETURN se confirma la introducción: así, el dato se 
transfiere a la celda en la que se había pedido el 
comando de introducción. En este caso, la cadena 
“AAAAA” se ha introducido en la celda D1. 








CUATRO 


II O 


o 
E 
ll 
A 
ñ 


AI 0 


A E A A 


¿UNO ES UA MO 


b 
6 


AS AS 
le PARA SALIERAN O 


a PA E] 


A DOS TRES MA 


Mi 


TT 


LESS 
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Introducción de datos numéricos: La introducción 
de datos numéricos se realiza de manera análoga a la 
anterior: cualquier introducción diferente de un número 
será ignorada, excepto el signo "—”. El dato numérico 
introducido se transfiere a la celda alineado a la 
derecha, como se ve en la celda D1. 


Introducción de fórmulas. Para las fórmulas se ha 
previsto un campo de introducción de 30 caracteres, 
cuyo contenido no deberá ser transferido simplemente 
de manera visual en el tablero, sino que deberá 
analizarse y procesarse para dar el resultado. Este 
comando puede utilizarse de diferentes maneras: 
introduciendo por ejemplo las coordenadas de una 
celda que contiene datos numéricos, éstos se toman y 
se insertan en la celda actual (en la foto, el contenido de 
D1 se ha transferido a la E2, casilla en la que se ha 
introducido la fórmula). 


La introducción de fórmulas permite utilizar operadores 
matemáticos, además de varias funciones. Las 
introducciones reconocidas por el programa son: 
1 =elevación a potencia ABS = valor absoluto 
1 =división INT =valor entero 
* =multiplicación COS =coseno 
— =resta (o números SIN =seno 
negativos) TAN =tangente 
+ =suma SQR raíz cuadrada 


En el espacio reservado a la introducción de las 
fórmulas es posible insertar las coordenadas de casillas 
que contienen valores numéricos o ulteriores fórmulas. 
Este método hace que los 30 caracteres sean 
suficientes también para procesos complejos: la rutina 
de cálculo realizará la sustitución del direccionado (p.e. 
"D1”) por los valores contenidos en aquella casilla. 


LS EN 


ES Md 


3B===== 
le = PARA SALIR NS 


l 


¡Md 


EAN O 


A += 


ES WANIMLC 


UA ZAANA AD O AS 


ORM.: INTCSQRCSE6AB)-ABSCB-D1)E 
CEA OIEA (i COMANDOS : YN AN 1MLC 


e] 


o A A O SS 


da 00d RS CUATRO 


LO SAS 


CC A 


n 
o 
Pa] 
z 


SAA 
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Función SUM. En la introducción de las fórmulas se ha 
previsto la función SUM, que permite calcular la suma 
de los valores contenidos en una serie de casillas del 
tablero. En este ejemplo se ha pedido el total de la suma 
de las casillas de la línea correspondiente a la letra D. 







DANDO 


FORM. SUMCDAi .DS>)E= 
le PARA SALIR 





El programa, una vez reconocida la función SUM, 
identifica la casilla de principio para el cálculo y le suma 
los valores leídos en las siguientes casillas hasta la RR E 
última. El resultado se presenta después en la casilla ñ y TRES ES 

> E 5 es 1 
en la que se ha pedido la función (en la foto, la 
correspondiente a las coordenadas F4). 


DANOS 


COMANDOS : FAN IMLC 


Comandos. Los comandos que no corresponden a la 
introducción de los datos son identificados por las letras 
|, M, LyC, y tienen los siguientes significados: U AS IA PL 
| =inserciones 

M =memorización 

L  =carga de los datos 

C =copia 

En este caso se ha activado el comando |: sigue la 
búsqueda por parte del programa del tipo de inserción 
a realizar. 


3 


TRES MU ¡AN 


e DANOS 


ES 





Se ha seleccionado el comando | (inserción) y aparecen 
las opciones L, C, E con los significados: 
L =línea (inserta una línea) 

C =columna (inserta una columna) 

E =end (termina el comando). 


JE 


UT ES MU CINCO 


AE! > A) 


¡E ES 


DNA MOS 


in 
E 


COMANDOS 
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En la máscara anterior, el usuario ha seleccionado la 
opción C: el sistema inserta una nueva columna en la 
posición indicada por el cursor. 


| 
| 


ds A IAS 


pd E 


A RE] 


CI E 


E 


III E 


Ejemplo de utilización del comando C (copia). La 


letra correspondiente aparece invertida y el programa 
se pone en espera de los parámetros, o sea la PORTO ENEE AER E A 
indicación de la zona del tablero a copiar. El primer Ll A : AE 
parámetro está constituido por la línea de principio 
de la zona. y a 

D 2 y: 67.89 


LINEA INICIAL? 
CILA RETA COMANDOS : F AM 


La foto muestra la introducción del segundo parámetro, 
o sea la línea en la que termina la parte a copiar. 
Obsérvese que la dirección a las líneas está constituida 
por números progresivos: 1 para la primera línea, 2 para 
la segunda, etc. 


ET TE 
e PARA SALTERAS 


Ultimo parámetro del comando C: el sistema pregunta 
en qué línea debe empezar el posicionado de la copia. 


US CUATRO —CINCO 
67.89 


LA EE] 


CIA IIA E 
le: PARA SALIR MAN II E O A] 





2416 


La foto muestra el resultado del comando anterior: se 
han copiado las dos primeras líneas (A y B) en las 
posiciones G y H (correspondientes a 7 y 8). 


Comando M (memorización). Este comando permite 
memorizar parte del tablero de un fichero. Los 
parámetros asociados al comando están constituidos 
por las direcciones (nombres de las celdas) del 
principio y del final de la zona a transferir. En la foto 
se ha presentado la celda de principio del área de 
memorización (celda A1). 


La foto muestra la introducción de la dirección que 
identifica el final de la zona de memorización 
(celda H6). 


En este punto se activa la memorización en el fichero de 
la zona comprendida entre la celda A1 y la celda H6. El 
fichero en el que se memorizan los datos es único, por 
lo que los datos eventualmente presentes en el mismo 
se pierden. 





o 


US CUATRO —CINCO 


q 


AE] 12.9 


[a SN me 


LA GR 


A o] 


A 


TRES MU o] 


» 


al 
6 y IN E 
M 


l 
CELDA INICIAL? ñi 
le PARA SALIR MA A A 


El 
LA ESE 


1d A A 


ES E] 


CUATRO A] 


PL. 9-55 


Md CINCO 


Sn O Nm 


CELDA FINAL? H6 
ETA E COMANDOS 


Y) 


E 


ES TRES CUATRO CINCO 


A] 


Md CINCO 


sn O NA MN 


APA 
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Ejemplo de aplicación para la distribución de los 
gastos comunitarios: en la foto se muestra la tabla 
de las superficies habitadas. 


CES 


pen 


J 
AA AAA 
CODAE COMANDOS : ly A N 1 


Cálculo de las distribuciones milesimales: en la foto se 
presenta la fórmula: j 
7 
SEO 
A 
E 
A so 


yo so 5 


! 
(1000/H2) + C2 y 


en la que H2 es la superficie habitada total y C2 es la 
superficie del apartamento considerado (por tanto, esta 
dirección puede variar de B2 a F2). 


bl 


de 


y 
UA AI 
CAE A COMANDOS 


Tabla de la distribución milesimal completada 
(aplicando 5 veces la fórmula anterior): en la celda J3 se S 
ha insertado el gasto total a repartir. lA 
de , A LU PES TU! 
Br1so JT 70.5076 
DE A LU pr ES 
TO > a PE NE 
1 


FETO : 0) 260.475 


A A EA O | 


UU] 


LS 


COMANDOS : F AN.1MLC 





Cálculo de los importes debidos por cada apartamento 
en función del gasto anterior. 


¡ 
A d 


Ue 11 Ud! Sl] 
IMPORTE SE A 
SL PISO 2 634 
a 


IMPORTE PISO 3: 204 
A E EA 


l 
A 


MPORTE PISO 





2418 


La lógica del programa 


Las funcionalidades del programa pueden dividirse en 
dos tipos: 


1 /Posicionado del cursor, introducción de datos o 
cálculos, con eventual ejecución, y presentación 
del resultado 

2 / Gestión de funciones particulares como el borrado 
o el desplazamiento de valores de una celda a otra. 


El tipo de funcionamiento pedido por el usuario se de- 
termina en el momento de la introducción de cada ca- 
rácter. Normalmente, el programa se encuentra en el 
primer estado (desplazamiento o introducción) y si se 
introduce un carácter particular que se utiliza como 
flag (por ejemplo, el símbolo “C”) pasa a la otra fun- 
ción. Por tanto, el programa principal (main) está cons- 
tituido por un bucle de lectura, comprobación del 
carácter y definición de la actividad requerida. En la 
página siguiente se ha representado el diagrama de 
principio y, para analizarlo, antes hay que definir la 
estructura que se va a utilizar. 

Como se ha indicado, el espacio disponible está divi- 
dido en celdas, cada una identificada por una línea y 
una columna propias que deben ser presentadas al 
usuario. Por tanto, la primera función a activar es la 
presentación de un sistema de referencia constituido 
por dos ejes con origen en la parte superior izquierda 
y una serie de símbolos de identificación de la posi- 
ción. En esta versión, la línea está identificada por una 
letra, mientras que la columna lo está por un número 
(hay que tener en cuenta que por el término “columna” 
no se entiende una columna de la pantalla, sino una 
columna de celdas, o sea un grupo de columnas de 
pantalla en número igual a la longitud en bytes de ca- 
da celda). 

Como se ha indicado, la primera función es la presen- 
tación de los ejes (subrutina 8000) que, además, pone 
L=1yC= 1, indentificando así la primera celda (en 
el cruce de la línea 1 con la columna 1). En este punto, 
el programa se pone en espera de un carácter y, en 
función del tipo de carácter introducido, se tiene la ac- 
tivación del correspondiente bloque principal: 


1 / Subrutina para los desplazamientos 
2 / Subrutina para los comandos 
3 / Subrutina para la introducción. 


Al final de cada función, el programa vuelve a la ins- 
trucción de espera de un carácter. 


Subrutina de cálculo. Esta subrutina sólo se examina 
desde el punto de vista funcional; para el detalle de las 
Operaciones simples hay que consultar los listados. 
Para su funcionamiento hay que definir: 


OPS$(5) =símbolos de los cálculos aritméticos en or- 
den de prioridad (f,/, «+, +,-—) 

FZ$(*) = símbolos (primeras tres letras del nombre) 
de las funciones previstas. 


En la llamada, la cadena A$ contiene el cálculo a reali- 
zar con todos los valores ya preparados, por lo que 
antes de activarla en la fórmula, se hace referencia a 
una celda de la que hay que tomar el valor y sustituirlo 
por la dirección. En la cadena pueden emplearse pa- 
réntesis, funciones propias del Basic y funciones parti- 
culares específicas de esta aplicación, porque las di- 
recciones ya están decodificadas, o sea sustituidas 
por el correspondiente valor numérico. Por ejemplo, si 
se quiere sumar el contenido de la celda n.* 1 al de la 
n.” 3, respectivamente de nombres A1 y C1, el usuario 
escribirá la fórmula A1 + C1. El sistema debe interpre- 
tar las letras A1 y C1 como direcciones, tomar su con- 
tenido y transformar la cadena sustituyendo los valores 
numéricos por las referencias. Este proceso inicial es 
necesario para obtener una expresión que contenga 
letras que sólo indican nombres de función. Como ya 
se ha indicado, la subrutina puede realizar cálculos 
que contienen funciones. Las previstas en las distintas 
versiones se indican en las correspondientes instruc- 
ciones DATA de carga en la matriz FS$(+). Téngase en 
cuenta que, en algunos casos, se han previsto funcio- 
nes que no están incluidas en el Basic, pero muy útiles 
en este tipo de aplicación. En la página 2421 se ha re- 
presentado el diagrama de principio de la subrutina. 
Los bloques principales son dos: el primero dedicado 
al desarrollo de las funciones y el segundo a los cálcu- 
los aritméticos. Por tanto, para eventuales implantacio- 
nes, hay que modificar el correspondiente bloque. En 
la salida, el resultado de la expresión se transforma en 
A$, que por lo tanto se utiliza tanto como parámetro de 
entrada como de salida. 


Desplazamiento del cursor. Para analizar el funciona- 
miento de esta rutina hay que seguir el funcionamiento 
del programa desde el principio. 

Como ya se ha indicado, la primera función realizada 
es la presentación de los ejes y de las direcciones, 
líneas y columnas de las celdas. En esta fase, el cur- 
sor está posicionado en la línea 1, columna 1. 
Introduciendo el comando de desplazamiento, por 
ejemplo a la derecha, el cursor debe posicionarse en 
la segunda celda de la primera línea, o sea en la co- 
lumna 8 de la pantalla (una celda ocupa 7 bytes). Por 
tanto, el posicionado del cursor en el sentido horizontal 
se hace con paso 7. En los diagramas se entiende con 
el término “columna” una columna del tablero, o sea 
una celda, igual a 7 columnas de vídeo. 

La subrutina empieza con la lectura de la celda de 
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coordenadas L,C correspon- 
dientes a la posición del cur- 
sor. En la salida de la rutina de 
lectura se tiene: 


FO$ = Indicador del tipo de 
campo (1 byte) 

PF$ = Puntero a la fórmula (1 
byte) 

D$ = Dato (7 bytes) 


Por tanto, puede determinar- 
se si la celda contiene o no un 
cálculo. 

En el primer caso (PF$ < > 
“0”), hay que llamar la subruti- 
na 17000 que efectúa el cálcu- 
lo y deposita el resultado en la 
celda. En el segundo, basta 
con presentar el contenido. 

En uno y otro caso continúa el 
cálculo de las nuevas coor- 
denadas (en base al tipo de 
desplazamiento pedido). 


Lectura del contenido de una 
celda. La subrutina debe resti- 
tuir el contenido de la celda 
apuntada por los valores L y C, 
en las variables FOS$, PF$ y DS. 
Por tanto, la primera función es 
el cálculo del byte de principio 
de la celda número “C” en la 
cadena “L” (BS$(R)). Siguen la 
extracción de todos los datos 
de la celda y su desempaque- 
tado en las tres variables de 
cadena. 


Desarrollo de los cálculos. 
Los cálculos se desarrollan uti- 
lizando la subrutina generaliza- 
da descrita al principio. Sin 
embargo, antes de llamarla, 
hay que preparar los datos, o 
sea la fórmula, en la variable 
“A$ y, en la salida, transferir el 
resultado a D$ para la escritura 
en la celda y la presentación 
en pantalla. 
La subrutina no presenta nin- 
guna dificultad ni particulari- 
dad, puesto que sólo pide el 
control sobre la longitud de D$. 
Esta función no se indica en el 
diagrama, y se reduce a añadir 
un número de espacios igual 
a los bytes que faltan en el 
caso de una longitud inferior a 
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FLUJO PRINCIPAL 


El 


Inicializa L1, C1, L, C y 
prepara la pantalla 


Carga DX y DY que serán 
utilizados por la subrutina 
de presentación de celda 


Asume D$, FOS$ y PF5 (valore 
de la celda presentada) 


El código ASCII de la tecla 
se pone en AO 


Los códigos de los comandos 
están contenidos en CO(«) 


Tecla no significativa 


Si 
en 
NO 


y 
PR 


Actualiza las coordenadas 
de la celda presentada 





DIAGRAMA DE PRINCIPIO DE LA SUBRUTINA 
DE DESARROLLO DE CALCULOS 


En entrada: 

A$ = Contiene el cálculo 
a sustituir 

En salida: 

A$ = Contiene el resultado 


O 


En el caso en que el byte extraído 
sea una letra, se activa el análisis 
de función. Si el dato es un nombre 
reconocido, se deja inalterado 


Al final del bucle, la cadena 
A$ no contiene direcciones, 
sino sólo valores o funciones; 


por tanto, puede ser utilizada 
por la subrutina de cálculo 


Principio bucle de análisis 


Si el carácter es un número O 
un símbolo (A, /, x, +, —) 

no se produce ninguna 
decodificación 


y 


Este caso sólo se presenta si 
el carácter es una letra que no 
forma parte de un nombre de 
función. En este caso debe ser 
necesariamente una dirección 
(línea y columna). El sistema 
lo extrae y toma su contenido 


Esta subrutina se presenta separada de las otras porque puede utilizarse también 
para las otras aplicaciones, por ejemplo en la Base de Datos, con pocas 


modificaciones 


la prevista, o a truncar el resultado en el caso de una 
longitud superior. Recuérdese que en el caso de que 
se añadan espacios para completar el campo, la su- 
ma debe realizarse a la izquierda del valor numérico. 


Escritura de una celda. La transferencia de un valor 
(campo D$ + FUS$ + PF$) a una celda se obtiene in- 
sertándolo en la correspondiente posición del buffer 
de línea. 





El tablero está compuesto por un cierto número de 
buffers (B$(+*)), cada uno correspondiente a una línea 
y dividido lógicamente en tantos campos como cuan- 
tas columnas hay. Por tanto, para cambiar el valor de 
una celda es necesario insertar, en el correspondiente 
buffer de la línea a la que pertenece la celda, el valor 
dado en la posición correspondiente a la columna. 

Esta función se obtiene aislando la parte de B$(x) a la 
izquierda de la celda, o mejor, de los bytes que debe- 
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rán acoger el contenido, y a la de la derecha. Así se 
obtienen 3 cadenas: 


A1$= Parte de B$(x) a la izquierda del campo 

A2$= Parte de B$(x*) a la derecha del campo 

A$ = Campo (contenido de la celda) a insertar 
(FOS + PFS + DS) 


Sumando los tres valores se reconstruye el buffer 
BS$(R), incluidos los nuevos valores correspondientes a 
la celda que hay en la columna C. 

Esta subrutina, cuya lógica no queda alterada, es utili- 
zada por todos los puntos del programa que piden la 
memorización del contenido de una celda (por ejem- 
plo, en la fase de introducción o al final del desarrollo 
de un cálculo). 

Obsérvese que al transferir el valor D$ también se 
reescriben los flags (FW$, PF$ y eventualmente otros), 
por lo que la cadena A$ que representa el nuevo con- 
tenido de la celda debe estar compuesta por FV$ + 
+ PF$ + D$, cada uno con el adecuado número de by- 
tes (1, 1, 7) para no alterar la longitud total de la celda. 


Presentación del contenido de una celda. La subru- 
tina presupone que el cursor está correctamente posi- 
cionado, o sea en la línea L y la columna C del tablero, 
en la correspondiente columna de pantalla: 1 + 9 x 
(C-1). 

En la llamada sólo es necesario indicar la dirección (L, 
C) de la celda. 

La subrutina ejecuta las funciones: 


1 / Lectura del contenido de la celda (DS) 
2 / Presentación del valor. 


En el diagrama se muestran los dos modos posibles 
de determinación del tipo de desplazamiento. 

El primero se basa en el contenido del flag H1, implan- 
tado en otro lugar, para vincular el desplazamiento in- 
dependientemente del tipo de dato. 

El segundo analiza el contenido de la celda (flag FW$) 
y activa el desplazamiento congruente (izquierda para 
los datos alfanuméricos, derecha para los numéricos). 
El flag H1, cuya activación genera el desplazamiento 
independientemente del tipo de dato, se implanta a 


SUBRUTINA DE DESPLAZAMIENTO 


En la llamada, AO contiene el código del desplazamiento pedido 


L=L+1 
L=L-1 


1 = Arriba (1) 
2 = Abajo (1) 
3 = A derecha (>) C=C+1 
4 = A izquierda (-—)C = C- 1 


y 


La celda es apuntada por L (línea) y C (columna) 


HR 


Desarrolla el cálculo 
contenido en F$ (VAL(PF$)) 
poniendo el resultado en D$ 


NO 
_ AAA] Y si 


Presenta el contenido de la celda, o sea D$ 


Por ejemplo, para AO = 3 (>) L e Y no varían 
Cc=C+1 X=X>+7 


y 
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LECTURA DEL CONTENIDO DE UNA CELDA 


En llamada: 


L, C = Coordenadas de la celda 


En respuesta: 


FO$  = Tipo del campo 
PF$  = Puntero a la fórmula 
D$ = Contenido de la celda 


De B$ 
FOS =LEFTS$(BS, 1) 
PF$S  = MID$(BS, 2, 1) 
D$  —=RIGHT$(BS, 7) 
Se recuerda que el formato es el siguiente: Celda N. 1 
1 9 


Puntero al byte de principio celda 


Extrae los 9 bytes de la celda 


=> 


AS A e o A A A A O A A O 


celda 2(C = 2) 
BS(R) | E : 


E —— == 


B$- MIDS(BS(R).N1,9) y > pa 
con N1=1+9*(C-—1) ss 


través de la gestión de los comandos (subrutina 
16000) y se utiliza para presentaciones especiales. 
En el diagrama, los bloques finales, que generan el 
desplazamiento deseado, no están detallados porque 
dependen del tipo de máquina utilizado. Sólo hay que 
tener en cuenta que la variable local H2 se ha inserta- 
do para no modificar el flag H1, cuyo contenido es 
gestionado por otra vía. 


Traslación de la pantalla vídeo. En la página 2439 se 
ha representado el diagrama de principio que muestra 
la lógica seguida para asignar los valores de los extre- 
mos del bucle y el método seguido. 

El diagrama está muy simplificado y no corresponde a 
los listados porque, para no complicarlo demasiado 
desde el punto de vista gráfico, no se han indicado 
algunos de sus bucles. Por ejemplo, en el desplaza- 
miento vertical (parte izquierda del flujo), hay indicado 
el bucle sobre las líneas, pero la presentación de las 








celdas sólo se indica como subrutina. En realidad se 
trata de un bucle similar al mostrado en el flujo de la 
derecha (desplazamiento horizontal). 

Análogamente, en el flujo de la derecha se muestra el 
bucle que permite la traslación horizontal de una línea, 
mientras que en los listados se necesita uno más exte- 
rior sobre todas las líneas presentadas. 

Finalmente, hay que observar que la metodología se- 
guida, consistente en simular un «scroll» del vídeo en 
lenguaje Basic, es la menos adecuada desde el punto 
de vista funcional, aunque sí la más comprensible. 
Seguramente, una mejor versión puede obtenerse 
sustituyendo esta rutina (8100) por una en lenguaje 
máquina que trabaje sobre la memoria vídeo, transfi- 
riéndole cada vez la zona de B$(+) a presentar. 
Como esta solución está estrechamente ligada a la 
máquina utilizada, no se ha representado en el diagra- 
ma, y en su lugar se ha indicado la de la página 2439, 
que únicamente puede ser útil a nivel funcional. 


2423 


DESARROLLO CALCULOS 


Entradas: 
L,C = Coordenadas celda 
FOS, PFS, F$(«) 


Campo alfanumérico 


> 


PF apunta a la fórmula 


PF =0 significa que la celda 
no tiene asociada ninguna 
fórmula 


El resultado del cálculo se pone 
en A$ 


Si la longitud es mayor que 
7 y no hay decimales para 
truncar, significa que se ha 
producido un error de 

En 1, la posición del punto “OVERFLOW" 

decimal 


£ Si 


El índice | es mayor que 8. 
Por tanto, se ha producido 
un error de “OVERFLOW” 
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El tablero electrónico/Versión Commodore 64 


OE mur 


poa PERE 
MA 

REM z TABLERO VERS C-64 . 
REM * 
FRE A A ON 


3 PRINT CHR$C142) 

19 DIM 0P$(5),F2$(6),C0(9),B3$(15) 
15 RESTORE 

20 FOR I=1 TO S:READ OP$(1>:NEXT 1 
25 FOR I=1 TO 6:READ FZ$C1>:NEXT 1 
30 FOR I=1 TO 7:READ COCI>:NEXT 1 
35 FOR I=1 TO 7:READ TICI):NEXT 1 


500 
505 
507 


REM PREPARACIONES 
HO$=""7" :PRINTHOS : POKES3280.,0:POKES3281,8 
POKE198,0 
PUKE646,3: POKE643, 15:POKES58, 128: POKESS7. 128 
Bg=" "¡BAg="": Buga" ":ZEg=" 
FOR I=1 TO 4:BAS=BAS+BS$: BUS=BUS+BS:NEXT 1 
Bia"" 
FORI=1T015:ZE$=ZE$+"0000":FORJ=1T024 :BSCT>=BSCT)+LEFTSCBAS, 10) NEXTJ, 1 
RY=1 :NReg 

Figo zascacomconcaraccacirrcocamc3a 2222232" 
FC=1:LD=9:GOTO 5008 

REM ak ESPERA TECLA mo 

POKE 198,0 


1205 GET A$:IF A$="" THEN 1205 
1210 AU=ASC(AS) 


KkK=1 


1220 KK=kK+1:IF KK=8 THEN 1250 


IF AB=TT(KK> THEN 1202 


1238 GOTO 1228 


RETURN 

REM ENCIENDE CELDA 

POKE 199,NR:X=Xx: Y=ww: GOSUB11090:PRINT DD$ 
XXSDXMB+Z : Y DYAZ+2Z 

"GOSUB 9506:POKE 199,RV:IF PF$<>"8" AND PF$<>" "THEN GOSUB17800 
X= XX: ay: GOSUB11000:PRINT DS: DD$=D$ 

POKE 199,NR:RETURN 

REM Wok ELIMINA ESPACIOS MMM 
Z2sm"":ABLENCZS):FORI=1TOA:Z1$=MIDSCZS, 1,1): 1FZ1$(7" "THENZ28m22$+Z18 
NEXT 1:Z8=22$:RETURN 

REM BORRA LINEAR YT 
%X=1:Y=WT:GOSUB11000:PRINTLEFTSC(BAS, 39) 
RETURN 

REM NO ENTRADA CAMPO HN 
Xl=x+1:X2=X+LO-1:POKE 650,8:POKE 646,15 
FI$=C$+MIDSCF1$, 1,LO-LENCCS)> 
G0SUB12000:PRINTF1$:00SUB1 2089 

POKE 198,0:POKE 204,8:POKE 199,8 

IF PEEK(646)<>15 THEN POKE646, 15 

GET H$:1F H$="" THEN 3521 

IF ASC(H$)=44 THEN 2528 

ASASC(H$>: IF A=13 THEN 3608 

IF A=95 THEN 3669 

IF Am29 OR A=157 THEN 3535 

“IF AX32 OR AD94 THEN 3528 
LC=1024+(40XY)+X:L1=PEEK(LC>: IF L1=168 THEN L1=32 
IF L1>128 THEN L1sL1-128 

IF AC)29 AND AX)157 THEN 3575 

IF A=157 THEN 3565 

IF X)=X2 THEN 3528 

POKE LC, ad dE GOTO 3528 

IF XCX1 THEN 3) 

POKE LC,L1: Sl  oosuB1 2088: GOTO 3520 


REM 

60SUB12000:PRINTHS; :X=x+1 

IF X=>%2 THEN X=X2:608UB12888:G0TO 3520 
GOTO 3528 

REM 

Cga"" 


3618 FOR K=X1-1 TO K+LO-1:K1=1024+ (48 )+K 


AUQ=PEEK(K1) 

IF AQ=168 THEN AQU=32 

IF AQ>128 THEN AQ=AQ-128 

IF Au=>1 AND AQ<=30 THEN AQ=A0+64 

C$=C$+CHR$C(AQ> 

NEXT K 

FOR J=1 TO LO 

GS=MIDS(CS$,J,1):1F Gs="=" THEN CS=LEFTS(CS$,J-1)+" "+RIGHTS(CS$,LO-J> 


NEXT J 
POKE 204,1:POKE 650,128:POKE 646,5 
RETURN 


PEA A 
REM MK MAIN a 
REM loo 
GOSUBSG09:DD$="":XX=1:Yy=1 
Dx=C-C1 : DY=R-R1 
GOSUB 1398:G0SUB 1288 
IF AU<)29 THEN 5870 
IF DX=4 AND C1<22 THEN C=C+1:C1=C1+1:G00SUB 8108:G0TO 5820 
IF Dx<4 THEN C=C+1:G0TO 5628 
IF AB<>157 THEN 5180 
IF DX=4 AND C1>1 THEN C=C-1:C1=C1-1:G0SUB 8186:G0TO 5828 
IF DX>9 THEN C=C-1:GOTO 5820 
IF AOC)17 THEN 5130 
IF Dvy=9 AND R1<6 THEN R=R+1:Ri=R1+1:GOSUB 8180:GOTO 5028 
IF DY<9 THEN R=R+1:G0TO 5028 
IF AG<7145 THEN 5160 . 
IF DY=0 AND R1>1 THEN R=kR-1:R1=R1-1:G0SUB 8198:GOTO 5828 
IF _DY>0 THEN R=R-1:G0TO 5820 
GOTO 166868 
GOTO 5820 
REM ak GESTIÓN DISCO mao 
PERMEROI8SRETURN 
Mm 


INPUTH1,AD,X$,CD, DD 

IF AD=720RAD=740RAD=700RAD=26 THENCLOSE 1 :CLOSE2:GOTO 7880 

APO POR EDDELTMENRON DEL: FICHERO DATOS NO ESTA" :CLOSE1:CLOSE2:60T07825 

ca MONK CREACION FICHERO DATOS mm 
$e" 

FOR J9=1 TO 234:RA$=AAS+"44" : NEXT J9 

OPEN1,8,15 

OPEN2,8,3,"B:TTBB,L., "+CHR$(235) 

FOR J9w1 TO 24 

PA=J9:GOSUB 6800 :PRINTRZ. ARS 

NEXT J39 

INPUTH1,AD,X$,CD, DD 

CLOSE1 : CLOSE2 

RETURN 

REM eo o 

REM ok APUNTA AL REGISTRO k 

R1=PA:R2=0 

IF R1>256 THEN R2=INT(PA/256) :R1=R1-256HR2 

PRINTH1,"P"CHR$(3+96)CHR$(R1ICHRSCRZICHRSC1) 

RETURN 

REM kk ERROR DE UNIDAD DE DISCO * 

IF AD=26 THEN B$="ESCRITURA IMPOSIBLE":COTO 7025 

IF AD=72 THEN B$="ESPACIO EN DISCO AGOTADO" :G0TO 7025 

IF AD=74 THEN B$="EL DISCO NO ESTA":GOTO 7825 

IF AD=78 THEN B$="CANAL NO DISPONIBLE":GUTO 7625 

B$="FICHERO DATOS NO UTILIZABLE" 

Y=22:X=1:G0SUB11000:PRINT"2";BS; "bi"; 

POKE198,0:WAIT198,1:YT=22:COSUBIDOO 

ED=1 : RETURN 

REM alo INICIALIZA PANTALLA malo 

POKE646,5:R$="":FOR 1=65 TO 79:R$=R$+CHR$(1):NEXT 1:POKE 199,RY 
Y$="FANIMLC" 

R1=1:C1=1:Ra1:C=1:FOR 1=21020:X=1:Y=]: 605UB1 1800: PRINT" ";:NEXT 1 

X=1:Y=24:GOSUB11000:PRINT"E 

POKE 199,NR:x=16:Y=24 :GUSUB11000: PRINT"HICOMANDOS ¿FANIML CH; 

REM olelolak. SCROLL. oo 


POKE 199,RV:C2C1:X=1:Y=1 :GOSUB11080:PRINTLEFTS(BAS, 40); 
FOR 1=5 TO 37 STEP B:POKE 199,RY 

X=] :G0SUB11008: A... a NEXT I 

R2=R1:FOR I=2 TO 28 S 

X=1:Y=]:00SUB11000: PRINT" SUMIDSCRS/R2, 1): R2=R2+1 

NEXT _I:POKE 199,NR 

Y=2:FOR IÑ=Ri TO R1+9 

X=2:FOR J=C1 TO Cl1+4 

Nis1+9MC(J-1):A$=MIDS$CBG(1),N1,9) 

FOS=LEFTSCAS, 1):PFS=MIDS$CA$,2,1> 
DésRIGHTSCAS, 7) :0OSUB11008 

PRINTDS:X=X+8:NEXT J 

YeW+2:NEXT T:RETURN 

REM a CAL 2 mo 

ER=0:L=LENCCAS): IF L<3 THEN 9030 
FORI=2TOL-1:CH$eMIDSCCAS, 1,1):FORJ=1T05:1F OP$(J>=CH$ THEN 9020 
NEXT J,I:ER=1:G0TO 9039 

CHsemID$(CAS, 1+1,1>:1F CH$="%" OR CH$2"19" OR CH$="/" THEN ER=2:GOTO9838 
NiÑVALCMIDSCCAS, 1, 1-1>>):N2=VAL(MIDSCCAS, 1+1,40)) 

ON J GOTO 9035, 9040, 9850,9055, 9068 
CAS=STR$(N1>:L9MLENCCAS>-1 

IF Ni<O THEN 9030 

CAS=RIGHTS(CAS/L9>:IF N1>0 THEN CA$="+"+CA$ 

GOTO 9120 

N1=N1 1N2:GOTO9024 

IF N2=0 THEN ER=3:60T09024 

N1=N1/N2:00T09024 

Ni"N1ANZ : GOTOIOZ4 

N1wN1=N2:G00TO9024 

N1=N1+N2:G0T09024 

REP MM o O 

ER=8:LOÑLENCFOS>:1F LO<3 THEN RETURN 

FOR OP=1 TO 5:POR0:P1=8:P20:FOR 10=2 TO LO-1:CH$=MID$CFOS$, 10,1) 
CH=ASC(CH$) : IF CH$=0P$C0P) AND PO=8 THEN PO=10:GOTO 9095 
0=8:1F (CH=940RCH<48>AND CH<246 THEN 0m1 

IF 0=1 AND PO=6 THEN P1=10 

IF 0=1 AND PO>8 AND I0=PO>1 THEN P2=10:G0TO 9105 

NEXT TO: IF PO>6 THEN 9105 

NEXT OP:RETURN 

IF P1=0 THEN P1=1:GOTO 9115 

CH$=MIDSC(FO$,P1,1>:1F CH$<>"+" AND CH$<>"-"THEN P1=P1+1 
P2=P2-1: IF P2<8 THEN P2=LO 
CAS=M1D6(FOS$,P1,P2-P1+1):G0TO 9008 

IF ERCO THEN RETURN 


GCOSUB 9280:FOS$=MIDS(FOS,1,P1-1)+CAS+MIDSCFOS,P2+1,48):00T0 9878 
REM dolo ooo ml 

ER=0:LAÑLENCAS): IF LAC3 THEN 9165 

PI=0:PF=9:FOR IAwi TO LA:CH$=MIDSCAS, 1A,1>:1FCHS="("THENPISIA 
IF CH$=")" THEN 9185 

NEXT IA: IF PI>9 THEN ER=4:RETURN 

FO$=A$ :GOSUB 9865 :A$=F0$ 

IF VALCA$)=0 THEN A$="9":RETURN 

IF LEFTSCAS,1)7="+" THEN AS=MIDSCAS, 2,80) 

RETURN 

IF Pl=8 THEN ER=4:RETURN 
PF=IA:FOS=MIDSCAS,PI+1,PF-PI-1>:00SUB 9665: 1F ERC)8 THEN RETURN 
IF PI>3 THEN GOSUB 9228 

IF Pl<wí THEN 9210 

1F ACOANDMIDSCAS,PI-1,1)="-"THENPI=PI-1:FO$m"+"+MIDSCFOS, 2,80) 
IF ER<O6 THEN RETURN 

As$aMIDSCAS, 1,PI-1)+FOS+MIDSCAS,PF+1,88):00TO 9148 

REM me e MO 

ER=0:CH$=aMID$(A$,PI-1,1>:1F CH$<"A"ORCH$>"Z"THENRETURN 
FUS=MIDS(AS,PI-3,3): 180 

l=1+1:I1F 176 THEN ER=5:RETURN 

IF FU$=FZSCI>THEN 9248 

COTO 9231 

Ri=VALC(FOS):0N I GOTO 9245,9250,9255.,9260,9265, 9275 
FOS=STR$(A1) :CA$FFOS : GOSUBI280 : FOS=CAS 

L9ÑLENCFOS>-1:1F RICO THEN 9244 

FOS$=RIOHTS$<FO$,L9) 

PI=PI-3:RETURN 

RIÑABS(A1):00TO 9241 

AlwINTCAL>:GOTO 9241 

A1*COSCA1):GOTO 9241 

A1=SINCA1>:GOTO 9241 

IF AICA THEN ER=6:G0TO 9241 

R1=S0ORC(A1>:GOTO 9241 

AI=TANCAL>:GOTO 9241 


9289 
9290 
9291 


REM_ ojal ollo alejo 
L=LENC(CAS) : 1Csg 
IC=IC+1:1F IC>L THEN RETURN 


9292 1F MIDS(CAS, IC,1>="E" THEN 9209 
9295 GOTO 9291 

9300 N$=MIDI$(CAS, 2, 1C-2) :LeLENCNS> 
9381 1=8 


9303 


9650 

3669 

10004 
10005 
10810 
10015 
10820 
11009 
11002 
11085 
11610 
11015 
12000 
12002 
12005 
12010 
12015 
14009 
14005 
14610 
14020 
14039 
14049 
14069 
14080 
14099 


I=1+1:1F IL THEN 9310 
IF MIDSCNS, 1,1)=","THENP=1 :G0TO9315 
GOTO 9383 


PL ; 
ExVAL(MIDSCCAS, 1C+1,3)):1F ECO THEN 9255 
DDeL-P: IFDD=9THEN9I345 
N$=MIDS(NS, 1,P-1>+MIDS(NS,P+1,80) 

IF DD<sE THEN 9345 
N$=MIDSONS, 1,P+E-1)+"."+MIDSCNS,P+E,80):DD=E 
Ns=N$+MID$(ZES,1,E-DD)>:GOTO 9375 

IF P=L THEN P=P+2-L:GOTO 9365 
NS=MIDS(NS, 1,P-1)+MIDSCNS,P+1,80):L=1 
N$=M1D$(ZES,1,-E-L+1>+N$ 
NS$=sMIDS(NS,1,P-1)+"."+MIDSCONS,P, 80) 
CAS=LEFTS(CAS, 1)+N$: RETURN 
REM od o 

255 :GOSUB 2900: A$=2$ 
LASLENCAS):1F LEFTSCAS,3)="SUM" THEN GOTO 14009 
FOR 1=1 TO LA 
CH$=MIDSCAS, 1,1): 1F CH$>="A"ANDCH$<="Z"THEN 9449 
NEXT 1:GOTO 91238 
Pl=1:C$eMIDSCAS, 142,1): 1F C$)="A"ANDC$<="Z"THENI=1+2:60T09438 
IFCH$>"0" THEN ER=7:RETURN 
R=ASC(CH$)-64 : TE TITIST IN IF C=0 THEN ER=7:RETURN 
GUSUB 9500: 2$=D$:G0SUB 298 
AS=MIDS(AS,1,PI- ez mios CAS P1+2, 80) 
GOTO 9418 
REM LECTURA CELDA 
Ni1+9k(C-1):ES=MIDSC(BS(R),N1,9) 
FOS=LEFTS(BS, 1):PFS=MID$(ES,2,1) 
D$=RICHTSCBS, 7) : RETURN 
REM ESCRITURA CELDA 
N1i=94(C-1):N2=N1+10 
RIS=MIDSCBSCR),1,N1):A2$=MIDSCBSCR),N2, 235) 
DS$=LEFTS(DS, 7) 

IF FO$="1" THEN D$=D$+MID$CBAS, 1,7-LENCDS)> 
IF FO$="2" THEN D$=MIDS$CBAS, 1,7-LENCDS)>>+D$ 
ESCRIFA1S+FOS+PFS+D$+A25 : RETURN 

REM_ DATOS 

DATA que, .,93 mg, Ma, 0 

DATA "ABS", "INT", "COS", "SIN", "SQR", "TAN" 
DATA 70,65.78,72,77,76,67 

DATA 18,19,28,147,148,14,142 

REM POSICIONADO CURSOR 

IF XC<=8 OR W<=0 THEN STOP 
POKE211,X-1:POKE214,Y-1 

Sys58732 

RETURN 

REM POSICIONADO CURSOR 11 

IF X<8 OR Y<O THEN STOP 
POKE211,X:POKE214, Y 

Svs58732 

RETURN 

ham FUNCION “SUM” 

FOR I=5 TO LA-1 

IF MIDSCAS, 1,1)="," THEN 14049 

NEXT I:ER=10:A$="ERR=10": RETURN 
RIS=MIDSCAS,5, 1-5): A2$2MIDSCAS, 1+1,LA-1-1) 
RIS=LEFTSCALS, 1):RES=LEFTSC(A2$, 1) 
CI=VAL(MIDSCA1$,2,2)):CF=VAL(MIDSCAZ$,2,2)) 
RI=0:RF=9:A1=9 

FOR I=1 TO 15:CHS=MID$CR$,1,1) 

IF CH$=RIS THEN RI=1I 

IF CHS=RF$ THEN RF=1 

NEXT I 


IF RI=8 OR RF=g OR Cl=ú4 OR CF=8 THEN ER=10: As="ERR=La": RETURN 
IF RI<>RF AND CI<)CF THEN RI=8:GOTO 14148 

IF CI=CF THEN 14199 

RÑRI:FOR 1:C1 TO CF:C=1 

COSUB 9568:A1=A1+VAL(DS$)> 

NEXT 1:GOTO 14228 


C=CI:FOR IÑRI TO RF:R=l 

GOSUB 9588:R1=A1+VAL(DS> 

NEXT_I 

ASSTRSCAL>:LOMLENCAS)-1 

IF A1<A THEN RETURN 

A$ARIGHTSCAS,L9) ¡RETURN 

REM dolok COPIA mo 

X=1:Y=24: GOsUB! 1888: POKE 199, RV:PRINT"hé : PARA SALIR"; 

POKE199.,NR:Xm1 :Y=22: GOSUB1 1000 

PRINT"LINER INICIAL?"; 

X=16:CC=8:Cga" " 

CET AS:IF Asw"" THEN 15032 

IF ASCCA$)<795 AND (CC=B AND (A$C"1"ORA$)"9"">) THEN 15032 

IF ASC(AS$)<795 AND ASCCAS$)<>13 AND (CC=1 AND C(A$C"1"0RA$>"5")) THEN 15832 

IF ASCCA$)"95 THEN 15150 

IF ASC(AS$>=13 AND CC=1 THEN 15039 

E a CC=2 THEN 15839 
3 

RI=VAL(C$):YT=22:00SUB 3009: IF RI>15 THEN 15020 

X=1:Y=22:605UB11000:PRINT"LINEA FINAL?"; 

Xw14:CC=0:Cga"" 

GET A$:1F A$="" THEN 15042 

IF ASC(A$)<395 AND (CC=0 AND (A$X"1"ORA$)"9")) THEN 15042 

IF ASCCA$<95 AND ASCCAS$><>13 AND (CC=1 AND CA$C"1"ORA$>"5">) THEN 15042 

IF ASCCA$)=9S5 THEN 15150 

IF ASCIA$)=13 AND CC=1 THEN 15059 

COSUB11000:PRINTAS; :C$=C$+A$:X=X+1:CC=CC+1:IF CCr2 THEN 15059 

GOTO 15842 

RF=VAL(C$):1F RF>15 THEN 15049 

X=1:Y=22:605UB11000:PRINT"LINEA PRINCIPIO COPIA?";:Xx=24 

CCrg :Cóa"" 

CET AS: IF A$="" THEN 15092 

IF ASCCA$)<795S AND (CC=8B AND (A$<"1"0RA$>"9")) THEN 15092 

IF ASCCA$)<795 AND ASCCA$)<713 AND (CC=i AND C(AS$X"1"ORA$>"5")) THEN 15092 


IF ASCCA$)=95 THEN 15150 

IF ASCCA$)=13 AND CC=1 THEN 15108 

005UB11000:PRINTAS; :C$=C$+A$:X=X+1:CC=CC+1:IF CC=2 THEN 15109 
GOTO 15092 

RC=VAL(C$): IF RC>15 THEN 15099 

POKE646,5 

FOR I=RI TO RF:IF RC>15 THEN 15145 

ES(RC>)=BSC 1) 

RCÑRC+1 


NEXT_ 1: GOSUBSUOO 
YT=22: DOSUBIBOBO : YT=YT+2: GOSUBILGOO : RETURN 
se MollodoR COMANDOS Hook 

m 


IsI+1:IF l=3 THEN 16060 
IF COC1>=A0 THEN 16035 


Y GOTO 16618 


GOTO 16500 

ON 1 GOSUB 17500, 18000, 12500, 20000, 30000, 30500, 15009 
Xw1:v=24:G05UB11090:PRINT"E 

X=16:Y=24:GOSUE11000:POKE 193,NR: PRINT"HICOMANDOS ¿FANIML CM"; 
GOTO 5165 

REM ===== PRESENTA COMANDO =--=-- 

X=27+( 1-12: Y=24 : GOSUB11000 

POKE 199,RY 

PRINT "MUMIDSCVS, 1,1)"M1";:POKE 199.,NR:WY=21:G0SUB11000:G0TO 16848 
REM CALCULO 

PFRSVALCPFS):C$=FOSCPF):IF PF=B OR FO$<>"2" THEN RETURN 
ASSFSCPF):RR=R:CC=C:CUSUE 9408 

L=LENCAS) : IFERC)OTHENAS="ERR="+RIGHTS(STRSCER) +, LENCSTRSCER>)>-1>:G0TO 17110 
IF L<S THEN 17110 

IF VALCAS)=INTCVALCAS)) THEN A$="EEEEEEE":G0TO17110 


Y FUR I=L TO 1 STEP-1 


CH$=MIDS$CAS,1,1>:1F CH$="," THEN 17099 

NEXT 1 :ERR=10:RETURN 

IF 158 THEN A$="EEEEEEE":GUTO 17110 

AS=LEFTS(AS, 7) 

R=RR:C=CC:GOSUB 9500: D$=A$ 

CUSUB 9600 : RETURN 

REM INTRUDUCCION FORMULA 

X=1:Y=24:COSUB11000:POKE 199,RV:PRINT"h+ : PARA SALIRE"; 
FOR I=1 TO 8:1F F$cIz="" THEN 17530 

NEXT_1 

PERVALCPFS):1F PF=0 THEN PF=1:PFS$=RIGHTS(STRSC1>, 1) 
Fas="2" 
CS=FS$CPF):X=1:Y=22:605UB11000:PRINT"HFORM. :" 


LO0=30:X=7:v=21:Z5=C$ : GUSUB2908:C$=2$:G0SUB 3588: 2$=C$:GUSUB 2968 
IF Z$="" THEN PF$="g9" 
GOSUB 9688 
FSCPF>=2$:YT=22: G0SUB IA 17009 : RETURN 
REM INTRODUCCION ALFANUMERICOS 
X=1:w=24:CO0SUB110900:POKE 199,RV:PRINT"ne : PARA SALIRE"; 
PESYALCPES):FSCPF 2" 
PF$="9":FO$="1":X=1:Y=22:G05UB11090:PRINT"RIDATO: *" 
LO=7:X=7:V=21:2Z$=D$:C05UB2900:C$=2$:GUSUB 3588 
D$=C$:GOSUB 9609 
YT=22:COSUB 3008: YT=YT+2:00SUB3088 : RETURN 
REM INTRODUCCION NUMERICOS 
X=1:Y=24:G05UB11808:POKE 199,RV:PRINT"ae : PARA SALIR"; 
FO$="2":X=1:Y=22:G0SUB11008:PRINT"NNUM.: " 
CC=9:L0m7:X=7:Y=21:Z$=D$:00SUB2900 : C$=26: GOSUB 3588 
2$=C$:COSUB 2900:C$=2$ 
IF LENC(C$)=0 THEN 18559 
FOR I=i TO LENCCS)>:CH$=MIDSCCS, 1,1) 
IF (CH$<"0"ORCH$>"9">ANDCH$<>". "ANDCH$<>"="THEN19520 
NEXT 1:D$=C$:G0SUB 9600:GOUSUB 1309 
pEneRa osuna 3000: YT=WT+2:COSUB3000: RETURN 

” 
FOR I=15 TO R+1 STEP-1 
ES(1)=BS$(1-1):NEXT 1 
BS(R>="":FOR I=1 TO 6:BSCR)RBSCR)+BAS 
NEXT 1:GOSUB 8100:RETURN 
RETURN 
REM a MR: 
X=1:Y=22:G05UB11090:POKE 199,NR:PRINT"IL C E"; 
GOSUB 1206:1F ABC>76 AND AB<>67 AND ABC769 THEN 20020 
Y=22:G0SUB11000:POKE 199,RV: IFA0=76THENX=1:G0SUB11900:PRINT"MLAI"; 
IF A0=67 THEN 1H 605UB11000:PRINT"MCH"; 
IFAO=69 THEN 20089 
IF A0=76 THEN G0SUB19900 :G0TU20880 
GOSUB 20500 
POKE 199,NR:YT=22:005UB 3000 :RETURN 
REM OM MO 
K=C:FOR 1IC=25 TO K STEP-1 
C=IC:G0SUB 9500:C=IC+1 
GOUSUB 9688:NEXT IC 
PF$="9":FO$="1":D$u" ":Cuk 
GOSUB 9600:G0SUB 8100:RETURN 


30098 REM Mk DISCO Mk 


X=1:Y=24:G05UB11000:POKE 199,RV:PRINT"a+ : PARA SALIRE"; 
POKE199,NR:X=1:Y=22:00SUB11009 

PRINT"2ICELDA INICIAL?"; 

X=17:CC=B:CSm"". 

GET A$:IF A$="" THEN 30016 

IF ASC(A$)C295 AND (CC=A AND C(ASX"A"ORAS$>"0")) THEN 30016 

IF ASCCAS$)C95 AND (CC=l AND C(A$C"1"ORAS$>"9">) THEN 30016 

IF ASC(A$)<795 AND ASCCA$)C713 AND (CC=2 AND (A$X"B"DRA$>"6")) THEN 30816 
IF ASCCA$)=95 THEN 30268 

IF ASCCA$)=13 AND CC=2 THEN 30929 
GOSUB11008:PRINTAS; :C$=C$+A$ : X=x+1:CC=CC+1:1F CCm3 THEN 30829 
GOTO 30816 
RIS=LEFTS$(C$,1>:CISAMIDS(CS, 2, LENCCS)-1):WTw22:G0SUB 3099 

IF VAL(CI$)726 THEN 30011 

POKE199,NR:X=1 :Y=22: G0SUB1 1948 

PRINT"CELDA FINAL?"; 

X=15:CCmB:C$="" 

GET AS: IF A$="" THEN 30040 

IF ASCCA$)<295 AND (CCB AND (A$<"A"ORAS>"0")) THEN 30049 

IF ASC(A$)<795 AND (CC=1 AND (A$<"1"ORA$>"9">) THEN 39049 

IF ASCCA$)C>95 AND ASCCAS)<713 AND (CC=2 AND (A$<"B"ORAS>"6")) THEN 30040 
IF ASCCA$)=95 THEN 38260 

IF ASCCA$)m13 AND CC=2 THEN 30054 

b0SUB11000:PRINTAS; :C$=C$+A$:X=X+1:CC=CC+1:IF CCw3 THEN 30054 
GOTO 30048 

REF$S=LEFTS(CS$, 1) :CFSMIDSCCS, 2, LENCCS)-1) 
X=1:Y=22:005UB11000:PRINT"MEMORIZACION"¡LEFTSCBAS, 10); :YT=24 : 0OSUBIVGEO 
IF VALCCF$>>26 THEN 36811 

CI=0:CF=0:RI=8:RF=9 

FOR I=1 TO 15:I1F MIDSCR$,1,1)=RI$ THEN RI=1 

IF MIDSCR$,1,1)=RF$ THEN RF=I 

NEXT I 

FOR I=1 TO 26:1F VAL(CI$)=1 THEN Cl=] 

IF VAL(CF$)=1 THEN CF=I 

NEXT 1:IF CF=4 OR RF=4 THEN GOSUB 3688:G0TO 36918 

FOR I=1 TO 9:FSCI)RFSCI)+HLEFTSCBAS, 30-LENCFS$C1))) NEXT 1 


30143 
30145 
20159 
36152 
30155 
38160 
30190 
30199 
30209 
30202 
30204 
30205 
30220 
30230 
30235 
30240 
30242 
30245 
30250 
30260 
30270 
30500 
30510 
90515 
30520 
30525 
30530 
30540 
30342 
30345 
30550 
30552 
30535 
303557 
30360 
30370 
3u60u 
20602 
3u50S 
20607 
30610 
30615 
20700 
30705 
3uria 
30715 
20720 


POKE 646,5 

GOSUB 6509 

GOSUE 6608 

FOR I=1 TO 15:AA$="":ED=9 

OPEN2,8,3,"TTBE":00SUE 6084:IF EL<>4 THEN 30269 
FOR J=1 TO 26 

IF_I<RI OR J<CI OR I>RF OR J>CF THEN RAS$=AAS+ "HANNA" :GOTO 30202 
R=]:C=J:G0SUB 9500:1F FO$=" "THEN FO$="4" 
AAS=ARS+FOS+PF$+D$ 

NEXT J 

PA=1:GOSUB 6299 :PRINTR2Z, ARS 

CLOSE2:COSUB 6004: 1F ED<76 THEN 30260 

NEXT_1 

FOR I=1 TO 9: ans AA$aF$(1>:ED=0 
OPENZ2,€,3,"TTBB 

PA=15+1:G0SUB 6800 :PRINTHZ, RAS :CLOSEZ:GOSUB 60894 
IF ED<26 THEN 30260 

NEXT I 

CLOSE1 :CLOSEZ 

YT=22:GCOSUB3000 : YT=WT+2:GUSUBIGOV 

GUSUB 28000 : RETURN 

REM 4% CARGA mk 

ED=0:GOUSUB 6000 :0PEN2,8,3,"TTEBB" :LD=1:00SUB 6094 
IF EDC)O THEN 30600 

FOR I=1 TO 15:PA=I:COSUB 6299 

AR$="":FOR Ki=1 TO 234:0ET'2,A$:RAS=ARAS+AS:NEXT K1 
B$(1)=AA$:GUSUB 30700:NEXT 1 

FOR IC=1 TO 9:PA=IC+15 

COSUB ESO 

INPUTH2, ARAS 

FOR K9=1 TO LENCARS$) :CH$=MID$(AA$,K9, 1) 

IF CH$="8" THEN CH$=CHR$(32) 

AAS=LEFTSCARS, K9-1)+C0H$+RIGHTS CARAS, LENCRAS)-K9) 
NEXT K9 

2$=HAA$ :GOSUB 2900:F$( 107224 

NEXT IC:CLOSE1:CLOSE2 

GUSUB 8008:LD=0:RETURN 

REM a SUSTITUWE ESPACIOS moi 

FOR 69=1 TO LENCF$CI>> 

CHs=MIDSCFSCI),09,1):1F CHS=CHR$(22) THEN CH$="4" 
FS. 10=LEFTSCF$C(1),69-1)+CH5+RIGHTSCFS$C1),LENCFS$C 1-69) 
NEXT G9:RETURN 

REM 44 SUSTITUYE $ 44% 

FOR K9=1 TO 234 :G$=MID$(B$(1),K9,1) 

IF G£="%" THEH G£$=CHR$(32) 

ESCDDSLEFTSCBSCT) K9-1)+0$+RIGHTSCBSC ID): 234-K9) 
HEXT_K9: RETURN 








RELACION DE LAS PRINCIPALES VARIABLES COMMODORE 64 


OP$(x) = matriz con los caracteres de reconocimiento operador (1 ,/,x,—,+) 
FZS(+x) = matriz con las funciones reconocidas (ABS,INT,COS,SIN,SQR,TAN) 
CO(+) = códigos de comandos 

B$(+) = matriz con las 15 líneas del tablero 

HO$ = borrado pantalla 

a = cadenas auxiliares para procesos y preparaciones (subrutina 500) 
RV = flag para leyendas invertidas 

NR = flag para leyendas normales 

A$ =tecla pulsada (rutina 1200) 

AO =Código ASCII de A$ 

DD$ = cadena para presentación celda 

XX, YY = coordenadas en pantalla de celda 

PFS = puntero a fórmula 

C$ = Cadena para introducción datos (subrutina 3500) 

R = línea actual 

Cc = columna actual 

Cobo =indicadores del estado de la unidad disco 

LD = flag para el comando LOAD 

PA = registro actual 

ER =indicador de error 

FO$ = indicador tipo de celda (1 = alfanumérico; 2 = numérico) 

FS$(+) = matriz para fórmulas 





El tablero electrónico/Versión Apple !l 


=un- 
Se. 35 


60 
70 
530 


1000 
1010 


1040 


1100 
1110 


1200 
1210 


1220 
1300 
1310 


REM SOS 
REM TABLERO ELECTRONICO 
REM VERSION DOS 

REM e —_——= 





DATA 000,070 080,0, 
DATA "ABS", "INT","COS", "SIN", "SQR 
1", "TAN" 
FOR 1 = 1 TOS; 

READ OP$(1)+ 
NEXT 
DATA 70,65,78,73,77,76,67 
FOR 1 = 1 TO.6: 

READ FZ$(1): 
NEXT 
FOR I = 1 T0 7: 

READ CO(I): 
NEXT 
GOSUB 500: 
GOTO 5000 
sToP 
REM A A 
TEXT_: 
HOME + 
BP$ = CHR$ (7): 
DR$ = "1": 
Di$ = CHR$ (4): 
Bs =" y 
BAS = BS + BS + BS + BS: 
BU$ = BS + BS + BS + BS: 
ps.“ 
DIM B$(15) 
FOR I = 1 TO 15: 

ZE$ = 2E$ + "0000": 

FOR J = 1 TO 24: 

BS(1) = BS(1) + LEFTS (BAS 
,10): 


NEXT J,1 

FC = 1: 

RETURN 

REM --- ENCIENDE CURSOR --- 
X1=X-1t: 

ViaiYoc 1d 


CH = SCAN( X1,2 * Y1) + 16 
% SCRN( X1,2 4 Yi + 1): 
HTAB X: 

VTAB Y: 

INVERSE 

PRINT— CHR$ (CH)52 

HTAB X: 

NORMAL. +: 

RETURN 

REM --- APAGA CURSOR --- 
X= Xi +1: 

Y m Yi + 1: 

NORMAL: 

HTAB X: 

VTAB Y: 

PRINT — CHR$ (CH)z+ 

HTAB Xa 

RETURN 

REM 

AO = PEEK ( - 16384): 

IF AO > 128 THEN POKE - 16368,0 
: 

AO = AO - 128: 

RETURN 

GOTO 1210 

REM -—— ENCIENDE CELDA -— 
NORMAL. : 

HTAB XX: 


1320 


1330 


1340 


1350 


2700 
2730 


2930 


INVERSE : 
IF PFS < > "0" AND PFS < 
> " " THEN GOSUB 17000 
HTAB XX: 
VTAB YY: 
PRINT DS: 
DD$ = DS 
e 
RETURN 
REM -— CENTRA EN PANTALLA --— 
XT = (42 - LEN (TIS)) / 2: 
HTAB XT: 
VTAB YT: 
PRINT TIS;: 
RETURN 
REM -—— ELIMINA ESPACIOS --- 
yr Ml LA 
A = LEN (28): 
FOR 1 = 1 TOA: 
21$ = MIDS (26,1,1): 
1F 21$< >" " THEN 22$ 
= 22$ + 718 
NEXT 1: 
16 = 228: 
RETURN 
REM --— BORRA LINEA YT --- 
HTAB 1: 
VTAB YT: 
PRINT LEFTS (BA$,39); 
RETURN 
REM_-— ENTRADA CAMPO --- 
IC = 0: 
C$ = B$(CC): 
IF LO = O THEN RETURN 
IF CC = 0 THEN HTAB XC: 
VTAB YC: 
PRINT MID$ (BU$,1,LO) 
HTAB XC: 
VTAB YC: 
PRINT C$; 
X = XC:2 
Y = YC 
IF MIDS (C$,IC + 1,1) = "." 
AND TP(CC) = 1 THEN IC = IC 
+1: 
X=Xx+1 
GOSUB 1000: 
GOSUB 1200: 
G0SsuB 1100 
IF AO = 5 OR AO = 23 OR AO 
6 OR AO = 18 OR AO = 27 
RETURN 


Ls] 
mn 


IF AO < > 13 THEN 3420 
IF IC = O THEN RETURN 
IF TP(CC) = 1 AND MID$ (C$,IC,1) 


= "," THEN IC = IC - 1 

C$ = MIDS (C$,1,I1C): 

AS = MIDS (BA$,1,LO - 1C):2 
CS =C$ + AS: 

AS = MIDS (BUS,1,LO - IC): 
IF TP(CC) = 1 THEN AS = MIDS (BE 
$,1,L0 - IC) 

HTAB XC + IC: 

PRINT AS: 

RETURN 

IF AO < > 1 THEN 3650 


3650 


3655 


3670 


5010 


5020 
5030 


5040 


5070 


5100 
s110 


5120 


5130 
5140 


5150 
5150 


6030 


6060 
6230 


6250 





IF IC = 0 THEN PRINT BP$;: 
GOTO 3550 

IC = IC - 1: 

ED 

G0TO 3550 

IF IC = LO THEN PRINT BP$;: 
GOTO 3550 

IF AO = O THEN 3350 

IF AO = 19 THEN IC = IC + 1: 
X= X +1: 

G0TO 3545 

CH$ = CHR$ (A0): 

PRINT CHS$;: 

C$ = MID$ (C$,1,IC) + CH$ 
+ MIDS (C$,IC + 2,39): 

IC = IC + 1: 

X= X +1: 

GOTO 3545 

REM. -— MAIN —- 

GOSUB 8000; 

DDS = "": 

XX = 1: 

YY =1 

Dx =C-Cl: 

DY =R- Ri 

GOSUB 1300: 

GOSUB 1200 

IF AO < > 19 THEN 5070 

IF DX = 4 AND C1 < 22 THEN C 
=C+id: 

C1 = Ci + 1: 

GOSUB 8100: 

G0TO 5020 

IF DX< 4 THENC=C + 1: 
GOTO 5020 

IF AOX< > 1 THEN 5100 

IF DX = O AND Ci > 1 THEN C 
=C- 1: 

Ci = C1 - 1: 

GOSUB 8100: 

G0TO 5020 

IF DX >0 THENC=C- 1: 
GOTO 5020 

IF AO > 26 THEN 5130 

IF DY = 9 AND Ri < 6 THEN R 
=R+1: 

Ri =Ri + 1: 

GOSUB 8100: 

GOTO 5020 

IF DY< 9 THENR=R + 1: 
GOTO 5020 

IF AO< > 23 THEN 5160 

IF DY = 0 AND Ri > 1 THEN R 
a Rs 0y 

Ri =Ri - 1: 

GOSUB 8100: 

60TO 5020 

IF DY >OTHENR=R - 1: 
G0TO 5020 

GOTO 16000 

RENA IOPENS== 

PRINT D1$ 

PRINT D1$; "OPEN"¿NF$ + ",D" 
+ DRS;",L";LR + 2 

PRINT DiS$ 

RETURN 

REMESIBEES= 

PRINT D1$ 

PRINT D1$;"READ"¿NF$;",R"zNR 
INPUT AAS 

PRINT D1$ 


8015 
8020 


8100 
8110 


8120 


8130 


8140 
8150 


8160 


8170 


8180 


8190 
8195 


8210 


9000 


go010 


9015 


RETURN 
REN PUT —— 
PRINT D1$ 
PRINT D1S; "WRITE";NF$;",R"¿NR 
PRINT — CHR$ (34) + AAS 
PRINT Di$ 
RETURN 
REM --- CLOSE --- 
PRINT D1$ 
PRINT D1$; "CLOSE";NF$ 
PRINT D1$ 
RETURN 
REM --- INICIALIZA PANTALLA --— 
R$ = o"; 
FOR 1 = 45 TO 79: 
R$ = R$ + CHR$ (1): 
NEXT Is 
INVERSE 
V$ = "FANIMLC" 
Ri= 1: 
Ci = 1: 
R=t: 
Crd: 
FOR I = 2 TO 20: 
HTAB 1: 
VTAB 1: 
PRINT " "j2 
NEXT 1 
NORMAL. : 
HTAB 27: 
VTAB 24: 
PRINT "FANIMLC"; 
REM -—— SCROLL -——- 
INVERSE : 
C2 = Ct: 
HTAB 1: 
VTAB 1: 
PRINT. LEFTS (BA$, 40); 
VTAB 1: 
FOR I = 5 TO 37 STEP 8 
HTAB 1: 
PRINT_C2;: 
02 = C2 + 1: 
NEXT 1 
R2 = Ri: 
FOR I = 2 TO 20 STEP 2 
HTAB 1: 
VTAB 1: 
PRINT — MIDS (R$,R2,1): 
R2=R2+1 
NEXT I:2 
NORMAL 
Y =2: 
FOR 1 = Ri TORi +9 
X= 2: 
FOR J = C1 TOC1 +4 
Ni=1+9% (J - 1): 
AS = MIDS (B$(1),N1,9) 
FOS = LEFTS (A$,1): 
PF$ = MIDS (A$,2,1) 
D$ = RIGHTS (A$,7): 
HTAB X: 
VTAB Y 
PRINT D$: 
X= X+:2 
NEXT J 
Y=Y+2: 
NEXT 1: 
RETURN 
2 EA > 
ER = 0: 
L = LEN (CA$): 
IF L < 3 THEN 9122 
FOR 1 =2T0L- 1: 
CH$ = MID$ (CA$.T.1): 
FOR J = 1 TOS: 
IF OP$(J) = CH$ THEN 9020 
NEXT J,1: 
ER = 1: 


9027 


9030 
9035 


9070 


9072 
9074 


9100 


9102 
9105 


9110 


9115 


9120 


9122 
9123 
9124 
9125 
9127 


9130 
9140 


6o0TO 9122 
CH$ = MID$ (CA$,I + 1,1): 
IF CH$ = "£" OR CH$ = ""*" OR CHS$ 
= "/" THEN ER = 2: 
GOTO 9122 
Ni = VAL ( MIDS (CA$,1,1 - 1)): 
N2 = VAL ( MIDS (CA$,I + 1,40))+2 
ON J GOTO 9035,9040, 9050, 9055, 906 
0: 
CAS = STRS (Ni); 
IF Ni > = 0 THEN CAS = “+" 
+ CAS 
CAS = STR$ (N1):2 
IF N1 > =o0 THEN CAS = "+" 
+ CAS 
GOTO 9122 
Ni = Ni ”* N2: 
GOTO 9027 
IF N2 = O THEN ER = 3: 
GOTO 9027 
Ni = Ni / N2: 
G0TO 9027 
Ni = Ni £ N2: 
GOTO 9027 
Ni = Ni - N2: 
GOTO 9027 
Ni = Ni + N2: 
GOTO 9027 
REM -—-- FORM 2 --- 
ER = 0: 
LO = LEN (FO$): 
IF LO > = 3 THEN 9075 
IF EG = 1 THEN 9192 
GOTO 9162 
FOR OP = 1 TO S: 
PO = 0: 
P1 = 0: 
P2 =0: 
FOR 10 = 2 TO LO - 1: 
CH$ = MIDS (FO$, 10,1): 
CH = ASC (CHS): 
IF CH$ = OP$(0P) AND PO 
= O THEN PO = 10: 
GOTO 9095 
0=0: 
IF (CH = 94 OR CH < 48) 
AND CH < > 46 THEN O 
=1 
IF O = 1 AND PO = O THEN P1 
= 10 
IF O = 1 AND PO > O AND 10 
- PO > 1 THEN P2 = 10: 
GOTO 9105 
NEXT 10: 
IF PO > O THEN 9105 
NEXT OP: 
IF EG = 1 THEN 9192 
GOTO 9162 
IF Pi = 0 THEN Pi = 1: 
GOTO 9115 
CH$ = MIDS (FOS,P1,1): 
IF CH$< > "+" AND CH$ < 
> "-" THEN Pi = Pi +1 
P2=P2- 13 
IF P2 < O THEN P2 = LO 
CA$ = MIDS (FOS,P1,P2 - P1 
+1): 
GOTO 9000 
IF ER = O THEN 9125 
IF EG = 1 THEN 9192 
GOTO 9162 
GOTO 9280 
FO$ = MID$ (FOS,1,P1 - 1) 
+ CAS + MIDS (FOS,P2 + 1,40): 
60TO 9070 
REM_--—- PAR 1 -— 
ER = 0: 
LA = LEN (A$): 
IF LA < 3 THEN 91465 


9145 


9150 
9155 
9150 


9162 
9165 


9175 


9180 
9185 


9190 


9192 


9195 


9210 
9215 


9220 
9225 


9235 


9240 


9241 


9242 


9245 


9250 


9260 
9265 
9270 
9275 


9280 


PI =0:2 
PF =0: 
FOR IA = 1 TO LA: 
CH$ = MIDS (A$,1A,1): 
IF CHS = "(" THEN PI = IA 
IF CH$ = ")" THEN 9185 
NEXT 1A: 
IF PI > O THEN ER = 4: 
GOTO 17035 
FOS = AS: 
GOTO 9065 
AS = FOS 
IF VAL (A$) = O THEN A$ = "0": 
GOTO 17035 
IF LEFTS (A$,1) = "+" THEN AS 
= MID$ (A$,2,80) 
GOTO 17035 
IF PI = O THEN ER = 4: 
GOTO 17035 
PF = 1A: 
FOS = MIDS (A$,PI + 1,PF - PI 
SD 
EG = 12 
GOTO 9065 
EG = 0: 
IF ER< > 0 THEN 17035 
IF PI >3 THEN GOSUB 9220 
IF PIX =1 THEN 9210 
IF AC O AND MIDS (A$,PI - 1,1) 
= "-" THEN PI =PI - 1: 
FOS = "+" + MID$ (FO$,2,80) 
IF ER< >0 THEN 17035 
AS = MIDS (A$.1,PI - 1) + FOS 
+ MIDS (AS,PF + 1,80): 
GOTO 9140 
SEN ELN] 
ER = 0: 
CH$ = MIDS (A$,PI - 1,1): 
IF CH$ < "A" OR CH$ > "2" THEN 
RETURN 
FUS = MIDS (A$,PI - 3,3): 
FOR 1 = 1 TO 6: 
IF FUS = F2$(1) THEN 9240 
NEXT 1: 
ER = S: 
RETURN 
Al = VAL (FOS): 
ON 1 GOSUB 9245,9250,9255, 9260, 92 
65,92731 
CAS = STR$ (A1): 
IF Al > =o0 THEN CAS = "+" 
+ CAS 


EP = 1: 

GOTO 9280 
FOS = CAS: 

PI =PI-3: 
RETURN 

Al = ABS (Al): 
RETURN 

Al = INT (Al): 
RETURN 

Al = COS (Al): 
RETURN 

Al = SIN (A1): 
RETURN 

IF Al < O THEN ER = 6: 
RETURN 

Al = SOR (A1): 
RETURN 

Al = TAN (Al): 
RETURN 

REM_ -— ESP 2 --= 
L = LEN (CAS): 


FOR IC = 1 TO L: 
IF MIDS (CA$,IC,1) = "E" 
THEN 9300 

NEXT 2 

IF EP = 1 THEN EP = 0: 

GOTO 9242 


9297 
9300 


9305 


9310 
9315 
9320 
9325 


9330 


9345 
9355 


9360 


9377 
9405 


9410 


9415 
9420 
9430 


9440 


9430 
9460 


9470 


9480 
9490 
9510 


7610 
9620 


9630 


GOTO 9127 
N$ = MIDS (CA$,2,IC - 2): 
L = LEN (NS) 
FOR I = 1 TOL: 
IF MIDS (NS,1,1) = "." 
THEN P = 1: 
GOTO 9315 
NEXT : 
P=L - 
E = VAL ( MID$ (CA$,IC + 1,3)): 
IF E < O THEN 9355 
DD=L-P: A 
IF DD = O THEN. 9345 
N$ = MIDS (N$,1,P - 1) + 
MID$ (NS,P + 1,80) 
IF DD< =E THEN 9345 
N$ = MIDS (N$,1,P + E - 1) 
+ "," + MIDS (N$,P + E,80):2 
DD = E 
N$ = N$ + MIDS (ZE$,1,E - DD): 
GOTO 9375 
IFP=LTHNP=P+2-L: 
GOTO 9345 
N$ = MIDS (N$,1,P - 1) + 
MIDS (NS,P + 1,80): 
L=1 
NS = MIDS (2E$,1, - E - L 
+ 1) + NS 
N$ = MIDS (NS,1,P - 1) + "." 
+ MID$ (N$,P,80) 
CAS = LEFTS (CA$,1) + N$: 
IF EP = 1 THEN EP = 0: 
GOTO 9242 
GOTO 9127 
REM ==: YAR 1 
24 = AS: 
GOSUB 2900: 
As = 24 
LA = LEN (A): 
1F  LEFTS (A$,3) = "SUM" THEN 
GOSUB 14000: 
GOTO 17035 
FOR I = 1 TO LA 
CH$ = MIDS (A$,1,1):1 
IF CH$ > = "A" AND CH$ 
<= "2" THEN 9440 
NEXT l: 
GOTO 9130 
Pl = 1: 
CS = MIDS (A$,1 + 2,1): 
IF CS > = "A" ANDCS< .= "2" 
THEN 1 = 1 +2: 
GOTO 9430 
IF CH$ > "O" THEN ER = 72 
RETURN 
R= ASC (CHS) - 64: 
C= VAL ( MIDS (AS$,PI + 1,1)): 
IF C = O THEN ER = 71 


BOSUB 9500: 

28 = DS: 

BOSUB 2900 

AS = MIDS (A8,1,PI - 1) + 28 
+ MIDS (AS,PI + 2,80) 


GOTO 9410 
REM_ --—— LECTURA CELDA --- 
Ni=1+9% (C - 1) 


BS = MIDS (B$(R),N1,9) 
FOS = LEFTS (BS,1)3 
PFS = MIDS (B$,2,1) 
DS = RIGHTS (B9,7): 


RETURN 

REM --- ESCRITURA CELDA --- 
Ni=9%(C- 1) 

N2 = Ni + 10 


A1S = MIDS (B$(R),1,N1):2 
A28 = MIDS (B$(R),N2,235) 
DS = LEFTS (D$,7) 

IF FOS = "1" THEN DS = DS + 


MIDS (BA$,1,7 — LEN (D$)) 
9650 IF FOS = "2" THEN DS = MIDS (BAS 
,1,7 - LEN (D$)) + DS 
9660 BS(R) = ALS + FOS + PFS + DS 
+ A2$: 
RETURN 
14000 REM -—-—- SUM -— 
14010 ER = 0: 
FOR 1 =S5TOLA- 1 
14020 IF MIDS (A$,1,1) = "." 
z THEN 14040 
14030 NEXT l: 
ER = 10: ; 
AS = "ERR=10": 
RETURN 
14040 A1$ = MIDS (A$,5,1 - 5): 
A26 = MIDS (A$,I + 1,LA - 1 
- 1) 
14060 RIS = LEFTS (A1$,1): 
RFS = LEFTS (A28,1) 
14080 CI = VAL ( MIDS (A1$,2,2)):2 
CF = VAL ( MIDS (A2$,2,2)) 
14090 RI = 0: 
RF = 0: 
Al=0 
14100 FOR I = 1 TO 15: 
CH$ = MIDS (R$,1,1) 
14110 IF CH$ = RIS THEN RI = 1 
14120 IF CH$ = RFS$ THEN RF = 1 
14130 NEXT 1 
14140 IF RI=O00RRF=00RCI1=0 
OR CF = 0 THEN ER = 10: 
AS = "ERR=10": 
RETURN 
14145 IF RI < > RF ANDCI< >CF 
THEN RI = 03 
GOTO 14140 
14150 IF CI = CF THEN 14190 
14160 R = Rl: 
FOR 1 = CI TO CF: 
C=1I 
14170 GOSUB 9500: 
Al = Al + VAL (DS) 
14180 NEXT 1: 
GOTO 14220 
14190 C = Cl: 
FOR 1 = RI TO RFs 
R=l 
14200 GOSUB 9500: 
Al = Al + VAL (DS) 
14210 NEXT 1 
14220 AS = STRS (Al): 
RETURN 
15000 REM --- COPIA --- 
15010 HTAB 112 
VTAB 24: 
INVERSE + 
PRINT "(ESC PARA SALIR)"; 
15020 NORMAL 1 
HTAB 1: 
VTAB 22: 
LO = 2 
15030 PRINT "LINEA INICIAL 2": 
XC = 17: 
YC = 22 
15040 BS(0) = ""; 
CC = 0: 
GOSUB 3500: 
IF AO = 27 THEN 15150 
15050 RI = VAL (CS): 
YT = 22: 
GOSUB 3000 
15060 HTAB 1: 
VTAB 22: 
PRINT "LINEA FINAL ?" 
15070 XC = 15: 
G0SUB 3500: 
IF AO = 27 THEN 15150 
15080 RF = VAL (08): 


HTAB 1: 
VTAB 22 
15090 PRINT "LINEA PRINC. COPIA?": 
xC = 20 
15100 GOSUB 3500: 
IF AO = 27 THEN 15150 
15110 RC = VAL (CS): 
6G0SUB 3000 
15120 IF RIX< =OO0RRFX< =O00R RC 
< =O00RRI>150RRF > 15 
OR RC > 15 OR RI > RF THEN 15020 


15130 FOR I = RI TO RF: 
IF RC > 15 THEN 15145 
15140 BS(RC) = BS(1)13 
RC =RC+1 
15145 NEXT l: 
GOSUB 8000 , 
15150 GOSUB 3000: 
YT = 24: 
GOSUB 3000: 
RETURN 
16000 REM --- COMANDOS --- 
16010 FOR I = 1 TO 9 
15020 IF CO(I) = AO THEN 16035 
16030 NEXT 1: 
GOTO 5020 
16035 GOTO 16500 
16040 ON 1 GOSUB 17500, 18000, 18500, 2000 
0,30000, 30500, 15000 
16050 HTAB 27: 
VTAB 24: 
NORMAL +: 
PRINT "FAN IMLC"; 
14060 GOTO 5020 
16500 REM --- PRESENTA COMANDOS --- 
16510 X = 27 + (1 - 1) £ 2: 
HTAB X: 
VTAB 24 
16520 FLASH 
16530 PRINT MIDS (VS,1,1)5: 
NORMAL: 
VTAB 21: 
GOTO 14040 
17000 REM --- CALCULO --- 
17010 PF = VAL (PFS): 
IF PF = 0 0R FOS < > "2" THEN 
RETURN 
17030 AS = FS(PF)2 
RR =R: 
CC = C:z 
GOTO 9400 
17035 L = LEN (A8)s 
IF ER< >0 THEN AS = "ERR=" 
+ STR$ (ER) 
GOTO 17110 
17040 IF L < 8 THEN 17110 
17050 IF VAL (A$) = INT ( VAL (A$)) 
THEN AS = "EEEEEEE": 
GOTO 17110 
17060 FOR 1 = L TO 1 STEP. - 1 
17070 CH$ = MIDS (A$,1,1): 
IF CH$ = "," THEN 17090 
17080 NEXT 1: 
ERR = 10: 
RETURN 
17090 IF 1 > 8 THEN AS = "EEEEEEE": 
GOTO 17110 
17100 A$ = LEFTS (AS,7) 
17110 R = RR: 
C = CC:z 
GOSUB 9500: 
DS = As 
17120 GOSUB 9400: 
RETURN 
17500 REM --- INTRODUCCION FORMULA --- 
17510 FOR I = 1 TO 8: 
IF FS(1) = "" THEN 17530 
17520 NEXT 1 


17530 
175353 
17537 


17540 


17550 


173535 
17356 
17560 


18000 
18005 


18010 


18020 


18030 


18040 


18050 


18500 
18510 


18520 


18525 


18530 


18535 


18540 


18550 


19000 
19010 
19020 


19030 


PF = VAL (PFS): 

IF PF = 0 THEN PF = l:z 

PF$ = STR$ (1) 

FOS = "2" 

B$(0) = FS(PF): 

cc =0 

HTAB 1: 

VTAB 22: 

PRINT "FORM. " 

LO = 30: 

XC = 82 

YC = 22: 

CC = 0: 

GOSUB 3500: 

26 = C$: 

GOSUB 2900 

IF 26 = "" THEN PF$ =-""0" 

GOSUB 9400 

FS(PF) = 26: 

YT, = 22: 

GOSUB 3000: 

BSO) ="": 

GOSUB 17000: 

RETURN 

REM -—- INTROD. ALFANUMERICA --- 

PF = VAL (PFS): 

ESPE) = "" 

PF$ = "o"; 

FOS = "1"; 

cc = 0: 

2$ = D$: 

GOSUB 2900: 

BS(0) = 28" 

HTAB 1: 

VTAB 22: 

PRINT_ "DATO..." 

LO = 7: 

XC.=.7:3 

YC = 22: 

GOSUB_3500 

Dé = C$: 

GOSUB 9400 

YT = 22: 

GOSUB 3000: 

RETURN % 

REM _-—- INTROD. NUMERICA -: +: 

FOS = "2": 

HTAB 1: 

VTAB 22: 

PRINT "DATO. " 

CC = 0: 

7$ = DS: 

GOSUB 2900: 

B$(0) = 76: 

LO = 7: 

XC =7: 

YC = 22: 

GOSUB 3500 

76 = C6: 

GOSUB 2900: 

CS = 25 

FOR 1 = 1 TO LEN (C$): 
CH$ = MIDS (C$,1,1) 
IF_(CH$ < "0" OR CH$ > "9") 
AND CH$ < > "." AND CHS 

2,7 THEN, PRINT BP$;: 

GOTO 18520 

NEXT 1: 


"DS = C$: 


GOSUB 9600: 

GOSUB 1300 

YT_= 22: 

GOSUB 3000: 

RETURN 

REM -— INSER. LINEAS —- 

FOR I = 15 TOR + 1 STEP - 1 
B$(1) = B$(I - 1): 

NEXT 1 

BS(R) = "2 


FOR 1 = 1 TO 6: 
BS$(R) = B$(R) + BAS 
19040 NEXT I: 
GOSUB 8100: 
RETURN 
19500 RETURN 
20000 REM --- INSER. L y C -——- 
20010 HTAB 1: 
VTAB 24: 
NORMAL: 
PRINT "L CE"; 
20020 GOSUB 1200: 
IF AO < >76. AND AO < > 67 
AND AO <_ > 69 THEN 20020 
20030 VTAB 24: 
INVERSE : 
IF AO = 76 THEN HTAB 1: 
PRINT_ "L"; 
20040 IF AO = 67 THEN HTAB 3: 
PRINT_"C"; 
20050 IF AO = 69 THEN 20080 
20060 IF AO = 76 THEN GOSUB 19000: 
GOTO 20080 
20070 GOSUB 20500 
20080 NORMAL : 
YT = 24: 
GOSUB 3000: 
RETURN 
20500 REM --- INSER. COLUMNAS --- 
20510 K =C: 
FOR IC = 25 TO K STEP - 1 
20520 C= 1C: 
GOSUB 9500: 
C=IC+1 
20530 GOSUB 9600: 
NEXT 1C 
20540 PF$ = "0": 
FOS = "1": 
DS =" y 
C=K 
20550 GOSUB 9600: 
GOSUB 8100: 
RETURN 
30000 REM --- DISCO --- 
30010 HTAB 1: 
VTAB 24: 
INVERSE + 
PRINT "(ESC PARA SALIR)"; 
30020 NORMAL : 
HTAB 1: 
VTAB 22: 
LO = 3 
30030 PRINT "CELDA INICIAL ?"s 
XC = 17: 
YC = 22 
30040 B$(0) = "": 
CC = 0: 
GOSUB 3500: 
IF AO = 27 THEN 30260 
30045 RIS = LEFTS (C$,1): 
CIS = RIGHTS (C$,2) 
30050 YT = 22: 
GOSUB 3000: 
HTAB 1: 
VTAB 22 
30060 PRINT "CELDA FINAL 7?"s 
XC = 15 
30070 GOSUB 3500: 
IF AO = 27 THEN 30260 
30080 RF$ = LEFTS (C$,1): 
CF$ = RIGHTS (C$,2) 
30083 CI = 0: 
CF = 0: 
RI =0: 
RF =0 
30090 FOR 1 = 1 TO 15: 
IF MIDS (R$,1,1) = RIS 
THEN RI = 1 
30100 IF — MIDS (R$.1,1) = RFS$ 


THEN RF = 1 
30110 NEXT 1 
30120 FOR 1 = 1 TO 26: 
IF VAL (CI$) = I THEN CI 
=1 
30130 IF VAL (CF$) = I THEN CF 
= 1 
30140 NEXT l: 
IF CF=00RCI=00RRI=0 
OR RF = O THEN GOSUB 3000: 


GOTO 30010 
. 30150 NF$ = "TTBB": 
LR = 234: 
GOSUB 000 
30160 FOR 1 = 1 TO 15: 
ARS = "" 
30170 FOR J = 1 TO 26 
30180 IF I< RIORJ<CIOR 1 
> (RF) OR J > CF THEN ARAS 
= ARAS + " " 
GOTO 30210 
30190 R= 1: 
C=J: 
GOSUB 9500 
30200 AAS = AAS + FOS + PFS 
+ DS 
30210 NEXT J: 
NR = 1: 
GOSUB 400 


30220 NEXT 1 
30230 FOR 1 = 1 TO 9: 
AAS = FS$(I) 
30240 NR = 15 + l: 
GOSUB 5400: 
NEXT 1 
30250 GOSUB 6600 
30260 YT = 24: 
GOSUB 3000: 
YT = 22: 
GOSUB_ 3000 
30270 GOSUB 8000: 
RETURN 
30500 REM --- LOAD --- 
30510 NF$ = "TTBB": 
LR = 234: 
GOSUB 4000 
30520 FOR I = 1 TO 15: 
NR = 1: 
GOSUB 6200 
30530 B$(1) = AAS: 
NEXT 1 
30540 FOR IC = 1 TO 9: 
NR = IC + 15: 
GOSUB 6200 
30550 24 = AAS: 
GOSUB 2900: 
F$(IC) = 2$ 
30560 NEXT IC: 
GOSUB 5400 
30570 GOSUB 8000: 
RETURN 


BS(«) 
OP$(«) 


FZ(«) 


CO(«) 


FS(«) 





RELACION DE LAS PRINCIPALES VARIABLES - APPLE 


= matriz de las líneas para el tablero 

= matriz con los símbolos de los 
Operadores ( 1 ,/,«,+,-—) 

= matriz con las funciones reconoci- 
das (ABS,INT,COS,SIN,SQR,TAN) 

= matriz teclas comando 
reconocidas 

= matriz de las fórmulas introduci- 
das 

= beep de señalización 

=unidad seleccionada 

= Cadena para comunicaciones 
disco 

= coordenadas del cursor 

= valor de la tecla pulsada 

= coordenadas de la celda actual 

= contenido de la celda actual 


PFS 
c$ 


LO 

R,C 

ER 

AS 
RI,RF,RC 


FOS 
Cl,CF,RF 
NR 

NFS 


AAS 
LR 


= flag para cálculo 

=cadena de entrada (subrutina 
3500) 

= longitud prevista para C$ 

= línea y columna en el tablero 

= flag de error 

= resultado del cálculo 

= parámetros para comando “C” 
(subrutina 15000) 

= flag para el tipo de datos (1 = alfa- 
numéricos; 2 = numéricos) 

= parámetros para el comando “M” 
(subrutina 30000) 

= registro actual 

= fichero datos 

= Cadena l/O con disco 

= longitud registro 





El tablero electrónico/Versión Philips VG 8010 


4 
5 REM TABLERO ELECTRONICO 
6 REM 
7  LOCATE 0,0,0: KEY OFF 
8 CLEAR 8000: DEF INTB-Y. 
9 Hi$="E,G.S." 

10 DATA"9", 0/0, 0g0, nan, go 

20  DATA"ABS","INT","COS","SIN","SOR","TAN" 

30 FOR I=i TO S:READ OP$(1): NEXT 

335 DATA 70,65,78,73,67 

40 FOR I=1 TO 6:READ FZ$(1):NEXT 

50 FOR I=1 TO S:READ CO(I):NEXT 

60  GOSUBSOO0: GOTOSO0O 

500 REM 

330  SCREENO:WIDTH40: CLS: BP$="0D£L32CDE" 

540  BAS=STRING$ (40,32) : BUS=STRING$(40,"_"):DIMB$(15) 

550 FOR I=1 TO 15:FOR J=1 TO 24:B$(1)=B$(1)+LEFTS(BAS, 10) ¿NEXT J,1 

570 RETURN 

1000 REM --- ENCIENDE CURSOR --- 

1010 LOCATEX, Y, 1: RETURN 

1100 REM --- APAGA CURSOR --- 

1110 LOCATE X,Y,0: RETURN 

1200 REM --- ESPERA CARACTER --- 

1210 A$=INKEYS: IFA$=""THEN1210 

1220 AO=ASC (A$) 1 GOSUB1 100: RETURN 

1300 REM --- enciende celda --- 

1310 LOCATEXX-1,YY-1:PRINTDD$ 

1320 XX=DXx8+2: YY=DYx2+2 

1330 GOSUB9500: IF PF$<>"0" AND PF$<>" " THEN GOSUB 17000 

1340 LOCATE XX-1,YY-1:PRINT D$:X=XX-1:Y=YY-1:G0SUB 1000:DD$=D$ 

1350 RETURN 

2130 PRINT F$(1) 

2700 REM --- centra en pantalla --- 

2730 XT=(42-LEN(TIS))/2:LOCATEXT, YT: PRINTTIS; : RETURN 

2900 REM --- elimina espacios -—-- 

2930 226="":A=LEN(2$): FOR I=1 TO A:Z1$=MIDS$(2$,1,1):1F Z18<>" " THEN Z2$=22$+21$ 
2950 NEXT: 2$=228: RETURN 

3000 REM --- borra linea YT --- 

3010 LOCATEO, YT: PRINTSPACES (39) ; ¿ RETURN 

3500 REM --- entrada campo --- 

3530 1C=0:C0$=BS (CC): IF LO=0 THEN RETURN 

3535 IF CC=0 THEN LOCATE XC,YC:PRINT MID$(BUS,1,LO) 

3537 LOCATE XC,YC:PRINT C$; 

3540 X=XC: Y=YC 

33943 REM === 
33550 GOSUB 1000:GOSUB 1200:GOSUB 1100 

3560 IF A0=30 OR AO=31 OR A0=27 THEN RETURN 

3580 IF A0<>13 THEN 3620 

3582 IF 1C=0 THEN RETURN 

3590 C$=MIDS(C$,1, IC): A$=MID$ (BAS, 1,LO-IC) :C$=C$+A$: AS=MID$ (BUS, 1,LO-IC) 

3605 LOCATEXC+IC, YC: PRINTAS: RETURN 

3620 IF A0<>29 THEN 3450 

3630 IF IC=0 THEN PLAYBP$:GOTO 3550 

3640 IC=IC-1:X=X-1:GOTO 3550 

3650 IF IC=LO THEN PLAYBP$:GOTO 3550 

3655 IF A0=0 THEN 3550 

3660 IF A0=28 THEN 1C=1C+1:X=X+1:GOTO 3545 

3670 CH$=CHR$ (AO) : PRINTCH$; :C$=MID$(C$, 1, IC) +CH$+MID$ (CS, 1C+2,39) : IC=IC+1:X=X+1:G0TO3545 
5000 REM -—-- MAIN --- 

5010 GOSUB 8000:DD$="":XX=1:YY=1 

5020 DX=C-C1:DY=R-R1 

5030 GOSUB 1300:GOSUB 1200 

5040 IF A0<>28 THEN 5070 

5050 IF DX=4 AND C1<22 THEN C=C+1:C1=C1+1:GOSUB 8100:GOTO 5020 

5060 IF DX<4 THEN C=C+1:G0TO 5020 y 

5070 IF A0<>29 THEN 5100 

5080 IF DX=0 AND C1>1 THEN C=C-1:C1=C1-1:G0SUB B100:GOTO 5020 

5090 IF DX>0 THEN C=C-1:GOTO 5020 

5100 IF A0<>31 THEN 5130 

5110 IF DY=9 AND Ri<ó THEN R=R+1:Ri=R1+1:GOSUB 8100:GOTO 5020 

5120 IF DY<9 THEN R=R+1:GOTO 5020 








5130 
5140 
5150 
5) 
8000 
8010 
Bo15 
8020 
8025 
8100 
B11o 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8195 
8200 
8210 
8220 
9000 
9004 
9008 
9016 
9020 
9024 
9028 
9032 
9036 
9040 
9044 
9048 
9052 


IF AO<>30 THEN 5160 

IF DY=0 AND R1>1 THEN R=R-1:R1=R1-1:GOSUB B100:GOTO 5020 

IF DY>0 THEN R=R-1:GOTO 5020 

GOSUB 14000:GOTO 5020 

REM — inicializa pantalla -— 

R$="":FOR I=65 TO 79:R$=R$+CHR$ (1) : NEXT 1 

V$="FANIC" 

Ri=1:C1=1:R=1:C=1:FOR 1=2 TO 20:LOCATE 0, I-1:PRINT" |";:NEXTI 
LOCATEO, 23:PRINTH1$;TAB(26)"F A N 1 C"; 

REM --- SCROLL --- 

C2=C1:LOCATEO, 0: PRINTLEFTS (BAS, 40); 

LOCATEO, 0: FORI=5TO37STEP8 . 
LOCATEI-5,0: PRINT"—"; : PRINTUSING"4H"5C2; ¿PRINT"——"5:02=02+1:NEXTI 
R2=R1:FORI=2T020STEP2 

LOCATEO, 1-1:PRINTMIDS (R$,R2, 1): R2=R2+1 

NEXT 1 

Y=1:FOR I=Ri TO R1+9 

X=1:FOR J=C1 TO C1+4 

Ni=1+9% (J-1) :A$=MID$ (B$(1),N1,9) 

FOS=LEFTS (AS, 1): PF$=MID$(A$,2, 1) 

D$=RIGHTS (A$,7):LOCATE X, Y 

PRINTDS: X=X+8: NEXTJ 

Y=Y+2: NEXTI: RETURN 

REM === 

REM CALCULO 

REM _--==- 

L2=LEN(A$):C$="": FOR I=1 TO L2:CH$2MID$ (A$,1,1) 

IFCH$<>" "THENC$=C$+CH$ 

NEXTI:A$=C$:C$="" 

A$="+"+A$:G0T09140 

REM -— CAL 2 --- 

ER=0:L=LEN (CAS) + IFL<3THENRETURN 

FOR 1=2 TO L-1:CH$=MIDS(CA$,1,1):FOR JJ=1 TO 5: 1F OP$(JJ)=CH$ THEN 9048 
NEXTJJ, 1:ER=1: RETURN 

CH$=MID$ (CAS, 1+1,1): 1F CH$="*x" OR CH$=""" OR CH$="/" THEN ER=2: RETURN 
Z1=VAL (MIDS(CA$,1,1-1)):22=VAL (MID$(CA$, 1+1,40)) : ONJIGOSUBIOSO, 9064, 9072,9076, 9080: CA$=STR$ 


(21) 1 1FZ1>=0THENCA$="+"+MID$ (CAS, 2, 40) 


9056 
9060 
9064 
9068 
9072 
9076 
9080 
9084 
9088 
9092 
9096 


RETURN 
71221722: RETURN 

IF_22=0 THEN ER=3: RETURN 

21=21/22: RETURN 

71221822: RETURN 

Z1=21-22: RETURN 

Z1=21+22: RETURN 

REM --- FORM 2 --- 

ER=0 

FOROP=1705:LO=LEN(FOS) :KK=2: IFLO=1THENKK=1 

PO=0:P1=0:P2=0: FORIO=kKTOLO-1:CH$=MID$ (FOS, 10, 1) : CH=ASC (CH$) : IFCH$=0PS (OP) ANDPO=OTHENPO=10: 


60TO09112 


9100 
9104 
9108 
9112 
9116 
9120 
9124 
9128 
9132 
9136 
9140 
9144 
9148 
9152 
9156 
9160 
9164 
9168 
9172 
9176 
9180 
9184 


0=0: IF (CH=940RCH< 48) ANDCH< >46THENO=1 

IFO=1ANDPO=OTHENP1=10 

IFO=1ANDPO >0ANDIO-PO >1THENP2=10: 60709120 

NEXTIO: IFPO>OTHEN9120 

NEXTOP : RETURN 

IFP1=0THENP1=1:G0T09128 

CH$=MID$ (FOS,P1, 1): IFCHS<>"+"ANDCHS<>"-"THENP1=P1+1 
P2=P2-1: IFP2<OTHENP2=L0 

CAS=MID$ (FOS,P1,P2-P1+1) : GOSUE9O36: IFER< >OTHENRETURN 
GOSUB9256: FO$=MIDS (FOS, 1,P1-1)+CASHMIDS (FOS,P2+1,40):GOTO?088 
REM — PAR 1 --- 

ER=0:LA=LEN(AS) : IFLACITHEN9164 

P1=0: PF=0: FORIA=1TOLA:CH$=MIDS (AS, IA, 1): IFCH$=" ("THENPI=IA 
IFCH$=") "THEN9180 

NEXTIA: IFPI >OTHENER=4: RETURN 

FO$=A$: GOSUB9O84: A$=FO$ 

IFVAL (AS) =OTHENA$="0" 

IFMIDS (A$,2,1)=". "THENAS=LEFTS (A$,1)+"0"+MIDS (AS, 2,80) 
IFLEFTS (A$,1)="+"THENAS=MIDS (AS, 2, 80) 

RETURN 

IFPI=OTHENER=4: RETURN 

PF=1A:FOS=MIDS (A$,PI+1,PF-PI-1) :GOSUB9084: IFER< >OTHENRETURN 


9188 
9192 
919 
9200 
9204 
9208 
9212 
9216 
9220 
9224 


IFPI>3THENGOSUB9208 

IFPI<=1THEN9200 

IFACOANDMIDS (A$,PI-1,1)="-"THENPI=PI-1:FO$="+"+MID$(FO$, 2,80) 

IFER< >OTHENRETURN 

AS=MIDS (AS, 1,PI-1)+FO$+MIDS (AS, PF+1,80) :GOTO9144 

REN: -—— FUN 1. —— 

ER=0:CH$=MIDS (A$,PI-1,1): IFCH$<"A"DRCH$>"Z"THENRETURN 

FUS=MIDS (A$,PI-3, 3) : FORI=1T06: IFFUS=FZ$ (1) THEN9224 

NEXTI:ER=5: RETURN 

ZA=VAL (FO$) : ONIGOSUB9228, 9232, 9236, 9240, 9244, 9252: FOS=STR$ (74) : CA$=F0$: GOSUB9256: FOS=CAS$: IF 


ZA>=OTHENFOS=MIDS (FOS, 2, 40) : PI=PI-3: RETURNELSEPI=PI-3: RETURN 


9228 
9232 
9236 
9240 
9244 
9248 
9252 
9256 
9260 
9244 
9268 


ZA=ABS (ZA) : RETURN 
ZA=INT (ZA) : RETURN 

ZA=COS (ZA) : RETURN 
ZA=SIN(ZA) : RETURN 
TFZA<OTHENER=6: RETURN 
ZA=SOR (ZA) : RETURN 

ZA=TAN (ZA) : RETURN 
REMATES 

Z0$=STRING$ (64, "0") :L=LEN(CA$) 
FORIC=1TOL: IFMID$(CA$,IC,1)="E"THEN9272 
NEXT: RETURN 


9272 N$=MID$ (CA$, 2, 1C-2) :L=LEN(N$) 


9276 
9280 
9284 
9288 
9292 
929 


FORI=1TOL: IFMIDS (N$, 1,1)=". "THENP=1:G0T09284 
NEXT: P=L 

E=VAL (MID$ (CAS, IC+1,3)): IFECOTHEN9316 
DD=L-P: IFDD=0THEN9308 

NS=MIDS (NS, 1,P-1)+MIDS(NS,P+1,80) 
IFDD<=ETHEN9308 


9300 N$=MIDS (NS, 1,P+E-1)+"."+MIDS(N$, P+E, 80) 
9304 DD=E 


9308 


N$=N$+MID$ (20%, 1,E-DD) 


9312 GOTOP332 


9316 


IFP=LTHENP=P+2-L:G0T09324 


9320 N$=MID$ (NS, 1,P-1)+MIDS(N$,P+1,80):L=1 


9324 


N$=MID$ (205, 1,-E-L+1)+N$ 


9328 N$=MIDS (N$, 1,P-1)+", "+MIDS (N$, P, 80) 


9332 


CAS=LEFTS (CAS, 1)+N$ 


9336 RETURN 


9400 
9403 
9410 


REM === VAR 1 === 
Z$=A$: GOSUB2900: A$=Z$ 
LA=SLEN(A$) : IFLEFTS (AS, 3) ="SUM"THENGOSUB14000: RETURN 


9415 FORI=1TOLA 


9420 


CH$=MID$ (AS, 1,1): IFCH$>="A"ANDCH$<="Z"THEN9440 


9430 NEXTI:G0T09000 


9440 
9450 
9460 
9470 
9480 


PI=1:C$=MID$(A$, 1+2,1): 1FC$>="A"ANDC$<="Z" THEN I=1+2:GOTO 9430 
IFCH$>"0"THENER=7: RETURN 

R=ASC (CH$) -64:C=VAL (MIDS(A$,PI+1,1)): IFC=OTHENER=7: RETURN 
BOSUBISOO: 2$=D$: GOSUB2900 

A$=MIDS (A$,1,PI-1)+2$+MID$(A$,PI+2,80) 


9490 GOTO9410 

9500 REM --- LECTURA CELDA --- 

9310 Ni=1+9X(C-1):B9=MID$(BS(R),N1, 9) 

9520 FOS=LEFTS (BS, 1) :PF$=MID$(B$,2,1) 

9530 D$=RIGHTS (B$, 7) : RETURN 

9600 REM --- ESCRITURA CELDA --- 

9610 N1=9k (C-1):N2=N1+10 

9620 A1$=MIDS (B$(R),1,N1) :A29=MIDS (BS (R),N2, 235) 
9630 D$=LEFTS(D$,7) á 


9640 
9650 


IFFO$="1"THEND$=D$+MID$ (BA$,1,7-LEN(D$)) 
IFFO$="2"THENDS$=MID$ (BAS, 1,7-LEN(D$) ) +DS 


96560 BS (R)=A18+F0$+PF$+D$+A2$: RETURN 


14000 
14010 
14020 
14030 
14040 
140650 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14145 
14150 
14160 
14170 


REM --- SUM --- 

ER=0: FORI=5TOLA-1 
IFMIDS$(A$,1,1)=","THEN14040 

NEXT: ER=10:A$="ERR=10": RETURN 

A1S=MIDS (A$,5, 1-5) :AZ$=MIDS (AS, I+1,LA-I-1) 
RI$=LEFTS (A1$, 1): RFS=LEFTS(A2$, 1) 

CI=VAL (MID$ (A1$,2,2)):CF=VAL (MID$(A2$,2,2)) 
RI=0:RF=0:A1=0 

FOR I=1 TO 15:CH$=MIDS(R$, 1,1) 

IF CH$=RI$ THEN RI=1 

IF CH$=RF$ THEN RF=1 

NEXT 1 

IF RI=0 OR RF=0 OR CI=0 OR CF=0 THEN ER=10:A$="ERR=10": RETURN 
IF RIC>RFANDCI<>CFTHENRI=0: GOT014140 

IF CI=CF THEN 14190 

R=RI:FOR 1=C1 TO CF:C=1 

GOSUB 9500: A1=A1+VAL (D$) 


14180 
14190 
14200 
14210 
14220 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
15070 
15080 
15090 
15100 
15110 
15120 
15130 
15140 
15150 
15000 
16010 
16020 
16030 
16035 
16040 
16050 
16060 
165300 
16510 
16520 
16530 
17000 
17010 
17030 
17035 
17040 
17050 
17060 
17070 
17080 
17090 
17100 
17110 
17120 
17500 
17510 
17520 
17530 
17335 
17537 
17540 
17550 
17355 
17356 
17560 
18000 


19040 
20000 
20010 


NEXT I:GOTO 14220 

C=CI:FOR I=RI TO RF:R=1 

GOSUB 9500: A1=A1+VAL (D$) 

NEXT 1 

AS$=STR$ (A1) : RETURN 

REM -—— COPIA —- 

LOCATEO, 23:PRINT"(ESC para salir)"; 

LOCATEO, 21:L0=2 

PRINT"LINEA INICIAL ?":XC=15:YC=21 
B$(0)="":CC=0:GOSUB 3500: IF A0=27: THEN 15150 
RI=VAL (C$) : YT=21 : GOSUB3000 

LOCATEO, 21:PRINT"LINEA FINAL 2?" 

XC=13: GOSUB3500: IFAO=27THEN15150 

RF=VAL (C$) :LOCATEO, 21 

PRINT"LINEA PRINCIPIO COPIA?":XC=23 

GOSUB 3500: IF A0=27 THEN 15150 
RO=VAL (C$) : GOSUB3000 

TFRI<=00RRF<=00RRC<=00RR 1 >1SORRF >150RRC>150RRI >RFTHEN15020 
FORI=RITORF:B$(RC)=B$ (1) 

RC=RC+1: NEXT 1: GOSUB8O00 

YT=21:G0SUB3000: YT=23: GOSUB3000: RETURN 

REM --- COMANDOS --- 

FOR I=1 TO 9 

IF CO(1)=A0 THEN 16035 

NEXT 1: RETURN 

GOSUB 16500 

ONIG0SUB17500, 18000, 18500, 20000, 15000 

LOCATEO, 23:PRINTH1$;TAB(26)"F AN 1 C"; 

RETURN 

REM --- PRESENTA COMANDO --- 

LOCATE 26,23 

REM 

PRINTSTRING$ (182-2," ")+MIDS(VS, 1,1)+STRINGS (10-1X2," ");2LOCATEO, 0: RETURN 
REM --- CALCULO --- 

PF=VAL (PFS) : IFPF=00RFOS<>"2"THENRETURN 

A$=F$ (PF) : RR=R: CC=C: GOSUB9400 

L=LEN(A$) : IFER< >OTHENAS="ERR="+STR$ (ER) :G0TO17110 
IFL<BTHEN17110 

IFVAL (A$)=INT (VAL (A$)) THENA$="EEEEEEE":G60TO017110 
FOR I=L TO 1 STEP-1 

CH$=MIDS (AS, 1,1): IFCH$=". "THEN17090 

NEXTI:ER=10: RETURN 
IFI>8THENAS="EEEEEEE":GOTO17110 

AS=LEFTS (AS, 7) 

R=RR:0=CC+ GOSUBISOO: D$=A$ 

GOSUB 9600: RETURN 

REM --- INTRODUCCION FORMULA --- 

FORI=1T08: 1FF$(1)=""THEN17530 

NEXT 

PF=VAL (PF$) : IFPF=OTHENPF=1:PF$=RIGHTS (STR$(1),1) 
FO0$="2" 

BS (0)=F$ (PF) :CC=0 

LOCATEO, 21:PRINT"FORM, 2" 

LO=30: XC=7: YC=21 : CC=0: GOSUB3500: 2$=C$ : GOSUB2900 
1FZ$=""THENPF$="0" 

GOSUB9£00 

FS (PF)=Z$: YT=21: GOSUB3000: B$ (0)=""+GOSUB17000: RETURN 
REM--— INTRODUCCION ALFANUMERICOS 

PF=VAL (PF$):FS(PF)="" F 
PF$="0":F0$="1":CC=0: 2$=D$: GOSUB2900:B$ (0)=Z$ 
LOCATEO, 21:PRINT"DATO: " 

L0=7: XC=6: YC=21: GOSUB3300 

D$=C$: GOSUB9400 

YT=21: GOSUB3000: RETURN 

REM --—— INTRODUCCION NUMERICOS 

FO0$="2":LOCATEO, 21:PRINT"DATO: " 

CC=0: 2$=D$: GOSUB2900:B$ (0) =Z$:L0=73 XC=6: YC=21: GOSUB3500 
7$=C$: GOSUB2900: C$=2$ 

FOR I=1 TO LEN(CS) :CH$=MID$(C$, 1,1) 

IF (CH$<"0"DRCH$>"9") ANDCH$< >". "ANDCH$<>"-"THEN PLAYBP$:GOTO 18520 
NEXT 1:D$=C$:GOSUB 9600:GOSUB 1300 

YT=21:G0SUB 3000: RETURN 

REM -— INSERCION LINEAS --—— 

FORI=15TOR+1STEP-1 

B$(1)=B$ (1-1) :NEXTI 

BS(R)="":FOR I=1 TO £5:B$(R)=BS (R)+BAS 

NEXT 1:GOSUB 8100: RETURN 

REM -—- INSERCION LINEA Y COLUMNA 

LOCATE 0.21:PRINT"L C E"z 


20020 GOSUB 1200: IF A0<> 76 AND A0<>467 AND A0<>69 THEN 20020 
20030 IF A0=76 THEN LOCATE 0,21:PRINT"* L 4"; 
20040 IF A0=67 THEN LOCATE 0,21:PRINT"k C 4"; 
20050 IF A0=69 THEN 20080 

20060 IF AO=76 THEN GOSUB 19000:GOTO 20080 
20070 GOSUB 20500 

20080 YT=21:GOSUB 3000: RETURN 

20500 REM --- INSERCION COLUMNAS --- 

20510 K=C:FOR 1C=2S TO K STEP-1 

20520 C=IC:GOSUB 9500: C=IC+1 

20530 GOSUB 9600:NEXT IC 

20540 PF$="0":FO$="1":D$=SPACES (7) : C=k 

20550 GOSUB 9600:GOSUB 8100: RETURN 


RELACION DE LAS PRINCIPALES VARIABLES - PHILIPS VG 8010 


BS(x) = matriz de las cadenas para el tablero 
OP$(«) = matriz con los símbolos de los operadores ( 1 ,/,«*,+,-) 
FZ(«) = matriz con las funciones reconocidas (ABS,INT,COS,SIN,SQR,TAN) 
CO(«) = matriz teclas comando reconocidas 
FS(x) = matriz de las fórmulas introducidas 
= beep de señalización 
= Coordenadas del cursor 
= valor de la tecla pulsada 
= coordenadas de la celda actual 
= contenido celda actual 
flag para cálculo 
cadena de entrada (subrutina 3500) 
= longitud prevista para C$ 
=línea y columna en el tablero 
= flag de error 
= resultado del cálculo 
= parámetros para comando “C” (subrutina 15000) 
= flag para el tipo de datos (1 = alfanuméricos; 2 = numéricos) 





ESCRITURA DE UNA CELDA 


Entradas: 
L,C = Coordenadas en la celda a escribir 
D$, FOS, PF$ 


Número 





Gestión de los comandos. La subrutina de gestión 
de los comandos debe adquirir el carácter que repre- 
senta la función deseada, comprobar su existencia en- 
tre las previstas (matriz CO(+)) y activar la correspon- 
diente subrutina de desarrollo. 

En el diagrama de flujo, estas subrutinas no se han 
representado porque su número y su variedad depen- 
den de la máquina utilizada o, mejor dicho, de la es- 
tructura y las posibilidades del Basic y de la cantidad 
de memoria disponible. 

El método para insertar un comando es el siguiente: 


1 / Primero hay que incluir la letra (código) de identifi- 
cación del comando en la matriz CO(w) 

2 / Preparada la rutina para su desarrollo, debe com- 
pletarse la instrucción ON |... con su dirección (nú- 
mero de línea). 


En este punto, el comando se activa y puede ser utili- 
zado. Sin embargo, hay que tener en cuenta que, en 
algunos casos, la inclusión de una nueva función tiene 
como consecuencia la necesidad de importantes mo- 
dificaciones en las otras subrutinas. Por ejemplo, una 
función muy frecuente en los tableros electrónicos da 


N1 y N2 son los extremos 
de la celda en B$(+) 


SI Alfanumérico 


con: A1$ = MIDS(B$($),1,N1) 
A2$ = MIDS(BS(R),N2,235) 
AOS 


la posibilidad de variar la longitud de los datos presen- 
tados (o sea D$). Activando esta implantación hay que 
modificar los valores numéricos utilizados, como en la 
8100 (desplazamiento por la pantalla) y en todas las 
subrutinas que utilizan D$. 

Algunas funciones están incluidas en los programas y 
se describen más adelante. Los correspondientes dia- 
gramas se han omitido, por lo que hay que consultar 
los listados. 


Introducción (subrutina 3500). En el main (pág. 2420) 
se lee un carácter, en base al cual se activan 3 subruti- 
nas. Las primeras dos para el desplazamiento del cur- 
sor o la gestión de los comandos, y la última para la 
introducción de los datos. A su vez, esta subrutina pre- 
vé 3 posibilidades, siempre en función del carácter 
(CH$) introducido en el main: 


1 / El usuario desea escribir una fórmula. Este caso se 
indica con un valor particular de CH$ (por ejemplo, 
el símbolo F) 

2 / El dato está constituido por una cadena alfanuméri- 
ca. Este caso también se indica con un valor parti- 
cular de CH$ (por ejemplo, el símbolo A) 
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PRESENTACION DEL CONTENIDO DE UNA CELDA 


En llamada: 


H2 = Flag de desplazamiento (0 = N.D., 1 =1, 2= D) 
L = Línea 

C- = Columna 

H3 = Flag que activa la lectura de la celda 


Esta subrutina sólo 
se llama si H3 = 1 
(ver subrutina 3000) 


Salva el flag de presentación 


El campo es 
alfanumérico, 
va a la izquierda 


y 
==] 
ED 


La subrutina es indicativa por motivos de velocidad de desarrollo; en algunas versiones, 
el desplazamiento se hace en el momento de la introducción (con una lógica análoga) 


Predispone el flag de lectura 
celda 
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TRASLACION DE LA PANTALLA 


En llamada: 

Cl = Primera columna vídeo 

Ll. = Primera línea vídeo 

L  = Línea de final de traslación 

C. = Columna de final de traslación 
H3 = Flag de traslaciones horizontales 
H4 = Flag de traslaciones verticales 


y 


Desplazamiento horizontal 


NO 
Desplazamiento vertical xy Si 
ty 


En base xy NO y 


Estas partes son sólo de 
principio 


La subrutina de escritura de B$(l) no se ha representado porque su desarrollo 
depende de la máquina utilizada. Sin embargo, puede estar constituida por: lectura y 
presentación de la cadena DS, o sea por las rutinas 9500 y 1300 


N.B.: El diagrama sólo es indicativo. Hay que consultar los listados 
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3 / Si no se cumple ninguna de las condiciones ante- 
riores, el programa supone que el dato está consti- 
tuido por valores numéricos. 


En el diagrama, cada uno de los 3 posibles casos se 
trata con una subrutina, aunque la diferencia entre va- 
lor alfanumérico y numérico puede obtenerse simple- 
mente activando un flag que sirva de control. Efectiva- 
mente, los caracteres introducidos son transferidos en 
los dos casos a la variable D$ y, de ésta, al buffer 
B$(R) en la columna C (L y C son las coordenadas de 
la celda actual). 

La única diferencia entre ambos casos es el control 
sobre los valores introducidos para evitar que el usua- 
rio, por error, escriba un carácter alfabético en un 
campo numérico. Este control puede subordinarse fá- 
Ccilmente al valor de un flag. 

En el diagrama y en los listados, se ha preferido sepa- 
rar ambos casos, incluso si esto produce la duplica- 
ción de algunas instrucciones, para obtener una mayor 
estructuración y una mejor elasticidad del programa. 


Introducción fórmulas. La subrutina es llamada por 
la 16500 introduciendo el carácter de reconocimiento 


de fórmula (por ejemplo, el símbolo F) y realiza las fun- 
ciones: 


E Lectura de un carácter 

m Sies diferente de la tecla RETURN, lo acumula en la 
cadena A$ que, al final de la introducción, conten- 
drá la fórmula 

m Terminada la introducción, el usuario pulsa la tecla 
RETURN y la subrutina pasa a la fase de elabora- 
ción: inicialmente se busca la primera posición va- 
cía en la matriz F$(«) en la que hay memorizada la 
fórmula y, a continuación, se desarrolla el cálculo y 
se presenta el resultado. 


En el diagrama no se ha representado la función de 
presentación del carácter, pero sí está en los listados y 
consiste en la lectura, carácter por carácter, de todo lo 
introducido. Además, para simplificar el diagrama, no 
se ha incluido en él ningún control sobre los datos in- 
troducidos (el control parcial se realiza en la subrutina 
de cálculo), mientras que es una buena norma com- 
probar los datos a medida que se van introduciendo, 
por lo menos formalmente. En esta aplicación, los valo- 
res que pueden ser aceptados son: 


LOGICA DE DESPLAZAMIENTO DEL VIDEO 


Q 
1 
m 


o Antes del desplazamiento 
(35 caracteres) 
— Después del desplazamiento 


Anchura vídeo 7 columnas 


Una columna debe permitir 
la escritura de un número de 
caracteres igual a la longitud 
de D$ en bytes 


El posicionado en la columna C = 15 implica la presentación de una zona de 
tablero exterior al vídeo, por lo que el contenido de la pantalla debe trasladarse hacia 
la derecha. La activación de la traslación en las dos direcciones («— y 1) depende de 


N=CI+7-1=CI+6 
M=LI+15-1=LI+14 


Suponiendo que el número máximo de columnas en la pantalla sea 7 y el de las columnas 15 


s 
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1 / Numéricos, hasta un máxi- 
mo de 5 cifras 

2 / Alfanuméricos, sólo si cons- 
tituyen el nombre de una 
función prevista 

3/Los siguientes símbolos: 7 
(elevación a potencia), / (di- 
visión), x, +,— y los parén- 
tesis ”(” ”)”. 


El control, excepto del segun- 
do punto, es muy sencillo: se 
trata de descartar los caracte- 
res que ni son números ni es- 
tán comprendidos entre los sie- 
te símbolos f,»*,/, +,=, (,). 
Sin embargo, la necesidad de 
tener que reconocer los nom- 
bres de las funciones (consti- 
tuidos por 3 letras) genera una 
complicación de los controles, 
porque al presentarse un ca- 
rácter alfanumérico, antes de 
aceptarlo o descartarlo hay 
que esperar que el eventual 
nombre de la función se haya 
completado. Es decir, para re- 
conocer si se ha introducido 
una función, hay que leer los 
datos en grupos de a 3, com- 
probando la eventual corres- 
pondencia con un elemento de 
la matriz. Además es necesario 
determinar cuándo el carácter 
forma parte de una dirección; 
por ejemplo, si se quiere multi- 
plicar el contenido de la celda 
A1 (columna A, línea 1) por el 
valor numérico 5, la fórmula in- 
troducida será A1 x 5: la subru- 
tina debe poder reconocer el 
direccionamiento. Téngase en 
cuenta que este reconocimien- 
to sólo es con el fin del diag- 
nóstico de introducción, por- 
que la fórmula debe escribirse 
siempre con las direcciones; 
los valores correspondientes 
sólo pueden ser sustituidos en 
el momento del desarrollo. 
Resumiendo, para tener un 
diagnóstico completo en la fa- 
se de introducción, hay que 
realizar estos controles: 


1/El valor introducido es un 
número o un símbolo: se 
acepta 


GESTION DE COMANDOS 


En entrada: 
CO$(7) = Códigos de los comandos 
(cada código es una letra) 


O—> y 


Espera del código de comando 


y 


Principio de bucle 
de reconocimiento 
de comandos 


Salta si el elemento no es 
activo 


Subrutinas de 
activación 
comandos 


y 
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INTRODUCCION 


En llamada: 
L,C. = Coordenadas de la celda actual 


CH$ = Carácter leído en el main 





2 / El valor es una letra: se tienen dos casos: 
m La letra va seguida de un número, se trata de 
una dirección 
m La letra va seguida de otra letra, hay que espe- 
rar el 3% carácter del grupo para determinar si 
las 3 letras resultantes constituyen un nombre de 
función. 


Obsérvese que la lógica de identificación de una di- 
rección mediante la combinación letra + número (la 
letra para las columnas y el número para las líneas) 
está limitada a un tablero con las columnas marcadas 
con una sola letra, mientras que en el caso más gene- 
ral puede ser necesario un número mayor y, por tanto, 
con identificación de 2 letras, con ulteriores complica- 
ciones en las funciones de control. 


Funciones. Como se ha indicado, la principal finali- 
dad del tablero electrónico es permitir el desarrollo de 
cálculos, incluso complejos, organizados en tablas. La 
subrutina de cálculo presentada permite el desarrollo 
de cálculos aritméticos, incluidas algunas funciones, 
que pueden ser tanto las del Basic como particulares, 
no previstas en el lenguaje «huésped». Las funciones 
previstas en el tablero electrónico deben declararse 
todas incluyendo, con una DATA, su nombre en la ma- 
triz adecuada, y se activan mediante subrutinas escri- 
tas en Basic, por lo que es muy sencillo idear nuevas 
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funciones escribiendo el desarrollo en una subrutina 
dedicada. 

Por ejemplo, suponiendo que se quiere incluir la fun- 
ción SQR(N) en el tablero (SQR es el nombre simbóli- 
co de la extracción de la raíz cuadrada del número N), 
basta con escribir su sigla (SQR) en la matriz de los 
nombres; la subrutina de desarrollo analiza la cadena 
que contiene el cálculo a desarrollar, extrae las letras 
SQR y, reconocido este nombre entre los previstos, 
activa una subrutina de desarrollo a la que se refiere la 
única instrucción SQR(N) que realiza la función pedi- 
da. De manera análoga pueden crearse funciones no 
previstas en el Basic: por ejemplo, para efectuar un 
sumatorio de varios valores en los tableros electróni- 
cos se utiliza el código SUM seguido de las direccio- 
nes de partida y de final de la suma. La lógica a seguir 
es la misma, con la única diferencia del desarrollo de 
las funciones, que en este caso está al cuidado de la 
subrutina porque no está incluido entre los previstos 
en el Basic. 

A título de ejemplo, en la página siguiente se ha repre- 
sentado el diagrama de la subrutina que activa las fun- 
ciones, mientras que en la página 2444 hay el de la 
subrutina que realiza el sumatorio de los contenidos 
de las celdas especificadas en la instrucción SUM. 
Los diagramas son a nivel funcional y los detalles pue- 
den verse en los listados. La subrutina 17500, una vez 
reconocido un carácter no numérico, activa el bucle 


INTRODUCCION DE FORMULAS 


En entrada: 
L,C = Coordenadas de la celda actual 


Fin introducción 


El valor de “l” corresponde 
a la primera posición vacía de 
FS(+) 


Memoriza el puntero y pone 
el campo numérico 


Memoriza la fórmula 


Los parámetros correspondientes 
a la celda se extraen en la misma 
17000 


En el diagrama no se ha representado el bloque que ejecuta la presentación del carácter introducido 
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EJEMPLO DE DESARROLLO DE LA FUNCION SUM (...) 


En entrada: 

A$ = SUM(Ann,Xnn). Suma por línea “nn” 

O bien 

A$ = SUM(Ann,Amm). Suma por columna “A” 


para la determinación del nombre de la función (este 
desarrollo es simplificado, puesto que en realidad hay 
que insertar un control para comprobar que el carácter 
no pertenezca a una dirección). 

Como los nombres de las funciones son de tres letras, 
basta con leer los dos caracteres que siguen a CH$ en 
A$ para extraer la sigla a examinar. Determinada la 
posición de la sigla en la matriz de los nombres, puede 
activarse la subrutina de desarrollo. 

A este propósito hay que observar que el valor resul- 
tante del cálculo debe escribirse siempre en la misma 
variable, sea cual fuere la subrutina que se esté em- 
pleando. 
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CO 
y 

| “ER? | 
y 

[st | 
y 

E) 
ys 

| sas» | 
y 

PE 

| y 

SES 





A A1$ se transfiere la parte 
que contiene las direcciones, 
por ejemplo Ann,Xnn 


El símbolo *.” divide la dirección 
de partida de la del final 
de sumatorio 


o 


3 Error 


En A1S la parte de la izquierda 
A1$ = Ann 

En A28 la de la derecha 

A2$ = Xnn 


L1,C1 = Línea y columna de 
principio (L1 = “A”, C1 = nn) 


L2,C2 = Línea y columna de 
final (L2 = “X”, C2 = nn) 


Esta variable podrá ser la misma en todas las subruti- 
nas previstas. De esta manera, basta con transferir di- 
cho valor a A$ (naturalmente, después de haberlo con- 
vertido en cadena) para obtener el resultado del cálcu- 
lo, ya preparado para la transferencia en una celda o 
en la pantalla. 

La figura de arriba muestra el desarrollo de la función 
SUM. Ante todo hay que definir la sintaxis según la 
cual debe escribirse la función y que será utilizada co- 
mo lógica de desarrollo. En este ejemplo, la forma ele- 
gida es: 


SUM (Dirección de partida.Dirección de final) 


El símbolo ”.” es muy importan- 
te. Divide las dos direcciones 
y, de hecho, a la entrada de la 
subrutina, la primera función es 
precisamente la separación de 
las dos direcciones y se basa 
en la posición del punto. La 
parte de la izquierda se memo- 
riza en A1$ y la de la derecha 
se memoriza en A2$ (obsérve- 
se que A1$ también se utiliza 
para extraer todo el contenido 
de los paréntesis; por tanto, es 
una asignación provisional que 
puede perderse). 

De estas dos cadenas (A1$ y 
A2$) se aíslan sucesivamente 
los valores de línea y de colum- 
na que identifican respectiva- 
mente las celdas de principio y 
de final. 

Por tanto, sólo queda por acti- 
var un bucle que tome el conte- 
nido de cada celda compren- 
dida entre las dos direcciones 
y los totalice en la variable Z. 
Obsérvese que el sumatorio 
puede realizarse de dos mane- 
ras: por línea o por columna. 
En el primer caso, el bucle ex- 
trae las celdas incrementando 
el índice de línea (o sea las ex- 
trae de los distintos buffers 
BS$(x:)), mientras que en el se- 
gundo, es el índice de columna 
el que se extrae de las distintas 
posiciones del mismo buffer 
BS(). 


Comandos. La gestión com- 
pleta del tablero electrónico re- 
quiere la presencia de algunas 
subrutinas para el desarrollo 
de funciones particulares, dife- 
rentes de las de desarrollo de 
cálculos. Estas funciones, que 
no deben confundirse con las 
matemáticas, pueden dividirse 
en algunos grupos principales: 


E Funciones relativas al forma- 
to de presentación de los da- 
tos 

m Comandos para la modifica- 
ción de la estructura del ta- 
blero 

" Gestión del disco 

m Comandos particulares. 


INSERCION DE UNA LINEA O DE UNA COLUMNA 


La subrutina es activada por la 1200 introduciendo el código “l” (Inserción) 


L,C = Línea y columna actuales 
CO$(+*)= Códigos de los comandos entre los que debe preverse la letra “l” 


El programa pide el tipo 
de inserción 
La respuesta dada está en R$ 


La inserción 

de una columna 
se hace 

de modo análogo 
a las líneas 


mx = número máximo de 
líneas 
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A continuación se analizan algunas funcionalidades 
de cada grupo, si bien en los listados no están todas. 
Por tanto, el análisis que sigue, en algunos casos, 
constituye la guía para la interpretación de los listados 
y, en otros, es una pista con la que pueden desarrollar- 
se las implantaciones. 


Formatos de presentación. La estructura representa- 
da presupone una longitud máxima del contenido de 
cada celda igual a 7 bytes, pero nada impide ampliar 
este campo en función de las propias necesidades es- 
pecíficas. 

La ampliación puede obtenerse modificando los lista- 
dos y precisamente todas las instrucciones de extrac- 
ción, de memorización y de presentación de la cadena 
D$ (siempre teniendo en cuenta la limitación de la lon- 
gitud total de cada línea). 

La estructura de tablero presentada utiliza un cierto 
número de buffers para memorizar las distintas celdas. 
Cada buffer corresponde a una línea, por lo que su 
longitud es igual a la suma de las longitudes de todas 
las celdas presentes en la línea, o sea, a la suma de 
las amplitudes, en bytes, de las columnas. 

El buffer de línea (B$(x)) es una cadena, por lo que su 
longitud total no puede superar los 255 bytes. 

Con la estructura de celda vista (total de bytes, 2 para 
los flags y 7 para el valor), el número máximo de cel- 
das y, por tanto de columnas, es: 234/9 = 26. 

Al aumentar la longitud de cada celda se tiene una 
disminución proporcional del número de columnas. 
Además, la pantalla puede contener un número limita- 
do de caracteres (generalmente, en este tipo de má- 
quinas es de 40), por lo que utilizando una anchura 
excesiva de columna se tiene la presentación de un 
número de datos limitado. 

Para obviar estos inconvenientes es útil parametrizar la 
forma de presentación, o sea el número de caracteres 
presentados en cada celda. Para ello debe haber un 
comando adecuado que, al activarlo, pregunte el nú- 
mero de caracteres a presentar y adecue las distintas 
subrutinas a la nueva situación. 

Sin embargo, hay que tener en cuenta que esta im- 
plantación no es tan sencilla como puede parecer, 
porque también necesita una modificación de la 
subrutina de presentación de los ejes, del desplaza- 
miento del cursor, del deslizamiento de la pantalla, etc. 
Otra opción, muy utilizada, consiste en la posibilidad 
de modificar el formato de presentación de los datos, 
aunque respetando su longitud. 

En los 7 bytes previstos para el valor de la celda pue- 
de memorizarse un número cualquiera, incluso con va- 
rios decimales. 

En algunas aplicaciones es útil disponer de un coman- 
do que pueda limitar, y eventualmente anular, la pre- 
sentación de los decimales. 

El desarrollo de esta función es mucho más sencillo 
que el anterior, porque corresponde exclusivamente a 
la subrutina de presentación (1300) y permite extraer 
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únicamente la parte que interesa de la cadena DS. 
Operativamente, la activación de este comando re- 
quiere la inclusión del código en la matriz CO(w), la 
preparación de la subrutina de gestión y la modifica- 
ción del bloque de presentación (D$) (incluido en la 
1300). 

Por ejemplo, suponiendo que se quiera asignar la letra 
F (formato) como código de activación de la función, el 
código deberá incluirse en CO(«) y, en la 1200, escri- 
bir la rutina de gestión que consiste en la activación de 
un flag que después se utilizará en la 1300 en la fase 
de presentación de DS. 

Naturalmente, esta subrutina, además de activar el 
flag, debe pedir el número de cifras que se quieren 
presentar, valor que puede incluirse en el flag, por 
ejemplo inicializando al valor 7 (máxima longitud pre- 
vista) y modificándolo de acuerdo con la introducción. 
En la 1300, la implantación consiste en extraer y pre- 
sentar un número de cifras igual al valor del flag. 


Modificaciones de la estructura del tablero. Con es- 
te tipo de comando se activan dos funciones: 


1 / Inserción de una nueva línea 
2 / Inserción de una nueva columna. 


Naturalmente, es posible implantar el programa con 
muchas otras funciones, tales como: la subdivisión en 
ventanas, la protección de la escritura, etc., que, sin 
embargo, tienen un carácter secundario y, por tanto, 
no se tratarán en esta versión. 

En la página anterior se ha representado el diagrama 
de principio de la subrutina de inserción de línea o de 
columna. 

En sustancia se trata de transferir los contenidos de 
B$(x:) de manera que quede una línea o una columna 
completamente en blanco. El diagrama está muy sim- 
plificado y puede utilizarse únicamente como indica- 
ción de una metodología. 

En particular, y para abreviar, la parte correspondiente 
a la inserción de una columna no se muestra, pero 
puede desarrollarse conceptualmente de manera aná- 
loga a la utilizada para las líneas, aunque además re- 
quiere un bucle de traslación de los distintos campos 
de una misma línea. 

Este bucle puede desarrollarse utilizando las subruti- 
nas ya vistas de lectura y de escritura del contenido de 
una celda. 


Gestión disco. Con este tipo de comando se obtiene 
la memorización en disco de todo el tablero o de una 
parte del mismo. 

Los ficheros previstos son dos, el primero para la me- 
morización del contenido de las celdas, o sea de los 
buffers B$(*), el segundo para las fórmulas (F$(x)). 
La función se desarrolla mediante dos subrutinas, la 
primera para la definición de la parte de tablero a me- 
morizar y la segunda para la transferencia al disco. 


La subrutina de transferencias 
utiliza dos pares de punteros: 


SUBRUTINA DE TRANSFERENCIA AL DISCO 


LI,Cl = línea y columna de 
rincipio de memori- 
p p LI,Cl. = Línea y columna de 


zación . principio transferencia 
LF,CF = línea y columna de fi- | LF,CF = Línea y columna 
nal de final 


En llamada: 


implantados con una subrutina 
llamada anteriormente; por lo 
tanto, en la 16000 (gestión de 
comandos), para este tipo de 
comando, hay que insertar en 
sucesión dos subrutinas de lla- 
mada. 

La primera se utiliza para la de- 
finición de la zona a memorizar 
(en la salida de los valores de 
LI,Cl y LF,CF) y la segunda se 
emplea para la transferencia 
de estos valores al disco. 

A la derecha se ha representa- 
do la subrutina de transferen- 
cia suponiendo una estructura 
que prevé como máximo 20 
columnas y 20 líneas. Pueden 
obtenerse eventuales implanta- 
ciones simplemente variando 
los parámetros numéricos utili- 
zados. 

Además, la lógica empleada 
consiste en copiar en disco la 
zona de tablero indicada, 
dejando en blanco la zona que 
queda libre. 

Esto implica que cada celda 
esté memorizada y representa- 
da teniendo en cuenta que hay 
que considerar siempre todas 
las direcciones como corres- 
pondientes a la posición del 
cursor. Con este procedimien- 
to, se obtiene un posicionado 
diferente de las celdas en la 
fase de carga. 

El diagrama de la subrutina pa- 
ra la determinación de los pun- 
teros Ll,Cl y LF,CF se ha omiti- 
do, porque se trata de una sen- 
Cilla gestión del cursor o de 
una introducción directa (por el 
teclado), según si se desea pe- 
dir el margen indicándolo con 
el cursor o introduciéndolo. 
Finalmente, téngase en cuenta 
que esta función no está en la 
versión de cinta. 


La condición se 
reconoce por: 

Ll =1 Cl =1 
LF =20 CF =20 


Pone a cero los elementos 
que no deben transferirse 


El bucle termina en la línea 
anterior Ll, que sólo 

podría transferirse 
parcialmente 


La línea Ll se transfiere 
totalmente 


En el caso Cl 4 1, 
el buffer B$(RI) 
debe estar 
compuesto por 2 
partes, la primera 
hasta la 

columna Cl— 1, 
en blanco, la 
segunda con 

el contenido del 
tablero 


EN ? 


y 


Transfiere 
B$(x) al disco 


Transfiere 
FS(*) al disco 


y 


Salta si LF = 20 


Con un bucle de 1 a 20 para 
B$(+) y de 1 a 9 para F$(x). 
Cada elemento en un 
registro de 235 bytes 

de longitud 


La subrutina no tiene equivalente en la versión cinta, por lo que 


no incluye ninguna forma de memorización 
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SUBRUTINA DE COPIA POR LINEAS 


En llamada: 
LI,LF = Definen la parte a copiar 
LO =Indica la línea en la que empieza la copia 





Comandos particulares. El tablero electrónico es un 
programa generalizado, incluso si se orienta al desa- 
rrollo de cálculos, por lo que debe incluir un cierto nú- 
mero de comandos que permitan su adaptación a las 
situaciones más dispares. El número y la variedad de 
dichos comandos dependen de la generalidad que se 
quiera dar al software. En esta versión se activa la úni- 
ca función que permite realizar una copia del conteni- 
do de las celdas de un punto a otro del tablero, pero 
pueden incluirse otras funciones, como la realización 
de los cálculos con sólo un comando, el posicionado 
del cursor con instrucciones del tipo GOTO, etc. 

El diagrama de la subrutina para la copia del conteni- 
do de celdas puede verse arriba; su empleo requiere 
habit talmente la introducción de un código de activa- 
ción, por ejemplo la letra “C” (Copia), la definición del 
margen a copiar y la indicación del punto inicial én 
que se posicionará la copia; por tanto, la lógica es 
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Número de líneas a copiar 


análoga a la anterior. La función se realiza con dos 
subrutinas, la primera para la definición de la zona a 
copiar y de la dirección de partida de la copia. La se- 
gunda para la ejecución de la transferencia. El diagra- 
ma de la figura sólo se refiere a esta segunda subruti- 
na y la primera puede reducirse a un simple coloquio 
que permita la introducción de: 


LI = Línea de principio parte a copiar 
LF = Línea de final parte a copiar 
LO = Línea en que empieza la copia 


El ejemplo se realiza activando la única función de co- 
pia por líneas; si se desea por columnas, la lógica per- 
manece la misma, variando los direccionados. 
Además, obsérvese que el diagrama corresponde. so- 
lamente a la transferencia del contenido de las celdas, 
mientras que las fórmulas permanecen sin variación. 


Tablero electrónico. La versión DOS de este programa 
prevé, para el posicionado, las teclas: 

CTRL + W: desplaza arriba 

CTRL + A: desplaza a la izquierda 

CTRL + S: desplaza a la derecha 

CTRL + Z desplaza abajo 

Los comandos utilizables (presentados en la parte 
inferior de la pantalla) son: 

introducción fórmulas 

introducción datos alfanuméricos 
introducción datos numéricos 

inserción línea o columna 

memorización 

carga desde el disco 

copia 


OFL—=ZD NM 


Moviendo el cursor más allá de los límites de la pantalla 
de base (delimitada por las casillas A5 y J1) se produce 
el deslizamiento de los datos presentados; este 
mecanismo permite aprovechar toda el área de trabajo 
ofrecida por el tablero (15Xx26 casillas de introducción). 
En la foto de al lado se muestra el deslizamiento de los 
datos hacia la izquierda: por tanto, se está moviendo el 
indicador de casilla hacia la derecha. 


Introducción fórmulas. El comando F permite la 
introducción de una fórmula matemática en la casilla 
sobre la que está posicionado el cursor. En este caso, 
la casilla considerada está identificada por las 
coordenadas D4. El cálculo a efectuar es la diferencia 
entre los valores numéricos contenidos en las casillas 
B3 y C3. 


Cálculo. Apenas introducida la fórmula, el programa 
realiza la sustitución de los valores numéricos 
contenidos en la casilla interesada y el desarrollo del 
cálculo. El resultado así obtenido se presenta en la 
casilla que contiene la fórmula originaria. 
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Introducción datos: Los comandos A y N permiten la 
introducción de datos, respectivamente alfanuméricos 
y numéricos, en el área de trabajo del tablero. En este 
caso, se está insertando el valor 450 en la casilla C3, 
en la que hay un valor numérico. 


Una vez modificado el valor numérico de una casilla 
contenido en un cálculo, se puede obtener la 
actualización del resultado de éste posicionando 
sencillamente el indicador en la casilla que contiene la 
fórmula. Efectivamente, en la memoria no está contenido 
el resultado (que se lee en las coordenadas D4), sino la 
fórmula en la misma forma en que se ha insertado. 


Inserción. Se ha activado el comando l; la primera 
pregunta del programa es sobre el tipo de inserción 
a realizar: 
L = inserción línea 
C = inserción columna 

Con la tecla E puede salirse de la opción, 

anulando el efecto. 


La inserción se ha realizado añadiendo una línea al 
tablero. El efecto del comando es que todos los datos 
que antes ocupaban las casillas a partir de la línea C 
han sido trasladados hacia abajo y ahora están a partir 
de las coordenadas D1. La línea C está ahora 
disponible para ulteriores introducciones. 
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Tablero electrónico. La versión MSX tiene algunas 
particularidades, como la torma del indicador de casilla 
ocupada que, en este caso, al faltar una gestión fácil de 
los caracteres REVERSE, está representado por el 
cursor normal. 
Los comandos previstos son: 
F- = introducción fórmulas 
A = introducción datos alfanuméricos 
N = introducción datos numéricos 
= inserciones 
C = copia 
Para el desplazamiento de cursor se tiene: 
=> = desplaza a la derecha 
— = desplaza a la izquierda 
? = desplaza arriba 
| = desplaza abajo 


Introducción fórmulas. Se ha activado el comando F: 
en la parte inferior derecha de la pantalla se presenta la 


IC MR 


tecla correspondiente. En este caso se ha introducido el Y. — REAL 
cálculo de la diferencia entre las casillas C4 y C3, cuyo 
resultado se ha presentado en las coordenadas C5. 


En la foto de al lado se ha presentado la parte de 
tablero que inicialmente no se muestra. La pantalla 
sobre la que empieza el trabajo (después del comando 
RUN) está delimitada por las casillas A1-J5: llevando el 
cursor hacia abajo, se obtiene la presentación de las 
casillas F1 a O5. 


Introducción datos numéricos. Mediante el comando 
N es posible insertar en el tablero valores numéricos. 
Es importante distinguir este tipo de introducción de 
las otras: efectivamente, introduciendo 1500 con el 
comando A, su valor será O, porque se ha insertado 
como alfanumérico (en forma de comando o 
descripción). 


LE 
E.6.S. 
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Inserción. El comando | permite la inserción de líneas 
o columnas en una zona del tablero. En la parte inferior 
izquierda de la pantalla se presentan las posibles 
opciones: 

L = inserción línea 

C = inserción columna 

E = salida del comando 


Se ha activado el comando de inserción de columna. 
Todos los datos presentados en las casillas de la 
columna 2 se han trasladado a la siguiente. Ahora, 

la columna 2 está libre para nuevas introducciones. 


| Comando C (copia). Este comando permite 

| representar una parte del tablero ya definida en otra 
todavía libre. Lós primeros parámetros a proporcionar 
| para esta operación son la dirección de partida y la de 
| llegada de la zona a copiar. Por ejemplo, si se quieren 
| duplicar las dos primeras líneas, tendremos: A1-B26. 


LINEA INICIAL ?M_ 
<ESC para salir> 


La siguiente introducción para activar el comando de 
copia es la de la dirección en que hay que empezar a 
duplicar datos. 


' E 
des: 


XESC para salir> 
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MISS 


165 
170 
145 
Ei] 
E] 


LINEA PRINCIPIO COPIA? M_ 








ESE 
Extensiones y modificaciones 


Por tratarse de un programa de empleo generalizado, 
las posibles modificaciones e implantaciones son in- 
numerables y consisten, principalmente, en la intro- 
ducción de funciones de alto nivel que contienen dife- 
rentes instrucciones elementales para evitar al usuario 
la necesidad de desarrollar el detalle. 

La estructura utilizada en este programa es de tipo 
abierto, por lo que son posibles todas las variaciones 
necesarias para adaptar mejor el software a las nece- 
sidades específicas. 

Sin embargo, hay que observar que el empleo del len- 
guaje Basic, si bien por una parte hace mucho más 
ágil la programación, en cambio implica una limitación 
del área de memoria direccionable, por lo que para 
aplicaciones particularmente complejas es necesario 
prever subrutinas en Assembler que direccionen zo- 
nas de memoria externa al ambiente Basic. 

A continuación se presenta un ejemplo correspondien- 
te al cálculo de gastos comunitarios. 


Ejemplo de aplicación. En la gestión de una propie- 
dad comunitaria, cada gasto se reparte entre los co- 
propietarios en base a una tabla de milésimas, que 
expresa la cuota a pagar por cada uno. En general, las 
tablas para la gestión de una comunidad son más de 
una, relativas cada una a un cierto tipo de gasto. Por 
ejemplo, la correspondiente a los consumos de com- 
bustible para la calefacción se obtiene de la superficie 
de los radiadores que tiene cada copropietario. 

Para fijar mejor las ideas, la siguiente aplicación se ha 
desarrollado según este tipo de gasto; sin embargo, 
también es válida para otras aplicaciones, aunque na- 
turalmente varían los valores y los respectivos impor- 
tes. Supongamos que la propiedad comunitaria está 
constituida por cinco apartamentos, cada uno con las 
siguientes superficies radiantes: 


Piso 1: 11,96 metros cuadrados 
Piso 2: 3,50 metros cuadrados 
Piso 3: 11,27 metros cuadrados 
Piso 4: 9,98 metros cuadrados 
Piso 5: 12,93 metros cuadrados 


Después de haber introducido los valores (comando 
N, introducción de datos numéricos), se calcula el total 
de la superficie radiante en la casilla identificada por 
las coordenadas H2. Para ello se utiliza la función SUM 
(ver la primera foto de la pág. 2418). 

En base a las superficies instaladas hay que calcular 
la tabla de distribución milesimal, que se utilizará para 
obtener los coeficientes de atribución de los gastos. 
Esta tabla expresa el porcentaje que grava sobre cada 
apartamento expresado en milésimas para hacer 


mejores aproximaciones de los cálculos. El cálculo a 
realizar para obtener el coeficiente de cada aparta- 
mento es: 


superficie x 1000 
total 


milésimas = 


Por ejemplo, en el piso 1 tendremos: 


11,96 x 1000 


= 241 (aprox. 
49,64 Ios 


milésimas = 


En el tablero, este cálculo puede realizarse fácilmente 
implantando la fórmula: 


1000 


celda de milésimas = x celda de superficie 


Por ejemplo (ver la foto de la pág. 2418), suponiendo 
que se han introducido previamente las superficies de 
los cinco apartamentos en las celdas identificadas por 
los cruces entre la columna dos y las líneas B, C, D, E, 
F, el cálculo será: 


men la celda B4 (milésimas piso 1) = (1000/H2)x*B2 
(la superficie está en B2) 

"men la celda C4 (milésimas piso 2) = (1000/H2)xC2 
(la superficie está en C2) 


y así sucesivamente para las otras. 

Finalizados estos cálculos, se dispone en la columna 4 
(y por tanto en las celdas B4 y F4, ver la tercera foto de 
la pág. 2418) de las milésimas correspondientes a 
cada propiedad comunitaria. 

Para obtener la distribución de un gasto hay que divi- 
dirlo primero por 1000 y después multiplicarlo por las 
milésimas de cada piso. Por tanto, tendremos la si- 
guiente fofmula: 


gasto total 
1000 


importe de cada piso = x milésimas 


En la última foto de la página 474 se ha representado 
este último paso; el gasto total se ha introducido en la 
casilla J3, por lo que las fórmulas serán: 


K3 (importe primer piso) = (J43/1000)xB4 
L3 (importe segundo piso) = (J3/1000)xC4 


y análogas para las restantes. En este punto, en la co- 
lumna 3 y de la línea K a la O se han representado los 
gastos de los pisos individuales. 
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El empleo más frecuente de los procesadores electró- 
nicos es en la gestión de archivos. Analizando las po- 
sibles aplicaciones del ordenador, se hace evidente 
que una parte importante de los programas corres- 
ponde a la memorización y a la búsqueda de los da- 
tos, O sea a la gestión de un archivo. 

La Base de Datos permite el desarrollo de estas apli- 
caciones sin necesidad de ningún conocimiento de 
programación. 

La aplicación principal del programa, como ya se ha 


Uso del programa 


La gestión de un archivo requiere, como mínimo, las 
siguientes funciones: 


m Creación 

Em Introducción datos 
m Actualización 

m Búsqueda 

"= Impresión 


Las distintas funciones se explicitan en otras tantas su- 
brutinas (o programas) que, si bien tienen los significa- 
dos lógicos usuales, se realizan con nuevas funcionali- 
dades y están orientadas al objetivo particular del pro- 
grama. 

La gestión de un archivo con la ayuda de un ordena- 
dor presupone la necesidad de memorizar y procesar 
una gran masa de datos, por lo que es necesario dis- 
poner de un programa que pueda adaptarse no sólo a 
las necesidades, puramente estéticas, del usuario, si- 
no que también ofrezca una buena flexibilidad de em- 
pleo. En particular es necesario recurrir a una Data En- 
try completamente parametrizada, que pueda utilizar- 
se y modificarse sin entrar en los detalles de la progra- 
mación. 

La Data Entry utilizada hasta ahora sólo satisface par- 
cialmente estas necesidades: de hecho, los elementos 
típicos de la máscara vídeo (posición, longitud y tipo 
de campos, etc.) sólo pueden modificarse mediante 
instrucciones DATA. Por tanto, su modificación requie- 
re el conocimiento, por lo menos superficial, del len- 
guaje de programación. Una alternativa podría ser la 
de utilizar una máscara predefinida, no accesible al 
usuario, dedicada a la introducción de los parámetros 
característicos de los campos; sin embargo, se trata 
de una solución que requiere la participación del usua- 
rio limitándolo a «interpretar» la estructura final que 
asumirá la máscara. Para eliminar el inconveniente se 
ha introducido una nueva subrutina que permite gene- 
rar las máscaras vídeo «dibujándolas» en la pantalla. 
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indicado, es para la memorización, la búsqueda y la 
impresión de datos; por tanto, constituye el comple- 
mento indispensable del tablero electrónico. 

Los sectores de aplicación variados: desde el listín 
telefónico a una relación de Clientes y Proveedores, o 
a la gestión automática de una biblioteca. 

Además, la versión presentada contiene un módulo 
dedicado al desarrollo de fórmulas. Por tanto, es posi- 
ble integrar determinadas funciones de cálculo, típi- 
cas del tablero, en la gestión de los archivos. 


Desde el punto de vista funcional, la operación se rea- 
liza como sigue: el usuario activa la voz de generación 
y el sistema presenta una pantalla vacía, con sólo las 
indicaciones de línea y de columna en que se encuen- 
tra el cursor; en este momento, el usuario puede posi- 
cionar en una zona cualquiera de la pantalla (el posi- 
cionado en términos de línea y columna se presenta 
siempre) y definir en ella una descripción o un campo 
de datos. En el primer caso, los caracteres que consti- 
tuyen la descripción deben ir precedidos y seguidos 
por el símbolo «8» (que después se eliminará). En el 
segundo caso (zona de datos), los caracteres introdu- 
cidos son: 


”X” = define un campo de tipo alfanumérico 

"N” = para los campos numéricos 

"C” = define un campo como resultado de cálculo 
”.”. = delimita la parte entera de un campo numérico. 


Al final de las definiciones de la máscara, con la tecla 
de introducción se activa el proceso de lectura y me- 
morización de la pantalla. De los valores contenidos en 
ella, el sistema toma los parámetros característicos de 
la máscara y del fichero asociado. 

En el caso en el que algunos campos se hayan defini- 
do como de cálculo, el sistema procede a pedir la fór- 
mula de desarrollo. Esta fórmula puede contener: 


m Datos numéricos 

m Símbolos de las operaciones aritméticas 
m Referencias a otros campos 

"m Paréntesis, incluso sobre varios niveles 
E Funciones internas 


La simbología a adoptar es la utilizada normalmente, 
excepto las referencias a otros campos, que se obtie- 
nen escribiendo el número del campo entre comillas 
("6” se refiere al campo número 6). Por ejemplo, si se 
desea construir una máscara vídeo con: 


1 / Nombre 

2 / Importe 

3 / Porcentaje a aplicar al importe 

4 / Importe correspondiente al porcentaje 


Las operaciones a realizar son: 


m Posicionar el cursor en la zona de pantalla en la que 
se desea la descripción de cada campo 

m Escribir la descripción, precedida y seguida del sím- 
bolo «$» 

" Posicionar el cursor en la zona vídeo en la que se 
desea el campo de datos 

m Introducir las características del área de datos utili- 
zando la simbología anterior, o sea: 


— El campo Nombre estará representado por un 
número de carácteres ”X” igual a la longitud má- 
xima que se desea dar al campo 

— El importe y el porcentaje (campos numéricos en 
introducción) deberán definirse con símbolos 
"N” (siempre en un número igual a los bytes re- 
servados al campo correspondiente) 

— El porcentaje deberá definirse como resultado 
de cálculo, o sea con el símbolo ”C”. 


Por ejemplo, la máscara vídeo terminada podrá tener 
la forma: 


alfanumérico, 

10 caracteres 
numérico, 5 cifras 
numérico, 2 enteros 
1 decimal 

de cálculo, 5 enteros, 
1 decimal 


8 Nombre 8 XXXXXXXXXX 


8 Importe 8 NNNNN 
8 Porcent. £ NN.N8%é 


8 Valor % 8 CCCCC.C 


El último paso consiste en definir la fórmula para el 
campo del cálculo: 


Valor % = Importe x Porcentaje/100 
Por tanto, la fórmula correspondiente es: 
"2"5"3"/100 


donde los dos primeros números (2 y 3) encerrados 
entre comillas identifican respectivamente los campos 
número 2 (Importe) y número 3 (Porcentaje). El tercer 
número (100) se supone un valor numérico porque no 
está encerrado entre paréntesis. 

Terminadas las definiciones, puede procederse a la 
introducción de los datos. La máscara vídeo que apa- 
rece reclamando la función es idéntica a la definida 
por el usuario, con los símbolos "4” eliminados y con 
las zonas de datos indicadas con la simbología usual, 
o sea con tantos símbolos ”—” como cuantos bytes 
haya previstos en los campos alfanuméricos, y con 


símbolos ”+t” en un número que corresponda a las ci- 
fras previstas en los campos numéricos. 

Esta particular gestión de máscara vídeo ofrece la po- 
sibilidad de trabajar de manera muy expedita en su 
construcción, siempre que no se memorice ningún pa- 
rámetro, procediendo a su memorización sólo des- 
pués de haberla ultimado. Además, es muy sencillo 
aportar correcciones, porque los datos, o sea los pará- 
metros de los distintos campos, hasta el momento de 
la confirmación (con tecla funcional) están simplemen- 
te escritos en la pantalla y aún no memorizados, es 
decir, no han alterado ninguno de los parámetros que 
definen la máscara. Las eventuales correcciones se 
hacen en la memoria de vídeo y no necesitan ninguna 
lógica ni modificación de los parámetros. Como se ha 
indicado, el final de la preparación, la adquisición de 
los parámetros se hace leyendo la memoria vídeo y 
tomando de su contenido los valores a asignar a la 
máscara en fase de construcción, que son los mismos 
utilizados en la Data Entry anterior, o sea: 


m Posición de la descripción (línea y columna) 
m Descripción 

m Tipo de campo 

"m Longitud 

m Número de cifras decimales 

" Posición del campo (línea y columna) 


Todos estos valores pueden obtenerse leyendo la me- 
moria vídeo y teniendo en cuenta que las descripcio- 
nes empiezan y terminan con el símbolo "8”, mientras 
que las definiciones se representan con uno de los 
símbolos "X”, "N” o "C”. 

La rutina que realiza esta transferencia (de imagen a 
valores) consiste en un bucle que explora el vídeo (o 
sea la zona de memoria correspondiente) y después 
de haber determinado si el contenido de una localiza- 
ción es un campo o una descripción, toma de aquél 
las características. La elección de una u otra posibili- 
dad (descripción o campo) se toma en base a la pre- 
sencia o la ausencia del símbolo "4”. En el primer ca- 
so, todos los caracteres que siguen, hasta el siguiente 
”8”, son considerados como pertenecientes a la des- 
cripción y, por tanto, son memorizados en la matriz 
DS (+). Y viceversa, si se encuentra un carácter sin que 
se haya activado el flag de descripción, el contenido 
de la pantalla es interpretado como una definición, y 
se cuentan los símbolos (C, X, N) para determinar la 
longitud del campo (LC(:x)). 

En ambos casos (descripción o campo de datos), las 
coordenadas son determinadas por el propio bucle de 
exploración de la pantalla. La única precaución a to- 
mar al generar una máscara vídeo consiste en no utili- 
zar descripciones de longitud superior a 10 caracteres 
(los sobrantes son eliminados) y en limitar el número 
de campos de datos a 20, que es el valor máximo pre- 
visto. Estas limitaciones pueden superarse fácilmente 
aumentando los dimensionados. 
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| 

| Base de Datos. La foto muestra el menú inicial de 

| acceso al programa. La primera función a activar 
es la voz 1 (Definiciones). 


Menú definiciones. Activando esta función aparece 
el menú secundario para la selección de la subvoz. 
Las previstas son: 

1. Creación máscara: define la máscara vídeo, el tipo 
de los campos y los eventuales cálculos. 

2. Definición formatos de impresión: permite implantar 
la forma que deberán tener los tabulados y los 
campos que se desea enviar a impresión. 

3. Grabación ficheros definiciones: utilizada para 
memorizar en disco los valores de definición 
introducidos con las voces anteriores. 


Creación máscara. La foto muestra las instrucciones, 
necesarias para la utilización de la máscara. Constituye 
un recordatorio que evita al usuario consultas continuas 
del texto. 


Segunda parte de las instrucciones: en ella aparece 
también la relación de las funciones reconocidas que 
después podrán emplearse en el desarrollo de los 
cálculos. 
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EL MUMERO 
1-41) 


DEFINICION VIDEO 
AI ARS 


TRABAJO. CON BASE DATOS 


20 


A! 


FEAT TT 


MENU DEFIMICIONES 


E TE EE 
A A A 
ETA A RAEE 


KE Fin de tarea 


Cual 


ATENCION 


ETT TALA TL 
TAREA 3. ANUMRE 
MEET TAI HT AA 
TARA LE IA 

= alfanumerico, % = de calculo 


ETT E 
MAA 10 TEST 
EE IA IRA) 
LS caracteres 


El punto A NI Mi o 
AI RI 
IPERANAYA!/= campo de calculo de 5 
caracteres, 2 de ellos decimales 
puisar. una tecla 





ATENCION 

METE 

sea la suma de todos 

AZ TRA 


ETA A 
E TI 


En 1as formulas de CaTJa O 
del campo debe estar comillas 
AENA 4PL- Y DU 


na EE nh 
n 


1 
3d 
3 


puisar una tecla 


Ejemplo de definición. Los símbolos 4 definen las 
zonas vídeo reservadas a las descripciones de los 
campos, mientras que el símbolo $ se utiliza para 
indicar la longitud de los campos alfanuméricos. En la 
parte inferior, última línea, aparece la posición actual 
del cursor, 


La foto muestra el empleo de la línea de coloquio. 
Activando la función ayuda en esta línea se presentan 
los comandos previstos. 


La máscara vídeo de la foto anterior se ha completado. 
Los campos previstos son 3: los dos primeros 
alfanuméricos y el tercero numérico. 


Activando la voz 2 del submenú de generación se tiene 
la presentación del coloquio para la definición de la 
impresión. La foto muestra la primera pregunta. 


Imprimir 


AS 


ATA 


MS ones Forum, S. 


EAS 


ES 


Columna: E 6 CTRL+P = AYUDA 


AE TT 


AI AE 


lapell. 


TT 


A 
-.Zapell. 


AA 


AE 


zm 


A a 


RAR 


AI A 


A 
E 5S$S$5$$555555555555 


e cdi cddda 


AFA PO A 


ETS E E TAO) 


UE] 


A TE IE AE 
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| A continuación, el usuario debe seleccionar el tipo de 

| impresión. Con la voz 1, los campos seleccionados 

|. son presentados en una misma línea y con la voz 2, 
uno por línea. 


La última fase de la impresión consiste en la selección 
de los campos. 

| El sistema presenta todos los previstos con un número 
| progresivo al lado. El usuario debe introducir los 
números correspondientes a los campos a imprimir. En 
| esta fase, la letra “t” indica que el contenido del campo 
correspondiente se utiliza para el cálculo del total. 


Fase de memorización: el sistema espera un acuerdo 
antes de iniciar la operación de escritura en el disco. 


Durante la escritura en el disco, la máquina presenta 
eventuales necesidades de sustitución del soporte. 
La foto muestra la fase final de las definiciones. 
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AENA 


Elegir el tipo de impresion: 


O EAS 
E 





Ediciones Forum, S.A. 


MS 


apell. 


tel. 





INTRODUCIR EN LA “UNIDAD” DISCO 
EL SOPORTE RESERVADO A DEFINICIONES 


PULSAR UNA TECLA 


INTRODUCIR EN LA “UNIDAD” DISCO 
EL SOPORTE RESERVADO A DEFINICIONES 














Terminada la fase de definición puede pasarse a la de 
utilización, seleccionando la voz 2 del menú principal. 
La foto muestra el menú secundario correspondiente 

a este procedimiento. 


Antes de cualquier otra operación, el sistema debe 
cargar las definiciones. Como de costumbre, aparece 
la petición de introducir el diskette. 


Terminada la carga de las definiciones, el programa 
pregunta si el fichero que deberá utilizarse existe o 
debe crearse. 


La foto muestra la máscara vídeo de introducción de 
datos consiguiente a las anteriores definiciones. 


AAA 


A A A TE A ES 
ALE 
E 

Busqueda con variacion 
Disco directorio 
Impresion 

Fin de tarea 


ATERA 





AAA IAS 


introducir el disco que contiene los 
AO AO AAA 


AUS E MA 





TA EA 
creacion fichero datos 


nombre 


apell. 





Terminadas las introducciones, el programa pasa 
a la memorización de los datos en el disco. 


| Máscara vídeo para el ordenado. En esta función 

| (ordenado de los datos) se presentan todos los campos 
| que forman el registro, poniendo de manifiesto el 

| elegido como clave de ordenado con el símbolo '«”. 


Terminado el ordenado puede procederse a la 
búsqueda. La foto muestra la fase inicial de esta 
función. 


| Elusuario ha pedido el nombre “Román”, que está 
|. memorizado en el registro n.* 2. El sistema lo selecciona 
(en base al campo “nombre”, y presenta su contenido. 
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introducir el disco datos 
y pulsar una tecla 


LAA 


CFE IDAS 


4 en el campo clave del ordenado 





Ediciones Forum, 


Busqueda con variacion 


INTRODUCIR EL NUMERO DEL REGISTRO 
= busca en el campo clave 


= vuelve al menu 


21M 


Ediciones Forum, S.A. 


SS E 


EIA Bayona 


tel. =2092157 





Base de Datos/Versión Commodore 64 


Cargador 
10 REM o otoaoii 41161 IFX<1OTHENJ1$=CHR$(32) 
28 REM BASE DATOS C-64 4% 41162 COSUES1000:PRINT"EHOLUNNA: 2",J13,%; TABC?) "NLINER- 4 ¿J2b5 1-1, 
DO REM AAA 41163 PRINT" MH-+1= 4104205 
25 POKES3280, 14: POKES3281,6:PUKEESO. 0: PRINTCHES(1420HE5(8) 41178 RETURN 
49 PRINT"0J":PRINT"39BBINTRODUCIR El NUMERO CORRESPONDIENTE" 41130 REM 









MBIAL PROGRAMA PEDIDO" 41135 REM COMANDOS 


















ESCALEON DEFINICION WIDEO" 41150 REM 
BD FORMATOS IMPRESION" 412060 REM 
EXC TRABAJO CON BASE DATOS" 41210 IF A=19 THEN X=X+1:X2=X-1:2=Y:COSUBSSOBO: IF X>38 THEN X=1:A=26:G0T0 41240 
47 PRINT"MIBBRDIDDE GON FIN" 41220 IF A=1 THEN X=x%-1: +1: 12=7Y: COSUESSOOB: IF x<1 THEN x=22:H=23 
50 INPUT" MUMMBBELECCION : "RE 41239 IF A=23 THEN Y=Y-1:xX2=%:Y2=Y+1: GOSUPSSOBO: IF W<2 THEN Y=2 
55 IF R<1 OR R>3 THEN 40 41240 IF A=26 THEN Y=W+1:x2=X:Y2=-1.COSUESSOB: IF 1921 THEN Y=2 
56 IF R=2 THEN PRINT"/J":END 41250 IF A=13 THEN X2=X:W2=Y:GOSUE S5000:x=1:Y=4+1:1F v>21 THEN Y=21 
57 PRINT "CIA" S PCC) "ESPERAR LA CARGA. POR FAWOR" 41260 IF A=9 THEN COSUB 412360 
£6 ON R GOTO 100,209 41276 IF A=21 THEN GOSUE 41406 
100 PRINT"2EPOKE43, 1:POKE44. 2 PUKE4S. 3: POKE46.+5: POKE97, 3: POKE42, 3" 41220 1F A=15 THEN X2=x:W2=Y:GOSUBSS0460 -COTO4 1460 
110 PRINT"POKE43, 3: POKESO. E: POKE4096. 0: LOAD"CHES(34)"D1"CHRF(34)",8" 41290 1F A=l6 THEN GOSUB 44000 
128 G0TO01009 91304 CUSUE 41158:COTO 41100 
200 PRINT"*EPOKE43, 1:POKE44,8:FOKE4S, 3: PUKE46, 8: FUKE47, 3:POKE42,8" 41310 REM 4a44RRR CARACTER dado 
210 PRINT"POKE49, 3: POKESO, 3: POKE 4096 1: LUAD"CHR3:39)"D2"CHR$(34)",2" 41320 GET 13:1F 1$<>"" THEN RETURN 
1900 POKE193, 10: FURL=631T0640 : READN: PUKEL+N-HEXT 41321 IF I$="" THEN 41322 
1019 DATA19,13,145,145,13.82,25,72,58,13 41322 IFASCC1$)=SSBURASCC 1 $)=S90RASCCIG=44 THEN 41320 
1050 REM : 41322 LC=1024+(404'7)+x: CH=PEEK(LC> 
1951 REM Di = GENERACION 41324 POKE LC,CH 
1052 REM 41326 FOR T=1 TO 40:NEXT T 
1053 REM D2 = IMPRESIUN 41322 1F CH>128 THEN FPOKE LC.CH-122:G0T0 41326 
41320 POKE LC,CH+123 
á 41332 GOTO 41220 
inici 41260 REM INSERT 
Definiciones 41362 Pl1=0:P2=V440+X:Pl=(Y+1)440-2 
29999 REM 41365 FOR I=P3 TO P2STEP-1 
406 REM PROGRAMA PARA : 41366 X=35-P1:L1=1024+(1-1):L2=1624+01440)+%: CH=PEEKCL1 > 
40001 REM DEFINICION MASCARA “IDEO 41367 IF CH=166 THEN CH=32:GOTO 41369 
40002 REM Y FORMATOS IMPRESION 41363 1F CH>122 THEN CH=CH-128 
40003 REM 41369 POKE L2,CH 
40030 HOS="1":POKE 650,128: PRINTHOS;CHR$(19); 41270 P1=F1+1:NEXT I:GOSUBEGO0O:PRINT" " 
40035 M3=28 41330 RETURN 
40099 DIM DÍCM3),) TPCM3) ¿LOC NDCM3B E DCMAZO PDD AB) CMD 41400 REM EURRADO 
48045 DIM FOS(M3),FTSCM3),NSgCM3 41405 XF=X:P1=0:P2=4440+X:P3=(Y+1)440-2 
40050 5P$="":FORI=1T040:5P4=5PG+CHR$032) NEXT 1:S14=5Pg+5P4 41410 FOR_I=P2 TO P3 
40070 Hl$=" 7.1.0. DICIONES -ORUM. 4.4." 41415 X=XF+P1:L1=1024+(1+1):L2=1024+(4440)+x : CH=PEEK(L1> 
40200 REM ARARRRRR 41420 IF CH=160 THEN CH=22:G0TO 41425 
40201 REM A MAIN k 41422 IF CH>123 THEN CH=CH-128 
40203 REM AARRARAA 41425 POKE L2,CH 
468216 CLOSE1 :CLOSE2:CLUSE1S 41430 P1=P1+1:NEXT I:GOSUBEDO00:PRINT" "; 
40230" GOSUE 46000 41435 X=XF : RETURN 
44240 UN OPZ GOSUE 41000. 45000, 42508 414€0 REM 
40258 GOTO 40200 414€1 REM LECTURA MASCARA VIDEO 
41000 GOSUB43500: FRINTHOS: POKES3280, 14 41462 REM 
41010 X=1:Y=2:GOSUE 41150:GOSUE 41026:GCOTO 41078 41465 X1=0-Y1=23:GO5UEG1000-PRINTLEFTS(SF$- 1305" 0 17 A LEFTSCSPG, 120) 
41020 A$="-":FOR I=1 TU 32:Lg=LG+HS: NEXT 1 41470 REM 
41030 L1i$=" else" Lag=" Leg" 41500 YW=1:FD=0:PC=4 
41040 X1=1:Y1=0: GOSUES1000:PRINT"M"H1S; "Mm", 41510 FOR JJ=2 TO 21:J=JJ440:YY=YY+1 
41050 PUKEG46,7:PRINTL1S; FOUR I=1 TO 20:PRINT" 1"+LEFTS(SPS.23)+" 1": NEXT :PRINTLE 41528 FOR K=1 TO 
$; 415230 CH=PEEK(1024+(K+J)):GOSUB 62000 
41055 PRINT "3"; 41535 REM 
41060 RETURN 41548 IF CH=38 THEN 41€60 
41076 REM 41550 IF CH=35 UR CH=36 OR CH=37 THEN 41570 
41071 REN GENERACION 41560 IF CH<>32 THEN 41778 
41072 Ri 41562 COTO 41730 
41090 FOR I=1 TO M3:LCC<DD=6: TPC =0:NDC1I)=6: NEXT 1 41570 PC=PC+1: IF PCOM3 THEN 41810 
41100 GOSUB 41310 41520 IF CH=2€ THEN TP<PC>=3:GOTO 41598 
41119 A=ASCCIL> 41582 IF CH=25 THEN TP<PC>=1:G0TO 415598 
41111 IF A=58 OR A=44 OR A=59 OR A=5 THEN 41130 41554 TP<PC>=2 
41112 IF A<32 THEN 41138 415909 LCOCPCI=1 VOCES YY XOCPCI=K :ND(PC)=8 0 H6=0 
41120 IF A>95 THEN 41160 41600 K=K+1:1F K=40 THEN 41770 
41130 GOSUESOBO0:PRINT"3"1$:X=x+1:1F X932 THEN X=28 41619 IF Wé=1 AND CH=36 THEN 41770 
41132 GUSUE 41150 41620 IF PEEKC1024+(J+k))=0H THEN LO<PCI=LCCECI+1 GOTO 41622 
41148 BOTA 41100 41621 GOTO 41638 
41159 REM 41622 IF MW6=1 THEN ND<PC>=ND¿FC>+1 


41160 J13="":J2$="":x1=1:Y1=23:COSUEG1000:FRINTSP$; : IFY<1OTHENJZ$=CHR$(32) 41624 GOTO 41608 


W=PEEKC1024+(J4K)):1F Y=1680 THEN Y=32:GUTO 416235 


2 IF Y2123 THEN Y=-128 


IF =46 AND o=98 THEN LCCPCI=LCCPCI+1 M6=1: GOTO 41600 
IF Ve32 OR Y=110 0R Y=93 DR Y=125 THEN K=k-1:G0T0 41734 
IF 42538 THEN 41770 

REM DEFINICIONES 

PD=PD+1:1F FDOM3 THEN 41810 

DICPDO=S "RIC PDI=E+1 DP ="" 

Ksk+1: IF K=39 THEN 41770 
KH$=CHR$CPEEKC1024+(K+J5)):A1=ASCCKHG0 0 IF A1<3Z THENH1=A1+64:KHS=CHR$ CAL 
IF KH$="2" THEN 41730 

DICPDO =D PD +KHE 

GOTO 41690 





SA NEXT K:3HFXT JJ] 





AA=B:FOR I=1 TO M3: ARA=AR+LCOCIO NEXT 1 
IFAR>123THEMH$="LONG. CAMPOS + 123" :GOTO 41205 

GOTO 41350 

REN RARA ERROR RARA 

Hé="ERROR EN LA LINEAR "+STRSC"Y-1):G0TO 412320 
H$="CAMPOS O DESCR. 2"+5TRSCIMS, 

GOSUBE1000:PRINTHE;" : CORREGIR “;:FOR T=1 TO 4090:NEX<TT 





















A1=1:Y1=23: 
y lis: ri= 27 GOSUEC1000-PRINTLEFTECSPG 3800 0=1 =P: GOSUBE 41150:C0TO 41070 
B REN qe DEFINICION CALCULOS 4d 
2560 REM 

Mi=PC:NE=0 
415590 FOR I=1 TO Mi 
41900 1F TPcIo=3 THEH 41930 
41510 x1=aC0C10 0 1="C2 10 0 COSUEG 1000: PRINTLEFTECSFS LOCO 
41920 GOSUfE1000:PRINTSTRECIOS 
3139:368 NEXT 1 
41540 1=0:Y1=23:COSUEC 1000: PRINTLEFTSCSPG. 39); 
41950 FOR I=1 TO Mx FOSFCI)="" 
41560 At TP0O<2 THEN 42070 
413970 + Y1=23:GOSUBE 1000: PRINT" INTRODUCIR LA FORMULA DEL CAMPO"; 1; 
41972 
413930 > ¿2 41=35 'GOSUES 1000: PRINTUACA"; 
41990 COSURa1318: 7 IS=CHRS CIO THEN a TF X<4 THEN =4 
42000 1F I$=CHR$C139) THEN s=+1:1F THEN 4=34 
42010 1F I$=CHRS$C13) THEN 42050 
42020 1F ASCCISI CG ZORASCCIGI 35 THEN 41350 
42038 COSUBEDUDO :PRINTUA IS; 4= +10 1F 25234 THEN %=34 
42044 GOTO 41930 


30 FOR H=1922 TO 2018 


LH=FEEKCH) 
GOSUE EL040 


¿067 FORD =FOSC IO ACHRECCH) NEXT OH 
2 41=3:1=24 :COSUES1000: PRINTLEFTSCSPE,36)5 


HET 1 


y 5 I=1 TO 1000:NEXT 1:3=2: RETURN 


FE 
En MEMORIZACION MASCARA 


2 REN 


PRINTHOS*%1=12:1=6 :COSUBG1000:PRINT"HA | 7 A TO 





347 41=53:Y1=12:GOSUEC1000 


Y PRINTS TT a LA A 


=3:Y1="1+2: GUSUBE 1000: FRINT"FL O TA 0 RT A TIA 
4l1=11:1=20:GOSUBE1000:PRINT""*l40t- 4% 1718" :POKE 198,0: WAIT 198,1 
21=0:Y1=20:G05UB61000:PRINTSPE, 
Al=3: COSUBE1000: PRINT"2 AY QUE FORMATEAR EL DISCO ? ¿Fw VE " 
GET RI$:IF RI$<9"5" AND FRI$<>"N" THEN 42324 


6 IF RIS="N" THEN 42550 





11=20:C0SUBE 1000: PRINTSPS; 


3 sa: COSUEG1000:PRINT"H- TP -1t17t>= Tr" 


DFEN13.3,15, “NO: BASIC ADYANCED,61":PRINTR15."1"-CLOSE1S 
OFEN1,8,15,"1/0" :GOSUEE 3004 


2 CLUSE1:IF ER<?06 THEN 42505 






11=20: G05UBE1000:PRINTSPS; 
A ¿GOSUBE100B:FRINT"RA RA O TY 
DPEN2,8,3, "B0: DEFI2, SED. Li" 


Ez FOR RE=1 TO M3 
4 Es="" 
52 L=LENMCDE CRE) 3: IF L<16 THEN DCRE>)=DS$(RES+LEFTECSPS. 10-15 





IF L510 THEN DSCRE>=LEFTS$CD$CRES, 10) 
¿DISSTRGCRDORES) 

IF ADCRE><16 THENXDE="9"+RICHTECADE, 12:GOTO 42520 
SR IGHTELADE. 20 

DI+RIGHTE LS TRECE) 2 4+DECRES 

br ARICHATE CS TRECACORES 0.2) 
R3=R4+RIGHTECSTRECYOCREJ DI 20 






ES$=R3+RIGHTECSTRECLOCRES 7.25 





00 Ri=ki+RICHTECSTRECTPCREJD 20 


42095 
42660 

2665 
42667 
42669 
42570 
42620 
42685 
42690 
42695 

2708 
42705 
42710 
425300 
423302 
42304 
423506 
42502 
42510 
43312 
42314 
43515 
43517 


43519 











H+RIGHTECSTRECNDORE9 2,25 


O Ri=k9+"08" 


PRINTRZ, EF 

NEXT RE 

CLOSEZ 

OPENS. 2,3. "20: FORB.SED. 1" 

FOR RE=1 TO M3 

ZS=STRICRE>: IF RECIO THEN 24="9"+RIGHTSCZ$, 1):G0TO 42622 
23=RICHTEC24,2) 

L=LENCFOSCRE> 22 1F L<2 THEN FUSCRE>=FOUSCRE++LEFTSLSPL.20-Lo 
FOS(RE>=LEFTSCFOSCRE, 3500 

Ei=2i+FOS(RE>)+"00" 





BD PRINTRZ,R$ 


NEXT RE 

CLOSES 

UPENZ, 8,3, "Bu :PINB, SEL." 
IFII$=""0RI1$=5P3+SP4+"  "THENIIS="":FORI=1T032:11$=11$+"4":NEXTI 
FRINTR2. 114; 

CLOSE2 

OPENZ, 3,3, "60: PDFE. SED." 

IF TS$="" THEN Ts$="90" 

FOR RE=1 TO 113 

TSESTSH+FTECREI+NSSCRE) 

NEXT RE 

PRINT42, 154; :CLOSE2 

RETURN 

REM INSTRUCCIONES 

X1=10:Y1=2:PRINTHOS : POKES2230.6 

GOSUES100B: PRAT AA, 
W1=1+1-COSUES1000:PRINT" BAP AA | 
OUSUBE61 000 : PRINT* y ————_—_—_—_—__—- 1! 










GOSUES 1899: RINT" MITA TY 3" 
41=0:Y1=3:GOSUPE1000:PRINT"1) LAS DESCRIPCIONES DEBEN INTRODUCIRSE" 
W1=Y1+1:G0SUES1000:PRINT" ENTRE DOS CARACTERES % AEEJ,: BA ma 


Yi=Y1+2-G0SUES1000:PRINT"22 LS CARACTERES XI HR MA, 9713 3, 2710, DEFINEN 





ida =11+1 -COSUBE100B:PRINT" EL TIPO DE CAMFO : “Ha = NUMERICO" 














43520 OSUESIVOD:PRINT" O MA = ALFANLIMERICO. “A = DE CALCULO" 

43322 UP61600:PRINT"S "L NUMERO DE CARACTERES "M3. Ma DA INDICA " 
43323 UBE1000:PRINT" LA LONGITUD DEL CAMPO CONSIDERADO  " 

43524 ¿GOSUES1000:PRINT" EJ: 34344 CAMPO ALFANUMERICO" 

43525 :GOSUEC1009:PRINT" DE 3 CARACTERES" 

42348 y]= 2: CUSUEC104-PRINT"S) “L PUNTO ENTRE Los pl E O 
43541 Y1=Y1+1:COSUES1000:PRINT" LS SEPA 

42342 Yl=Y1+1:COSUES1000:PRINT" 

42344 wvi=41+1:COSUBE1000-PRIHT" 2 DE ELLOS DECIMALES" 


4254 


2 FOR I=2T0Z2 













RACTE! 
3 X1=12:Y1=24-CUSUES1000:PRINT"*PULSAR UNA TECLA": 


2 Y1=Y1+2:COSUEC 1600: PRINT"6> 


3 Yi=Y1+1 CUSUESIODO:PRINT" E: P.E. 
2 Y1=Y1+1:C0SUPE1000-FRINT" CALCULOS SON : MAIO<NI A TE 








GET K$:IF Kg THEH 435350 
«1=0:Y1=] :COSUECIDOD:PRINTSFE; NEXT 1 
A1=0- Y1=2: EOSUES1009: PRINT"X5) LA LONGITUD TOTAL DE LOS CAMPOS. 0" 
Yi=Y1+1-COSUEC1O60-PRINT" TODOS LOS FR MALOS FIG A" 

Wi=1+1-GUSUEE1000:PRINT" SER COMO MAXIMO 128" 

WEI LAS DESCRIPCIONES — " 
Yi=Y1+1:GOSUES1006:PRINT" NO DEBE SER SUPERIOR A 10 " 
Yi=Y1+2:GUSUEC1O00:FRINT") CH LAS FORMULAS DE CALCULO. EL HUMERO" 
Y1=Y1+1:GOSUESIDOD:PRINT" DEL CAMPO DEFE ESTHER ENTRE COMILLAS  " 
CCAA O ALO 
SUEG1006:PRINT"S) LAS FUNCIONES UTILIZHBLES EN LOS" 
A A 
OS TOC AT AIN 











Yi=41+2 





Y1=Y1+1 :G0SUBS1000:PRINT" 
GET K$:1F K3="" THEN 43600 


RETURN 
FEM 44 AYUDA «% 


X1=0:Y1=23 
COSUES1000:PRINT" BARRA ESPACIADORA PARA CONTINUAR: a 


s cOSUE 44130 





ES1009-PRINT" Ts : INSERCION CARACTER Ed 
COSUE 44120 
COSUES 1000: FRINT" 7 1+/ : BORRADO CARACTER >4 
COSUB 441230 - 
b13 COSUES100D:PRINT" HA: INTRODUCCION Y COMYAL. e 
CUSUE 4412 
C 11447 : PIDE LA AYUDA E 
í 
E = 1. : LLEYA CUESOR AL FRINCIFIO ME 
GOSUE 44135 





44030 
44032 


4903 36 


A OE PRINT" —1-L+% : DESPLAZA CURSOR A LA IZGUIERDA "; 
COSUE 44130 


COSUES1000:PRINT"  —1-L+4 : DESFLAZA CURSOR A LA DERECHA "5; 
GUSUE 441808 

COSUFS1000: . 1-40 : DESPLAZA CURSOR ARRIEA 5 
COSUE 4413 

cuSure 1008: PRINT" —1-L+06 -: DESPLAZA CURSOR ABAJO  "; 
COSUE 44138 

EOSUES 1008. PRINTLEFTS$<SP$, 29); 

RETURN 

REM 

GET K3: IF K$<>9CHR$(32) THEN 44182 

RETURH 


Y REM LECTURA DATOS 


PRINTHOS :X1=12:W1=6:COSUBS1000:PRINT"NM | "=> FO” 


> A1=X1-2:Y1=1+2: GOSUES1000:PRINT" A 1 A AAA O 


X1=5:Y1=12:C0S5UB61000 

PRINT"HA TT "7 LA “JB 0] " 

X1=1:1=Y1+2: COSUB61000:PRINT"XL OT 008 T 4 Lts TAN 
X1=11:v1=20:G0SUES1000:PRINT"“N14o0%- /1% 1 —12":POKE 193,0: WAIT 195,1 
21=0:Y1=20:G0S5UBE1000:PRINTSPS; 

OPEN1, 8,15, "1/0" : GOSUB63000: IF AD<70 THEN RETURN 
DPEN2,8,3."0:DEFE, SED, R" 

INPUTR1,AD,X$,CD,DD:IF AD=62 THEN GOSUBE3050 : CLOSE 1 : RETURN 

FOR RE=1 TO M3 

INPUTH2, ES 

ADCRE)=YALCMIDECAS.1.2)) 


3 YDICRE>=YALCMIDICRI, 3,27) 


DICRE>=MIDS$CR$,5, 10) 


5 ACCREI=WALCMIDICRS, 15,25) 


44570 WCLRE+=WALC(MIDECAS, 17,27) 

44973 LCCRE>=WALCMIDSCR$, 19,2)) 

44580 TP¿RE>=VALC(MIDSCR$, 21,25) 

44523 NICRE>)=WAL(MIDSCR$,23,2)) 

44590 NEXT RE:CLOSE2 

44593 UPEN2,2,3,"0:FORG,SEG,R" 

44500 INPUTR41,AD.$,CD.DD:IF AD=62 THEN COSUPBE3050 : CLOSE 1 : RETURN 

44605 FUR RE=1 TO 13 

44610 INPUTRHZ,R$ 

44615 FOS(REI=MIDECAS, 2,30) 

44520 NEXT RE:CLOSE2 

44700 CLOSE1 : RETURN 

45000 REM 

45001 REM DEFINICIONES PARA IMPRESION 

45002 REM 

43025 1F 5=0 THEN d5=2:G0SUB 44500: 1F AD<?0 THEN d5=0: RETURN 

45027 POKE192,0:1$="" 

45030 PRINTHOS:POKES46.1:X1=0:v1=0: COSUB61000: PRINTH1$:X1=0:W1=6: GOSUB61090 
45032 PRINT">»NTRODUCIR LA CABECERA (MAX. 80 CAR.) M?":A=0 

45034 GET H$:IF H$="" THEN 45034 

45035 A1=ASCCH$>: IF A1=13 THEN 45069 

45036 IF A1=20 THEN PRINTHS; :A=A-1: I$=LEFT$(1$,A>:GUTO 45034 

45037 IFCA1<ESORA190>)AND(A1<1930RA1>218>)AND(A1<480RA1>957 )ANDA1<>32THEN45034 
45038 I$=1$+H$:PRINTHS; 

45049 A=A+1:1F ACSO THEN 45034 

45042 IF A=80 THEN XP=0:G0TO 45090 

45060 IF LENCI$><=0 THEN 45000 

45062 X1=0:Y1=13:005UBE1000:PRINT"HNTRODUCIR COLUMNA PRINCIPIO IMPRESION" 
45070 X1=10:Y1=18:GOSUBS1000: INPUT "mM";xP: IFXP<OORXP220-ATHEN 45039 
45090 IFXP<1OTHENAS="0"+RIGHTSCSTRSC(XP>,1>:G0TO 45100 

45095 A$=RIGHTS(STRSCXP>,2) 

45100 11I$=A$+1$+LEFTS(S1$, 20-LENCIS)) 

45110 REM 

45120 REM TIPO DE IMPRESION 

45130 REM 

45140 PRINTHOS : POKE646, 1:X1=0:Y1=0: GOSUB61000:PRINTH1$:X1=5:Y1=8:GOSUBE1000 
45142 PRINT""LEGIR EL TIPO DE IMPRESION: ” 

45145 X1=11:Y1=12:GOSUP61000:PRINT"Mi>21 HORIZONTAL" 

45150 W1=vy1+2:G0SUBS1000:PRINT"M2>3H VERTICAL  " 

45170 GET A$: IF A$<>"1" AND A$<>"2" THEN 45170 

45180 TS$="09"+A$ 

451908 PRINTHOS:X1=0:Y1=0:GOSUB61000: PRINTH1$ 

45200 X1=2:Y1=5:GOSUBS61000:PRINT""N LA SIGUIENTE MASCARA DEBERAN"; 

45202 PRINT"M SELECCIONARSE LOS CAMPOS A IMPRIMIR, " 

45210 X1=2;W1=9:G0SUBS1000:PRINT"INSERTANDO LA LETRA “ATTEA” SI EL CAMPO" 
45212 PRINT"M  <NUMERICO O DE CALCULO> DEBE M TOTALIZARSE. " 
45220 Y1=17:GOSUBG1000:PRINT"MEJ.: 2-T1-15-T6EN+ IMPRESION DE LOS" 

45221 PRINT" CAMPOS Mea mia mi5a Y Méx CON TOTALIZACION" 

45222 PRINT" DE LOS CAMPOS Mia Y mex” 


45230 


45250 
45260 


45380 
45390 
453939 
45400 
45410 
45420 
45430 
45440 
45445 
45450 
45460 
45470 
45480 


X1=11:Y1=23:G0SUB61000:PRINT"2PULSAR UNA TECLAA"; 
POKE198,0:WAIT198, 1 

PRINTHOS : GUSUB41828:FORI=1T0M3: IFLEFT$C(D$C17,3)=" — "THEN 45270 
so: Y1=YDC1):GOSUBE1008:PRINTDSC1> 

FORI=1T0M3: IFTP<1>=0THEN45300 
X1=XCC1):Y1=YCC( 1) :GOSUBE1000: PRINTSTRSCI> 


NEXT 1 , 
X1=0:Y1=23:G0SUB61000:PRINT" INDICA CAMPOS A IMPRIMIR <P.E. 2-T3-1)";:POKE1 
W1=Y1+1:G0SUB61000: INPUTB$:LL=LENCBS> 

AS="":C=9:FORI=1TOLL 

C$=MIDS$C(B$, 1,1): 1FC$="-"THENGOSUE45370 : G0TO43360 

A$=A$+C5$ 

NEXT 1: 1I=1-1:G05UB45370 : RETURN 

REM 

C=C+1 

L=LENCAS) : IFLEFTSCAS, 19="T"THENFTS(C>="81" :L=L-1:A$=MID$(A$,2,L>:607045400 


FTS$(C>="060 

V=YAL CAS) : IFY=0THEN45470 

IFTP(W)=0THEN45470 

IFTP<Y)=3 THEN FT$(C)="B0" 

IFL>20RL<1THEN 45478 

IFL=1THENNS$(¿C>="9"+A$:COTO 45450 

NS$(C)=AS 

IF I=LL THEN 45560 

As$="": RETURN 

REM ERROR 
PRINTHO$S:X1=15:Y1=11:COSUB61000:PRINT"" TF" 
FORT=1T01200:NEXTT:FORI=1T0M3:FT$(1>="":N5$(1)="":NEXTI 
PRINTHOS :X1=10:Y1=10: COSUBS1000:PRINT"3M 1 MA CONTINUO" 
Y1=Y1+2:G05UES1000:PRINT"3M 2 Wa VUELVO AL MENU" 
X1=13:W1=17:COSUBE1000:PRINT"UAL 2" 

GET AS: IF A$<>"1" AND A$<>"2" THEN4SS30 

IF A$="2" THEN RETURN 

COTO 45259 

FORI=C+1 TO M2 

FTEC1="00" NS$CIO="00" NEXT 

REN 


y IFTS$="92" THEN 49044 





45600 E=1:FORI=1T0M2: A=WAL(NS$C 100: IFA=0THEN4S62U 
45610 P=E+LC(Hm+1 

45520 NEXT 1 

45630 IF E>S0THEN 45470 

45540 RETURN 

456000 REM 

46001 REM MENU 

46002 PRINTHOS : POKE546.1:x1=0:"1=1 :GLOSUES1IO00: FRINTH1S$ 
46005 X1=12-v1 USUPE 1000: PRINTS Ta 
45007 «1=12:Y1 OSUBE 1008 : PRINT ————————— a! 
45010 X1=4:Y1=11:GOSUEG1000:PRINT"%a 1 M4 REACION MASCARA” 






2 IF Ci=160 THEN Ci=3 


60000 
60003 
500610 
61000 
61005 
s1019 
52000 
62005 
52610 
52015 
52020 
63900 
62005 
63011 
63012 


Y1=12:GOSUPE1000:PRINT"*I 2 M4 “EFINICION FORMPTOS IMPRESION" 

p : 3 M3 |RABACION FICHEROS DEFINICIONES" 
:GOSUPE1000:PRINT"31 4 M4 -IN DE TAREA " 
POKE 198,0 


O X1=12:Y1=21-COSUEG1060: INPUT" +HUAL - NAS 


OPZ=WALCAS$3: 1F OPZ<1 UR 0PZ74 THEM 46100 
IF 0PZ=4 THEN PRINTHOS:POKE 64€. 14:END 
RETURN 

REM RESTAELECIMIENTO 

L1=1024+(40KY27+%2 : 






1=PEEK(L1> 
¿GOTO 535015 
IF C12123 THEN C1=C1-122 

POKE L1,C1:RETURN 

REM _PRINT AT 

POKE 211.X:FOKE 214.%Y 
Sys52732 : RETURN 

REM PRINT AT—II 

POKE 211.,X1-POKE 214,1 
31352732 : RETURN 

REM CONVERSIONES CARACTERES 

IF CH=160THEN CH=32: RETURN 

IF CH>123 THEN CH=CH-128:RETURN 
IF CH<22 THEN CH=CH+64 : RETURN 
RETURN 


O REM CONTROLES DISCO 


ER=0: INPUTH 1. AD. +$.CD. DD 
IF AD=0 THEN RETURN 
IF AD=21 THEN X3=" ERROR EN UNIDAD DISCO ":ER=1 


63020 IF AD=72 THEN X$="ESPACIO UTIL EN DISCO AGUTADO":El 
e3022 1F AD=74 THEM «$=" UNIDAD DISCO HO EN LINEA ERE 
53041 X1=0: 











SUP61000:FRINTSFG; 


53042 41=5: COSUBC1000: PRINTS: POKE1SS. 5: WAITI23:1 
63045 RETURH 


23059 x$=" NO HAY EL FICHERO DATOS ":ER=4:GUTO 62041 
Main 

5 RENA ed dl Ad 

6 REM Ak * 


7 RE 


MX BASE DE DATOS C-64 * 
k 


2 REM k 


3 REÍ 
13H 
15D 
20 D 
21D 
24 El 
25 Pl 
26 Pl 
27 R 
uk 
35 Fl 
40 Fl 
41 KR 
42 R 
43 Y 
45 3 
50 Q 
50 Fl 
7 Fl 


E A A 

RINT"T":PRINTCAR$C 1455 :M3=20:MF=100 

11M HLUNCIM3 7, HNDCOM3>, ISCMRA SAM) FTCM3), 28 c 113) 

111 B$(113), TP (M3), LCCM3),) NDC1M13), CM), CY M3), DXCM3 , DY CM3), HTPC) 
111 TFC15),D$(M13),H$(12),F$(113), DASCMR> 

Lé$=" ":PD$=".":AS$="$":NS$="4" :SU$="M" :GIUS="M":HOS$="07" :SL$="/" 
OKE 650,128 

RINTHOS 

En e LECTURAS DE SERVWICIO dkik 

ESTUR 

UR 151 TO 15:READ TF(1>:NEXTI 

OR 1=1 TO 12:READ H$C1):NEXTI 

EAD H1$:READ PROG$ 

EAD YN:FORI=1TOVN:READ YO$(1>:NEXT 

0$(1)="_IN DE TAREA" 

Pg="":FOR I=1 TO 40:5P$=5P$+CHR$(32) : ZE$=ZE$+"00" : NEXT 

$": Fg="-": FOR [21 TO 38:0$20$+F$:NEXT 1 

OR 1=1T05:READOP$(1) :NEXT 

ORI=1T06:READFZ$(1):NEXT 

REN 
REM 
REr 





mM 
GOSUB 1300:REM MENU 
PRINTHOS 


Y IFOPZ=0THENFORI=1T01000 : NEXT : PRINTHOS : PRINTCHR$(142) :POKE646, 14 :END 


ON OPZ GOSUB 4500,5500, 14000, 12000, 16000 

GUTO 230 

REM ESPERAR 

a AAA 8 AN vs 77 4 23" RETURN 





1300 

1310 

1320 REM 

1322 PRINTHOS :POKE198,0:AD=9:x$="":CD=0: DD=9 

1335 X=1:w=8:GO0SUE1 1000: PRINTH1$ 

1340 L=LENCPROG$) :LL=(408-L)/2 

1345 X=LL:=3:005UB11000:PRINT" a"PROG$ 

1347 X=LL-1:w=4:605UB11000:FORI=1TOL+2:PRINT"Em"; : NEXT 
1350 FORI=1TOVN+1:%=7:A=1: IFI=VN+1THENA=0 

1360 Y=3+142:G05UE11000:PRINT"M";A; "mM aa Ai NEAL 
1370 4=26:W=23:G0SUB11000:PRINT"HUAL? < qe 

1380 GETIS:0PZ=WAL(1$): IFOPZ<=YNANDOPZ2G0R1$="0"THEN1480 
1398 GOTU1390 

1400 x=33:Y=23:G05UB11000:PRINT"Wa";OPZ;"M " 

1410 FORI=1T01000:NEXT: RETURN 


zo 
m 
Xx 


2085 REM dlok PRESENTA MASCARA dalok 
2019 NUC=5M3:PRINTHOS:X=1 :Y=0:COSUB11000:PRINTH1$:POKE 646,7 


X=0:Y=1:GOSUB11000:PRINT" r+as+"a"; 


2015 FORY=2T021:GOSUB11000:PRINT" 1";+LEFTS$(SP$,33)+" 1";:NEXT Y 
2017 X=0:Y=22:G0SUB11000:PRINT" *"+0$+"4";:POKE 646,1 
2020 FOR J=1 TO NUC:IF D$(J)=LEFTS(SP$,10) THEN 2025 
2022 X=DXC(J):Y=DW<J>:GOSUB11000:PRINT"A"5D$CJ> 

2025 NEXT J 

2030 FOR J=1 TO NUC 

20232 As="" 

2039 IF TPCJ>=0 THEN 2130 

2050 IF TP(J)<95 AND TPCJ><54 THEN 2 

2054 X=CXCJ):Y=CY(J):GUSUB1 1000: PTA" BECI) 

2056 GOTO 2130 

2069 HisLCCJ):N2=ND<J): 1F TPCJ>=1 THEN C$=NS$:G0T02070 
2062 IF TPCJ>=2 THEN C$="%":COTUZ2078 

2064 Cé=AS$ 

2065 IF Ni=1 THEN 2075 

¿070 FOR l=1 TO Ni-N2-1:A$=A$+C$:NEXTI 


IF N2=0 THEN A$=A$+C$:G0TO 2095 


Y AS=AS+PDS$ 


FOR I=1 TO N2:A$=A$+"0" :NEXTI 
ASCACJ):Y=CY(J):GOSUB 11009 
PRINT "MU ¡A$;"a" 

Bs(J)="" 

FOR K=1 TO N1-N2-1 
ESCJ)=ESCJ)+BLE 

NEXT K 


> IF N2=0 THEN BS(J)=BS$(J)+BLS$:GOTO 2130 


BSCJ>=BS$CJ4PDS 
FORK=1TONZ: B$(J)=B$(J>+BL$ : NEXTK 


REM xk DATA ENTRY ak 
J=1:NUC=M3:POKE198, 0 
NC=J : X=CXUNC) : YC (NC) 
CC=1 
GOTO 3248 
IF FS=0 THEN 3109 
IF FS>4 THEN 3210 
GOTO 3120 
REM CARACTER 
J2J+1:1F J>NUC THEN 3030 
COTO 3048 
ON FS GOTO 3130,3150,3170,3198 
IF J>1 THEN J=J-1:G0TO 3040 
FS=8: J=NUC:GOTO 3040 
IF J<NUC THEN J=J+1:GUTO 3040 
FS=0:G0TO 3038 
IF CCXLCCJ) THEN S=1:CC=CC+1:%=X+1:G0SUB 11000:GOTO 3060 
FS=8:GOTO 3100 
IF CC>1 THEN S=-1:CC=CC-1 :X=X-1:GOSUB11000:G0TO 3069 
FS=0:GOTO 3048 
REM 
IF FS>8 THEN FS=06:GOTO 3860 
IF FS=8 THEN FS=6:GOTO 3100 
RETURN 
REM 
REM dk LECTURA DE 1 CAMPO xk 
FS=0 
IF TPCNCI=0 THEN 3070 
IF TPCNC)=4 THEN 3078 
IF TPCNCI<32 THEN 3310 
GOTO 2500 
GOTO 3070 
IF MIDSCBESIONC>),CC,1)=PD$ THENX=X+S : CC=CC+S 
GOUSUB 11008 
CET A$:IF A$<>"" THEN 3338 
AL qTÍÑÉÁÉ AAA 
IFASCCAS>=190RASCCAS )=200RASCCAS>=1470RASCCAS)=148 ORASCCA$)=141 THEN 3320 
PRINT"Ma" AS; 
E 
I=1 TO 15 

Te A ELaCA THEN FS=1:1=15:G05UB3630:G0TO 3070 
IF FS=9 THEN 3070 
NEXTI 
IF TPCNC><O1 THEN 2450 
IF CA=45 OR CA=46 ORCCA>=48ANDCA<=57 )THEN3420 
GOTO 3330 
IF CA<CO46 THEN3450 
GOSUB 4270 
2 SHP=1 THEN 3410 

=1:GOSUE 3520 
TF CC=LC(NC) THEN 3070 
CC=CC+1:X=X+1:G0TO 3310 
REN 
REM 4k TRASFERENCIA AL BUFFER xk 
REM 


9 IF CC=1 THEN SN$="":GOTO 3599 
U SN$=LEFTS$(BSCNC5,CC-1) 
g IF CC=LCINC) THEN DE$=""-:GOTO3610 


N=LC(NCI=CC : DES=RIGHTSCBGCNCI NN) 
BS(NC>=SN$+A$+DE$ 
RETURN 


REM 
REM ak COMANDOS xk 


4590 
4500 


REM 


O IF FS;5 THEN 23710 


RETURN 

IF FS=9 AND OP2<>2 THEN GOSUB 123000: RETURH 
IF FS=8 THEN GOSUB 4050: RETURN 

IF Fs<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910  - 

RETURN 


REM 
REM ak INSERCION 4% 
REM 


IF CC=LCCONCITHEN RETURN 

IF CC=1 THEN SN$="":Cc0TO3300 
SHS=LEFTSCBS(NC),CC-1) 
NsLC(NCI—CC+1 :DES=RICHTSCBFONCI,N> 
C$=BL+ 
As=3H$+C$+DE$ 

BS(NCI=LEFTSCAS, LECHO) 
RRA =p 

=CX(NC :Y=CY INC :COSUB 11000 
ARA: 

REM 
PRINT B$(NC):S=-1 

IF RIGHTSCBSONC>, 1=PDS THEN 3720 
RETURN 


REN 
REI AR BORRADO doo 


9 REM 


IF TPCNCI<1 THEN 3950 

IF MIDS$CBS$(NC>,2,1)=PD$S AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LCINC) THEN DES$="":GOTO 3958 
N=LCONCI=CC: DES=RICHTSCBSONCI, 
SN$=LEFTSCBS (NC? .CC-1) 

nm NI OR TPNCI=2 THEN C$=WNS$:G0TO 4010 
L$=AS$ 


6 TRE FAS 
20 AMA 


BÍO: Th=CVINO): GOSUB 11000 
ARRE 

PRINT B$(NC):S=1 ¿RETURN 

REM ARA AL INEADOS ARMAR 
IF LCO(NC>=1 THEN RETURN 
Ni=LCUNC>=CC+1 

IF CC=1 THEN BS$(NC>="":G60T04100 
BS(NCI=LEFTSCBSGCNC),CC-1) 

IF TPCNC>=1 OR TPCONCI=2 THEN 4150 
FOR I=1 TO Ni 

BSCNCI=BSFCNCI+BLS 

NEXT 1 

GOTO 4190 


3 FOR I=1 TON 


BNO SONAS (<2) PEE NO) 

A 

IF RIGHT$CBSCNCI,19=PDS THEN ESCNC)=BL$+LEFTS(BGUNC)) LOCNCI=1) 
ASCRUNCI :Y=CW NC) :GOSUE 11000 

PRINT BS$C(NC) ¿RETURN 

REM 4 CTRL PUNTO Ao 

SHP=0 

IF CC=1 OR CC=LCUNC) THEN SHP=1 : RETURN 

FOR I=1 TO LCCNCA 

IF MIDS$CBSINC), 1, 1=ELS THEN I=LCCNCA :SHP=1 RETURN 
NEXT 1:RETURH 

REN 

REI AAA SR RARO 

REN 


REM 
REM INTRODUCCION DATOS 
REM 


PRINTHOS: X=7: W=10: “GoSUB1 1080: PRINT"3M 1 MA El FICHERO DATOS EXISTE" 


g r=+2:COSUB11000:PRINT" RM 2 Na CREACIÓN FICHERO DATOS" 


K=13:Y=13:GOSUB11000:PRINT"UAL  ?":x=20:G0SUE11000:POKE 204,0 
CET R$:IF R$<5"1" ANDR$<>"2"THEN4SSO 
POKE204. 1:GUSUB11000:PRINTR$:FORT=1T0400:NEXTT 


Y 1F R$="1" THEN GOSUB 5208: 1F AD=62 THEN RETURN 


GUTÚU 4600 
mx=5:COTO 4650 
MX=WALCDASC0)) 


4659 
LI) 
4570 
4072 
4675 
4628 
4622 
4570 
4700 
4710 
4720 
4725 
4730 
4735 
4749 
4742 
4745 
4747 
4730 
4-78 
3020 


REM ! INICIO BUCLE INTRODUCCION ! 

FOR KJ=11x+1 TO MR: H=KJ 

GOSUB 2000 :=2:Y=23: GOSUB11000: PLE E PLGIRa NH 
4=26 : COSUB11000:PRINT" Baz + 1:41 AY 

COSUB 3408 

IF FS=6 THEN 4670 

IF FS=7 THEN RETURN 

DASCKJ)="x" 

FOR I=1 TO M3:1F TP<I>=0 THEN 4720 

DASCKJ)=DASCKJ>+BGC 15 

NEXT 1 

IF KJ<10 THEN DA$(0)="99"+RIGHTS(STRS(KJ>,1):G0TO 4748 
IF KJ<100 THEN DA$(0)="9"+RIGHTS$CSTRECKI),2):GOTO 4748 
DAS(0)=RICHTSCOSTRSCKI)./3) ] 2% 
PRINTHOS :X=8:Y=11:G0SUB11000:PRINT" A TRA INTRODUCCION <FWEV AVE 2" 2=33 
GCOSUB 11608 - POKE204,8 

GET A$: IF A$<>"S" AND AS<O"N" THEN 4745 

PUKE204, 1 

IF A$="N" OR A$="/" THEN 4720 

NEXT KJ:KJ=KJ-1 

peque 5090 : RETURN 


5008 REM 


5001 
50u2 


REM GRABACION DATOS 
CLOSE1S:CLOSE2:CLOSE1 


5003 PRINTHOS:X=3:Y=9:G0SUB11000:PRINT" W/OMBRE DEL FICHERO " 


50065 
sue? 
5u4s 


55658 
5670 


Y=Y+1:GOSUB11000: INPUT" (MAX. 6 CARACTERES) MU ¿NFS 
IF LENCNF$><=0 OR LENCNF$)76 THEN 5005 
OPEN1,8,15,"1/0" : INPUTH1, AD. X$,CD. DD 

IF AD<)6 THEN GOSUB 9900:CLOSE1:COTO 5005 
OPENZ2,8,3, "00: "+NF$+",SEQ.1" 

PRINT42, DAS$(0) 

FOR I=1 TO VALCDA$C0)) 

PRINTR2, DASCI); 

NEXT [:CLOSE2:CLOSE1 

06=2 : RETURN 

REM: nn 


En 
REM LECTURA DATOS 
CLOSE 1 :CLOSE2:CLOSE1S 
IF 06=2 THEN RETURN 
PRINTHOS :=7:Y=2:GOSUB11000:PRINT"AINTRODUCIR EL DISCO DATOS" 
A=X+4 :Y=Y+2: GOUSUB11000:PRINT"Y PULSAR UNA TECLA" 
FORE EA] /0:WAIT 198,1 
%=3:=13:C0S5UB11000:PRINT "LVUMBRE DEL FICHERO " 


7 Y=4+1:G0SUB11000: INPUT" (MAX. € CARACTERES) M¿NF$ 


IF LENCHF$)<=0 OR LENCUNF$>76 THEN 5205 
OPEN1,3,15,"1/0": INPUTR1,AD,X$,CD., DD 
IF AD<O0 THEN COSUB 9980: CLOSE1 : RETURN 


Y UPENZ,2,3,"B: "+NF$+",SEQ/R": INPUTR1, AD, X$,CD, DD 


IF AD=62 THEN GOSUB 9908 :CLOSE1 : CLOSEZ2: RETURN 

INPUTR2, DASC0> 

LR=0:FOR Ji=1 TO 20:LR=LR+LC(J1):NEXT J1:LR=SLR+1 

FOR I=1 TO VALCDA$CB)> 

DAS$CDD"" 

A TO LR:CETR2,A1$: DASCI)=DASCI + ALS NEXT J2 
X 

CLOSE 1 :06=2 : RETURN 

REM 

REM ORDENADO 

REM : 


COSUB 7600: IF ADI<>8 THEN RETURN 
COSUBS200:1F AD<?6 THEN RETURN 
FOR 1=1T0M3:HTPC1>=TPC 1): HLOCI LOLI) ¿HNDCI>=NDC 1) 
EN THEN TP<1)=3:LCC1)=1:NDC1>=0 
Xi 
COSUE 2000:X=1:Y=23:C0SUB11000:PRINT"3"%" EN EL CAMPO CLAVE DEL ORDENADO"; 
FK=2:GOSUB 3000: FK=0 
IF FS=6 THEN 5590 
FORI=1T0M3: TF )=HTPCIO ¿NDCI=HNDC 1) LOC =HLOC IT) NEXT 
IF FS=? THEN RETURN 
FORI=1T0M3:IFB$C1>="*" THEN K4=1 :COTOS630 
NEXTI :PRINTHO$S:X=4:Y=10:COSUE11000:PRINT"EL CAMPO CLAVE NO SE HA INDICADO" 
X=12:v=13:C0S5UB11000:PRINT"VUELYO AL MENU" :FORI=1T02309 : NEXTI : RETURN 
IFK4=1THENP1=2:P2=LC(1):c0T05670 
P1=1:P2=0:FORI=1T0K4-1 
P1=P1+LCCI2:NEXT 1 
P1=P1+1:P2=LC(K4) 
GOSUB 608:COSUB 6088: Wó6=2:P3=P1:P9=P2 


5680 
5690 
uuu 
sul 
euu2 


ns: X4=11:Y=11:G0SUB11800:PRINT"N-7/4T 7 AT ":FORI=1T01000:NEXT1 


REM 

REN SORT 

REM 

N=YALCDA$(B)> 

FORI=1TON: IS5C1>=1:NEXTI 
l1=1:J1=N 

I=11:J=31:5=-1 

COSUB 6228 

IF TP(K4)<3 THEN IF YALCA1$)<=VALCB1$) THEN 6100 
IF TF(K4)<3 THEN 6888 

IF Al$<=B1$ THEN 6108 
Y=ISCI):ISCIA=1ISCJ) 

ISC J>=V: S=SGN(-S) 
IFS=1THEN I=1+1:G0T06120 
J=J-1 

IF I<J THEN 6068 
IFI+1>J1 THEN 6168 

P=P+1 

SP, 1)=1+1:59(P,2)=J1 
Ji=I-1 

IF 11<J1 THEN 6058 

IF P=0 THEN 6210 
11389(P,1):J1=89(P,2):P=P-1 
GUTO 6058 

RETURN: REM FIN 


Y AlS=MIDICDASCISCI PL P2Z> 


B1$=MIDSCDASCISCI)) PI P2) 
RETURN 
REM nn 


y REM 


REM 440k LECTURA DATOS MASCARA xk 

IF (8=2 THEN RETURN 

PRINTHOS:X=11:Y=3:GOSUB11000:PRINT"M 4 | “"/—3 17" 
X=x-2:Y=10:G05UB11000:PRINT"3 L7—1 ¿A Ta NS O" 
%=2:Y=W+3:GC0SUB11000:PRINT" INTRODUCIR EL DISCO QUE CONTIENE LOS" 
Y=1+2:G0SUB11000:PRINT"FICHEROS DE DEFINICION DE MASCARAS” 
4=12:Y=20:GOSUB11000:PRINT"!N 1404 //4 17-14" :POKE198,0:WAIT193, 1 
OPEN1,3,15, "1/0": INPUTH1,AD,X$,CD, DD 

IF ADO AND AD<>62 THEN COSUBI908 : RETURN 
OPENZ,8,3."0:DEFB, SEGUR": INPUTH1, AD, X$,CD, DD 

IF AD=62 THEN GOSUB 9908: RETURN 

FOR I=1 TO M3 

INFPUTR2, HS 

DX< 10 =VALCLEFTSCAS, 29): DC 12=YAL(MIDICAS. 3,2): D$(17=M1D$0A$.5,10> 


5 CRC =YALCMIDECAS, 15,27): CC 1)=VALCMIDICAS. 17,25) 
2 LCC1I)=YALCMIDSCAS, 19,27): TPC YALCMIDICAS, 21.27) :NDC12=WALCMIDSCAS, 22,2) 


NEXT I:CLOSEZ 

OPENZ, 38,3, "0: FORO, SEO,R": INPUTH1, AD. X$,CD., DD 
IF AD=62 THEN GOSUB 930=: RETURN 

FOR I=1 TO M3 


2 INPUTRZ,AS:FSCIO=MIDE 5? 2.30) 


NEXT _1:CLOSEZ 
OPEN2,3,3,"0:PING,SEL.+R" 
A$="":FOR RE=1 TO 82:GET42,A1$:A$=A$+A1$ NEXT RE:CLOSE2 
AP=VALCLEFTSCAS. 225: 11$=M1D$(A$,3,20> 
OPEN2,8,2,"0:PDFO,SEQ,R" 
REM z 

$="":FOR RE=1 TO 22:GET8H2,A1$:A$=A$+A1$:NEXT RE:CLOSEZ 
REM 

FI=VAL(LEFTS$CA$,2)) 


5 C1=3:FOR I=1 TO M3 


FTC =VALCMIDECAS, 01,29) :NSC1)=VAL(MIDECAS,C1+2,2)):C01=C01+9 
NEXT 1:A5="" 

L=LENCIIS$):1F L=6 THEN 7110 

FOR I=LENCIIS$> TO 1 STEP-1 


2 IF MID$C11$,1,12<5" "THEN 7100 


L=L-1:'NEXT I 
II$=LEFTS$CIIS,L> 
CLOSE1 :08=2 : RETURN 
REM PREPARA FORMULA 
AS$=F$(NC5 


BD L=LENCAS) :FORI=1TOL 


TIFMIDÍCAS. 1. 1)=CHR$C39) THENSS50 


Y WNEXTI:COTOS620 


R1$=MID$CA$. 1+1,1) 


2 IFMIDICAS, 142, 19<>9CHR$(39)THENA1$=A1$+MID$CA$, 142,1) -P=4:GOTOU2570 


P=3 


9199 
9192 
39195 


ASVALCA1$) :L1=LENCBSCA)>:P1=1:FORJJ=1TOL1 
IFMIDICESCA) JJ, 1)=" "THENP1=P1+1 
NEXTJJ:A2$=MID$(ESCA>,P1, 40): IFVALCA2$>=0THENAZ3="9" 


3 AS=MID$CA$,1, I- 1)+ACIAMIDICAS.: 1+P,L) 


CcOTOSS30 


O L2=LENCAS):CS$="":FORI=1TOL2:CH$=141D$(A$,1.,1) 


1F CH$<>2" "THEN C£=C3+CH$ 

NEXT 1:A$=C3+:C$="" 

GOTO 3130 

IFERCOBTHENESONC>="3":L=1 : COSUES708 : NC=8:GUTU 2695 
L=LENCAS):PP=1 

FORK1=1TOL : IFMIDSCAS,K1,1)=". "THENSES? 
NEXTK1:A1$=A$:A2$=". " :GOTOS660 

R13=LEFTSC(AS,K1-1): IFNDONCI<OOTHENA2ZS=M1D$0A$.,K1,ND(NCI+1) 
IFND<ONC>=0THENAZ$="" :PP=9: GOTUZS7O 
IFCLENCA2$>-1>9<NDCONC>THENA2$=A28+MID$C2E$, 1: ND<NC—LENCA2S)+1) 
N=LCCONCI—NDONCI=PP : IFLENCA1$ 7 NTHENESONCI="$" :L=1 : GOSUBL700 : NC=0 : COTOEE95 


O BS(NCI=A14+A2$ : L=LENCESCNCI) 


GOSUPS 708 

GOTU 2304 

REM 4% ALA DERECHA a 

AS=M1D$CSPS, 1, LOCNCIL IFR BGONCO ¿A ERUNCO : CY ANCI :COSUP 11000: PRINTAS 


O id 


ER=0:L=LENCCAS) - IFLOSGTHEN9122 


O FORI=2TOL-1:CH$=111D$(CA$, 1.1) 'FORJJ=1T0S: IFOP$1JJ)=CH$THEN9O20 


NEXTJJ, 1:ER=1:GUTO9122 

CH$=MID$(CA$, I+1.1): IFCH$="*"ORCH$=" 1"ORCH3="/"THENER=2 :G0T09122 
N1=VAL<MIDSCCAS. 1, 1-17) :N2=VAL(MIDSCCAS. 1+1,40)) 
ONJJCOTO9O35. 9040, 9050, 9055, 9060 

CA$=STR$(N1): IFNI>=UTHENCAS="+"+MIDS(CA$, 2.80) 
c0TO03122 

N1=N1 1N2: GOTUYB27 

IFN2=0THENER=3 : GOTUIBZ7 

N1=N1/N2 :GOTO9B27 

N1=N14N2 : GOTUHOZ7 

N1=N1-N2: G0TO09827 

N1=N1+N2: GOTUIB27 

REM 

ER=0:LO=LENCFOS> : IFLO>=3THENIO7S 

IFEG=1THEN9192 

60TO09162 
FOROP=1T05:P0=0:P1=0:P2=0:FORIO=2T0L0-1 :CH$=M1ID$(FO$., 10, 1) :CH=ASCCCH$> 
IFCH$=0P$(0P )ANDPO=0THENPU=10:GOTO909S 

0=0: IF(CH=940RCH<48 )ANDOH<S46THENO=1 
IFO=1ANDPO=0THENP1=10 
IFO=1ANDPO>BANDIO-PO0>1THENP2=10:G60TO9105 

NEXTIO: IFPO>OTHEN9105 


NEXTOP : IFEG=1THEN9192 
cUIUy162 


IFP1=0THENP1=1 :GOTO9115 

CH$=MID$CFOS,P1,1>: 1FCHSO + "ANDAS *- "THENP1=P1+1 
P2=P2-1: IFP2<0THENP2=LO 
CA$=MIDS$(FO$,P1,P2-P1+1>:GOTUIOGO 

IFER=0THEN9125 

IFEG=1THEN9192 

cUTU9162 

c0T0U9230 

IE ASIA AEDEP Per I0 00109078 
ER=0:LA=LENCAS> : IFLACITHEN9165 
PI=0:PF=9:FORIA=1TOLA:CH$=M1D4CA$, 18,1): IFCH$="<"THENPI=IA 
IFCH$=">"THEN9185 

NEXTIA: IFPI>UTHENER=4:CUTO 8625 

FO$=A$ : COTO9065 

A$=F0$ 

IFYALCAS)=0THENAS$="0":GOTO 2625 

IFLEFTSCAS, 1)="+"THENAS=1MID$CA$.,2.80) 

COTO 2625 

IFPI=0THENER=4:GOTO 2625 
PF=IA:FOS$=MID$CA$.PI+1,PF-PI-1):EG=1:G0T098É5 

EC=0: IFER<OOTHEN 3625 

IFPI>3THENCOSUBI220 . 


9208 IFPI<=1THEN9210 

9205 IFACOANDMIDECAS. 2. 1,1="-"THENPI=P1-1:FO$="+"+MID$(F0$. 2,20) 
9210 IFERCOTHEN 362 

9215 AS=MID$(AS, 1, pr 1)+FO$+MIDS$CA$.PF+1,20):G0T09148 

2220 REM 

9225 Erro: CH$=M1D$CA$.PI-1,1>: IFCH$<"A"ORCH$>"2"THENRETURN 


FU$=MID$C(A$,PI-3,3):FORI=1T06: IFFU$=F2$( 1) THEN9240 
NEXTI:ER=9:RETURH 

A1=VALCFOS>:ON 1 GOSUB 9245, 9250, 9255, 3260,9265,9275: CAS=STR$CA1> 
IFA1>=0THENCAS="+"+MID$(CAS. 2,90) 

EP=1:COTOUS220 


3 FOS=CAS:PI=PI-3:RETURH 


R1=AESCAL> RETURN 

A1=INTCA1) RETURN 

A1=COSCA1) RETURN 

R1=SINCAL) RETURN 

IFR1<OTHENER=6 : RETURN 

A1=SGURCA1) ¿RETURN 

A1=TANCA1> :RETURN 

REM 

L=sLENCCAS) :FORIC=1TOL : IFMIDSCCAS, IC. 1)="E"THENII0O 
NEXT : IFEP=1THENEP=0 : CUTO9243 

G0TO9127 

N$=MID$(CAS, 2, 1C-2) :L=LENCNS> 

FORI=1TOL: IFMIDSONS$., 1,17=". "THENP=1 :GOTO9315 
NEXT :P=L 
ExVAL(MIDSCCAS, 1C+1,3)): IFECOTHENSIIS 
DD=L-P: IFDD=8THEN92345 

N$=MIDSCNS, 1,P-1+MIDSCONS.,P+1,80> 
IFDD<=ETHENI345 

NSsMIDSCNS, 1,P+E-1)+"."+MIDSCNS,P+E, 20): DD=E 
NS=NS$+MIDSCZES, 1,E-DD) :GOTOU9375 
IFP=LTHENP=P+2-L : COTO9365 

N$=MIDSCONS, 1,P-17+MIDECNS,P+1,30>:L=1 
N$=MIDSCZES, 1, -E-L+17+N$ 

N$=MIDSCONS, 1,P-19+"."+MIDSICNS.P,20) 
CAS=LEFTS$CCAS. 1)+N$: IFEP=1THENEP=0: COTO9242 
60T09127 

A ARK ERRORES FICHEROS ao 


*=10:Y=24:G0SUB11000:PRINT"M-—S-— EN UNIDAD DISCO";:GOTO 9910 

425 :=22:GU5UB11000:PRINT"NT- S— , EL FICHERO DATOS WA SE" 
wW=+1:G0SUB11000:PRINT"HA CREADO EN ESTE DISCO":GUTO 9910 

X=4:w=24 :GOSUB11000:PRINT""T—S- , EL FICHERO DATOS NO ESTA";:GUTO 9910 
4=12:Y=20:G05UB11000:PRINT"2PULSAR UNA TECLA " 

CLOSE 1 :CLOSE2:CLOSE15:REM CIERRE DE CANALES 

POKE193,0:WAIT198,1 

POKE193,0:RETURN 


10000 REM ao DATA HORARIO A 


10001 


DATA 145,17,29,157,140,133,136,12,25,1234,125,0,0.0,0 


10003 REM 


10007 DATA"M2 <-> 


MA T/lx/ 4" 





10010 DATA" 1 ll : Mo TO Lt 4 LA A A 
10012 DATA" 0 Ll : — 0 Ltot 4 Le 105 2" 
10014 DATA" 0 /1 : 1H OLOR 1 1 , 
10916 DATA"  --0- da O EIA 

10019 DATA" 11” MBA LTS 
10024 DATA" da (3 ¿Mao ARA 

10022 DATA" da (DMA AAA 

10024 DATA" da AA > le e 

10026 DATA" da A ESA ES ul aro” 
10028 DATA" — -lL+! IN . Ie." 

10030 DATA"a-"1 -/ cn Ae LA NALATA" 

10040 DATA"T.|.0. “DICIONES.-ORUM, 0.%.","1 40 7 77 241505 


100590 DATA"+NTRODUCCION DATOS", "MRDENADO" 
10060 DATA" lUSQUEDA CON VARIACION","“ISCO DIRECTORIO", "IMPRESION" 
10070 DATA" qe , a ¿a , mg , A] , .. , "ABS" ó " INT" , "cos" , "SIN" , "Sar" , "TAN" 


10208 
11000 
11001 


El A Ml 


REM doo POSICIONADO EN X, Y lakA 


11005 POKE 211,X 


11010 


POKE 214,Y 


11015 Sys58732 


11020 


RETURN 


12000 REM sk DIRECTORIO ah 


12002 


PRINTHO$;CHR$(142) 


12005 X=1:=7:G0SUB11000:PRINT"AdINTRODUCIR EL DISCO Y PULSAR UNA TECLA" 


12007 


POKE198,0:WNAIT198, 1 


12018 OPEN1S,8,15,"10": INPUTH1S, AD, X$,CD, DD: IF AD<>8 THEN TAR RETURN 


12015 


PRINTHOS :X=2:Y=3:G0SUB11000:PRINT"3M DIRECTORIO : MA":PRIN 


12020 CLOSE15:w=4:0PEN 1,8,9,"$0" 


12022 
12024 
12026 
12028 


FORI=1T04 :GET+1,A$:NEXTI 
CETH 1, AS: IFAS=""THENAS=CHR$(8) 
CETH1.B$: IFES=""THENBS=CHR$(0> 
PRINTASCCA$)+236KASCCUBS >; 


12038 
12032 
12834 
12036 
12038 
12049 
12100 
12110 
12120 
13009 
13005 
13819 
13615 
13917 
13020 
13022 
13030 
13035 
13037 
13049 
13042 
13045 
13050 
14009 
14010 
14438 
14048 
140658 
14070 
14071 
14072 
14080 
14090 
14109 
14110 
14115 
14120 


CETH1, AS 

IF A$=""THENPRINT:Y=Y+1:GOTO 12036 

PRINTAS; :GOTO 12638 

IF Y=20 THENGOSUB12108:Y=0:PRINT 

CETH1,AS:GETR1,BS: IF ASC" "ORBS<O""THEN 12024 

CLOSE 1 : DR=1 

PRINTTABC6); "MIDMESBBBD PULSAR UNA TECLAA":POKE198,0:MAIT193,1 
IF_DR<>8 THEN DR=0:PRINTCHR$(<14); 

RETURN 

REM ak AYUDA do 

CO=x : CV=w 

X=1:Y=23 

GOSUB11000:PRINTH$C1>;" se 

FOR HE=2 TO 12 

CETR$ : IFR$<ICHR$(13)THEN13020 

GOSUB1 1000 :PRINTH$CHE > 

NEXT HE 

GETR$: IFR$<>CHR$C13)THEN13035 
X=0:Y=23:G0SUB11000:PRINTSP$; 
X=2:Y=23:COSUB11000:PRINT"ALEGISTRO N.";H; 

X=26 :GOSUB11000:PRINT" Ad -L+ 1:4 143"; 

X=C0: Y=CY 

RETURN 

REM 

REM PUSQUEDA CON VARIACION 

PRINTHOS :X=1 :Y=9: GOSUB1 1000: PRINTH1S$ 
X=9:=5:G0SUB1 1000: PRINTVOS(3> 
X=5:Y=12:G0SUB11000:PRINT"s/1 Tr TIAS TL 
ASIN OU RÁ AAA A 
Y=14:G0SUB11000:PRINT"3M 4 Ea = BUSCA EN EL CAMPO CLAVE " 
Y=16:GOSUB11000:PRINT" MM -1 Ma = VUELVE AL MENU 
X=16:Y=20:G0SUB1 1060: INPUTAS : IFLENCAS)>3THEN14030 
R=VALCAS) : IFRIVAL(DASC0))THEN14030 

IFRCOTHENRE TURN 

IFR<OOTHENME=0 :MIS=R :MAS=R : 07014250 

IFMN6=2THEN141308 

PRINTHOS:X=2:Y=11:GOSUB11000:PRINT"PARA ESTE TIPO DE BUSQUEDA PRIMERO" :W=1 


3:G0SUB11068 


14122 
14130 
14140 
14150 
14152 
14160 
14152 


14165 
(2 


14166 
14170 
14180 
14190 
14195 
14200 
14210 
14211 
14220 
14230 
14235 
14240 
14258 
14260 
14265 
14278 
14220 
14290 
14300 
14310 


PRINT"HAY QUE REALIZAR EL ORDENADO" :FORI=1T03000: NEXT :GOTU14000 

X=0: FORY=10T021:GOSUB11000:PRINTLEFTS$CSPS, 40); NEXT 
X=2:Y=11:G0SUB11000:PRINT"=/1 Te “LORI AL ANT AAN 
X=2:Y=15:GOSUB11000:PRINT"RMIA Ita: EL CAMPO CLAVE DEBE SER EL " 
X=8:Y=16:G05UB11000:PRINT"MISMO QUE EL DEL ORDENADO. " 

X=6 : Y=20 : GOSUB1 1000: INPUTRA$ 

IFLENCRAS)>LC(K4)THEN14130 

PRINTHOS:X=8:=6:GOSUB11000:PRINT"ESPERAR. BUSQUEDA DE  :":x=(40-LENGRAS)> 


1=9: GOSUB11000:PRINTRAS 
IFTPCK4)=3THENRAS=RAS+MIDSCSPS, 1, LO(K4)-LENCRAS)) :GOTO14190 
RA$=M1D$(SP$, 1,LCCK4)-LENCRAS))+RAS 

C0SUB143508:REM BUSQUEDA BINARIA 

FORI=1T01000:NEXT 

X=1:Y=6:G05UB11000:PRINTLEFTS<SPE, 38) 
IFTR=9THENX=10:Y=13:G0SUB11008:PRINT"/ F IAS TA 
IFTR=0THENFORI=1T01000: NEXT: 60T014008 
A=MAS-M15+1:X=13:Y=13:COSUB11000:PRINT"1| * LL A F":ix=11:=19:COSUE11D00 
IFA=1THENPRINT"CUN SOLO REGISTRO?" :G0T014248 

PRINT"<"A;" REGISTROS >" 

FORI=1T02000: NEXT 

REM PRESENTA REGISTRO 

FORJK=MISTUMAS :KJ=ISCJK> 

TIFRCOTHENKJ=JK 

AS=MIDSCDASCKIJ>, 2, LENCDASCKJ>-1) 

C1=1:FORI=1T01M3: IFTPC1)=0THEN14300 
Rican 
NEXT 

H=JK: IFR=OTHENH= =J. 

X=26: GOSUE1 1600: PRINTS A+ tr alot"; 

FORI=1T0M3: TP CI) =HTPC IO NEXT: IFR=OTHENTP(K45=4 
GOSUP30BBO : TP(K4)=HTPCK4) 

IF FS=6THEN14270 

IFFS=7THENRETURN 

DAS(KJ)="x" 

FORI=1T0M3: IFTP<1)=0THEN14390 


ag DASCKJ>=DAS(KJ>+B$C 1) 


NEXTI 


O NEXTJK:X=0:'Y=23: GOSUB11000:PRINTSPS; 


X=9:=23:C05UB11000:PRINT"OTRA VARIACION? (MMSEV ZNED "; 


17059 


CETAS: IFA$="S"THEN14008 
IFA$<5"N"THEN14430 
E o 

1 


REM BUSQUEDA BINARIA 

P1=P2:P2=P9 
RI=D:RF=WYALCDASC0)):RM=INTIRF/2> 
RE=ISCRIM) :RBS=MID$CDASCRE7P1,P2) 
IFRA$=RB$THEN14648 

IFRAS>RESTHEN14600 

REF=SRM: Ri INTCUCRF-R1)/2) 

IFRIMC1 THENRIM=1 

Rii=RM+RI : IFRMO=RFTHENTR=0 : RETURN 

COTO 14530 

RISRM:Rii=INTCCRF-R1I9/2) 

IFRIM<1 THENRIA=1 

RiMSRM+RI : IFRMORFTHENTR=0 : RETURN 
EUTO14530 
56=-1:RF=SRM:RI=RM:MIS=RM:MAS=RM:FMI=0 
RM=RM+SG :RE=ISCRM) ¿RB$=M1D$(DASCRE>,P1,P2) 


U IFRAS=RBSTHEN14690 


1FFMI=1THENTR=1 : RETURN 


FiiI=1:SG=1 :RM=RF :G0T014650 
IFFMI=1THENMAS=MAS+1:G0T014700 
MIS=MIS-1 

c0T014650 

REM 

REN IMPRESION 

REM 

IF Wé=2 THEN OPENS, 4:G0T016045 


PRINTHOS:X=1:Y=9:G0SUB11000:PRINT" HRNTES DE LA IMPRESION HAY QUE HACER" 
Y=+2:GOSUB11000:PRINT"EL ORDENADO. PPCION NO REALIZABLE" 

FOR I=1 TO 5000: NEXTI : RETURN 

GOSUE500 : CMD4 :GOSUB17008:CT=4 

FORJ=1T0M3:28(J)=0:NEXT J 

FORI=1TOMR 

IF IS(I>=A THEN 16200 
IFCT40THENFORKK=1T065-CT : PRINT:NEXTKK:CT=4 : GOSUB 17040 
A$=MID$CDASCISCI)), 2,200) 

C1=1:FORJ=1T0M3: IFTPCJ)=0THEN16100 

E 

NEXTJ 

IFFI=2THENPRINT" ":PRINT"REGISTRO N.";ISCI>:PRINT" 


A$=" |": FORJ=1T0M3: IFNSCJ)=0THEN16150 
IFFTC(J>=1THENZ3CJ)=3Z8(J)+VALCBS(NSCIJ> 7) 
IF FIsiTHENAS=AS+BS$(NSCJ22+" 1" :GOTO16150 
PRINTES(NSCJ)>:CT=CT+1 

NEXTJ 
IFFI=1THENPRINTAS:CT=CT+1:GOTO16170 
PRINTS1$:CT=CT+4 

NEXTI 

REM TOTALES 

PRINTTABC0>;51$ 

IFFI=2THEN16308 

A=1:FORI=1T0M3: IFTP<I>=0THEN1S260 
ASAFLOONSCI 23 +1: IFFTCI)=0THEN16260 








AR=SA-1-LENCSTRSCZ8C1)>): IFAACOTHENAR=0 
PRINTTABCAR>;Z8C1)5 

NEXT 1:PRINT 

GOTO 16335 

PRINTTABC4)5"1 MAL" PRINTTAB<9)" ———_—_——_————" 


FORI=1T0M3: IFTP<1>=0THEN16340 
IFFTCI)=OTHEN PRINT:COTO16346 
PRINTTAE(4); "CAMPO :"51"=";28(1> 


NEXT 1 
FORKK=1T064-CT : PRINT : NEXTKK: PRINTH4 : CLOSE4 : RETURN 
REM 


PRINTCHR$(17> 
Si$="":FORIK=1T080:S1$=51$+"-":NEXTIK 
PRINTS1$:PRINT 

PRINTTABCXP>;11$ 

PRINTTAB(0);S1$ > 
RETURN 


RELACION DE LAS PRINCIPALES VARIABLES - COMMODORE 64 


Definiciones 


DS(«) = descripciones 

TP(«) = tipos de los campos 

LC(«) = longitud campo de introduc- 
ción 

ND(x) = número de decimales 

XD(+) 

YD(+) 


XC(=) = coordenadas de los cam- 
YC(«) pos 


FOS(+) = matriz de las fórmulas de 
cálculo 


= coordenadas en el vídeo de 
las descripciones 


FTS(+) 
NSS(«) 
L15,H15 
L25 

A código de la tecla pulsada 
xP = columna principio impresión 
IIS = Cabecera de impresión 


parámetros de impresión 


= cabecera 


Main 


BS(+) = matriz de los buffers (1 por 
campo de introducción) 

LC(s) = longitud del campo de intro- 
ducción 

ND(+«) = número de decimales en el 
campo de introducción 

CX(s) 

CY («) 


BN = coordenadas en el vídeo de 
las descripciones 

TF(«) = matriz numérica que contie- 
ne los códigos ASCII de las 
teclas de comando 


= coordenadas en el vídeo 
del campo de introducción 


DS(«:) 


BLS 
PD$ 
AS$ 


NS$ 


NUC 


MR 


= descripciones en las más- 
caras vídeo 

= blank 

= punto decimal 

= carácter "-”; identifica los 
campos de introducción al- 
fanuméricos 

= carácter “*%”; identifica los 
campos de introducción nu- 
méricos 

= número de campos de intro- 
ducción en la máscara ví- 
deo activada 

= número máximo de regis- 
tros 


matriz auxiliar para máscara 
vídeo ordenado 
indicadores de los registros 
después del ordenado 


= parámetros de impresión 


= totales en fase de impresión 

= matriz de las fórmulas de 
cálculo 

= matriz de los registros 
índice para ordenado 

= índice del bucle de intro- 
ducción 

= último registro introducido 

= número del campo clave del 
ordenado 

= indicador de error 

= Operadores reconocidos 
(1/.8+) 

= funciones reconocidas 
(ABS,INT,COS,SIN,SQR, 
TAN) 





EE 
La lógica del programa 


En el programa se ha previsto la posibilidad de definir 
un campo como resultado de procesos, lo que implica 
una ulterior modificación de la data entry. En la versión 
anterior, al encontrar un campo definido de cálculo se 
activa una subrutina con la que se indica expresamen- 
te el proceso a realizar. Esta estructura no puede utili- 
zarse en la Base de Datos porque no permite introdu- 
cir fórmulas «del exterior». 

En consecuencia, se ha incluido una gestión análoga 
a la utilizada en el Tablero electrónico: las fórmulas 
a aplicar están memorizadas en la matriz F$(20) y la 
subrutina de cálculo debe extraer la correspondiente 
al campo actual para «pasarla» a la subrutina de de- 
sarrollo. En la salida, el valor resultante se transfiere al 
campo, o sea al elemento de B$(w). 

El diagrama de principio de esta subrutina se ha re- 
presentado abajo. Como se ha indicado, en la llamada 


hay que implantar en la variable NC el número del 
campo actual, o sea el correspondiente a la posición 
actual del cursor en la máscara vídeo. Utilizando este 
valor como puntero se extrae la fórmula (de la matriz 
F$(*), construida en la fase de generación) y se trans- 
fiere a la variable A$, como lo indica la subrutina de 
cálculo. En la salida, esta última restituye el resultado 
en la misma variable A$, que sólo debe adaptarse al 
formato implantado en la generación y transferirse a 
BS$(NC). 

En la fase de generación de la máscara, cada campo 
de cálculo se indica escribiendo tantos símbolos ”C” 
como cuantas cifras previstas hay; por tanto, es nece- 
sario uniformizar el resultado del cálculo, que podría 
tener un formato diferente. Por ello, después del cálcu- 
lo, se llama la subrutina de la página siguiente. 

La primera función que realiza es la búsqueda del sím- 


SUBRUTINA DE CALCULO 


En la llamada: NC = Número del campo 


Extrae la fórmula 
correspondiente al campo 


Realiza el cálculo. 
En la salida, A$ contiene 
el resultado 


Preparación formato 
(diagrama siguiente) 


En esta fase se aprovecha 
la rutina de alineado 
de la data entry 
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PREPARACION DEL FORMATO 


En la llamada: 

A$  = Dato a uniformar al formato especificado 

LC(*)= Matriz que contiene las longitudes totales 

ND(+)= Número de decimales previstos en cada campo y 
NC  = Número del campo 


y 


K1 indica su posición 


y bytes: 1234567 
valor: 579 835 
K1=4 


A1$ = LEFTS(AS, K1— 1) 
xy NO A2$ = MIDS(AS, K1, ND(NC) + 1) 
[E Ml Ñ 


y 


y si 


y 


N = Número de bytes previstos 
para la parte entera 


La variable J la 
emplea la data entry 
como puntero 

del campo (NC = J) 


Se suman tantos espacios 
como cuantos son necesarios 
para obtener la longitud 

justa de la parte entera 


(*) La segunda transferencia sólo se hace si ND(NC) < > 0 
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bolo ”.” para poder determinar cuál es la parte entera y 
cuál la decimal. 

Al final de la búsqueda pueden presentarse dos ca- 
sos: 


1 / El símbolo ”.” no se ha hallado 
2 / El símbolo ”.” se ha hallado 


En el primer caso, A$ sólo contiene un valor entero que 
se transfiere a la variable A1$, mientras que, en el se- 
gundo, la parte entera de A$ está separada de la deci- 
mal, originando las dos variables A1$ y A29. 

Las longitudes de las dos variables (teniendo en cuen- 
ta que en el primer caso A2$ es nula) se comparan 
después con las longitudes asignadas al campo 
(LN(x) como valor total y ND(«*) como parte decimal). 
En base al resultado de esta comparación, las dos lon- 
gitudes se adaptan a lo especificado en el formato, 
siguiendo las reglas: 


m La parte entera no puede tener una longitud mayor 
de la prevista, por lo que si se produce esta even- 
tualidad, el contenido del campo es sustituido por el 
símbolo $, que indica error 

"m Enel caso contrario, parte entera de longitud menor 
a la prevista, el campo se completa con espacios 
en blanco a la izquierda del valor (recuérdese que 
un número debe estar en el lado derecho). 


En cambio, para la parte decimal, la lógica es la si- 
guiente: 


m Enel caso de longitud superior a la prevista se trun- 
can las cifras de la derecha (las menos significati- 
vas) 

m En cambio, si la longitud es inferior al campo, se 
completa colocando ceros a la derecha 


Al final de estos procesos, el primero sobre la cadena 
A1$ y el segundo sobre la A2$, se reconstruye el cam- 
po sumándolas. En esta versión no se realiza ningún 
redondeo, por lo que la parte decimal simplemente se 
trunca y la parte entera indica exactamente el resulta- 
do del cálculo. En cambio, en algunas aplicaciones es 
útil disponer de valores redondeados. En estos casos, 
hay que modificar el programa incluyendo los redon- 
deos antes de la reconstrucción de la cadena A$. 


Estructura de los ficheros. La modularidad y la flexi- 
bilidad del programa implican una estructura de fiche- 
ros relativamente compleja. Efectivamente, además de 
los datos propiamente dichos, que constituyen el ar- 
chivo, hay que memorizar una serie de informaciones 
accesorias. En particular, los valores a memorizar son: 


Fórmulas 

Descripciones y parámetros de la máscara 
Cabeceras de los tabulados 

Formatos de impresión 

Índice para la extracción de los datos ordenados 
(Sort) 


Las principales características de cada fichero se han 
representado en la tabla que puede verse abajo. 

En las páginas 2472 y 2473 se han indicado los forma- 
tos de fichero utilizados. Estos ficheros, completamen- 
te transparentes para el usuario, son generados por el 
sistema durante la definición del archivo y tienen nom- 
bres, longitudes y formatos predefinidos y no modifica- 
bles desde el exterior, o sea con ficheros de «servicio» 
utilizados exclusivamente por el sistema. 

Al contrario del fichero datos, el que deberá contener 
las informaciones que el usuario desea procesar tiene 
un nombre que el usuario debe definir y un formato de 
registro variable en función de la máscara vídeo. 


Fichero de las fórmulas. La estructura de este fichero 
es una de las más sencillas. Cada registro contiene 
una de las 20 posibles fórmulas, de 30 bytes de longi- 
tud máxima. 

En el formato del registro se han incluido además dos 
bytes iniciales en los que se memorizan el número del 
campo a que se refiere la fórmula y dos bytes finales 
disponibles para eventuales implantaciones. Por tanto, 
resulta una longitud de registro de 34 bytes y un total 
de 20 registros, uno para cada campo. El fichero tiene 
formato fijo, por lo que los eventuales registros no utili- 
zados deben escribirse en blanco. Además, la transfe- 
rencia al disco es de acceso directo en función del 
número del campo. Por tanto, la fórmula correspon- 
diente al primer campo ocupará el registro 1, la del 
segundo campo el registro 2, etc. 

Esta lógica hace inútil la memorización del número del 
campo a que se refiere la fórmula; de hecho, este valor 
lo indica el mismo número de registro. No obstante, los 


FICHEROS DE SERVICIO UTILIZADOS 
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FORMATO DE REGISTRO DEL FICHERO DE FORMULAS 


Nombre :FOR (O 
Registros : 20 
Formato : 34 bytes 


1 registro = 34 bytes 


A Número del campo al que se refiere la fórmula 


Instrucciones de extracción 


CF() = LEFTS(A$,2) 
FS(x) = MIDS(AS$, 3,30) 
Disponible = RIGHT$(A$,2) 





dos primeros bytes están reservados para este objeto, 
incluso si su contenido es ¡igual al número del registro; 
de esta manera es posible disponer de un puntero útil 
para eventuales implantaciones. 


Fichero de las definiciones. También este fichero 
contiene 20 registros, uno por cada uno de los cam- 
pos previstos que deben estar presentes, incluso si se 
dejan en blanco. 

El formato de cada registro (26 bytes) prevé una es- 
tructura en la que a cada descripción corresponde un 
campo de datos y, viceversa, para cada campo de 
datos se proporciona la descripción. Esta lógica no ex- 
cluye la posibilidad de utilizar un número de descrip- 
ciones distinto del de los campos: efectivamente, en 
este caso, la parte del registro correspondiente al pa- 
rámetro no utilizado deberá dejarse en blanco. Como 
alternativa a esta estructura, el fichero podría haberse 
dividido en dos partes, cada una con 20 registros: la 
primera correspondiente sólo a las descripciones y la 
segunda para las definiciones de las áreas de datos. 
Sin embargo, de esta manera se tendría un desapro- 
vechamiento de espacio, puesto que el registro de las 
descripciones debería ser más largo que el de pará- 
metros, obligando a completar este último con un cier- 
to número de espacios en blanco. 

Una segunda alternativa podría permitir el empleo de 
un fichero secuencial y, por tanto, con registros de lon- 
gitud variable: sin embargo, de esta manera se tendría 
una estructura menos elástica y no homogénea. 


Fichero de la cabecera. En la gestión de los archivos, 
una de las funciones principales es la impresión de su 
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E erónibis 


contenido y, en esta fase, es particularmente útil dis- 
poner de una cabecera para indicar el principio de 
cada página. 

Para ello se ha previsto un fichero, de un solo registro, 
cuyo contenido se introduce en la fase de definición 
de los formatos de impresión y que se representará 
automáticamente al principio de cada página. 
Además, en el registro se ha previsto un campo de 2 
bytes que especifica la columna de principio de im- 
presión de la cabecera. 


Fichero de los formatos de impresión. En la fase de 
impresión no siempre es necesario representar todos 
los campos previstos en el fichero datos, e incluso un 
tabulado demasiado complejo y que contenga infor- 
maciones no necesarias, puede ser causa de confu- 
sión o de interpretación errónea de los datos. Por este 
motivo, la subrutina de impresión es parametrizada, en 
el sentido de que es posible definir cuáles deben ser 
los datos a presentar y en qué posición. Además se ha 
previsto una función de totalización de los valores nu- 
méricos contenidos en los campos impresos. Por tan- 
to, los parámetros asociados a la impresión son: 


m Tipo de impresión 

= Número del campo 

m Flag que indica si el contenido debe ser totalizado 
ono 


Estos valores pueden memorizarse en un fichero para 
un uso posterior, formado por un solo registro que con- 
tiene los datos anteriores, más un byte disponible, pa- 
ra cada uno de los 20 campos previstos. 







FORMATO DE REGISTRO DEL FICHERO DEFINICIONES 





1 registro = 26 bytes (AS) Nombre : DEF(w 
Registros : 20 
Contiene los parámetros de una descripción y de un campo datos Formato : 26 bytes 
a Zona descripción = 14 bytes , : Zona datos = 12 bytes 
1 3 5 15 17 19 21 23 25 







contenido posición bytes 


| Disponible 25 2 
Número de decimales 23 2 
a 21 2 
Longitud en caracteres 19 2 
Línea 17 2 
Columna 15 2 
Descripción (10 caracteres) 5 10 
Línea 3 0) 
Columna 1 2 
Instrucciones de extracción 
XD(+) = LEFTS(A$,2) 
YD(*) = MIDS(A$,3,2) 
D$(x) = MIDS(A$,5,10) 
XC() = MID$(A$, 15,2) 
YC(+*) = MIDS(AS, 17,2) 
LC(x) = MIDS(A$, 19,2) 
TP(x*) = MIDS(A$,21,2) 
ND(+) = MIDS(A$,23,2) N.B.: Las instrucciones son indicativas. Se ha omitido VAL..., que permite 


Disponible = RIGHTS$(A$,2) la transferencia de los datos a una variable numérica 


CABECERAS DE IMPRESION Nombre: PING 


Registro : 1 
Formato : 82 bytes 


82 


o Columna de inicio impresión de la cabecera 


Instrucciones de extracción 


XP = VAL(LEFTS(AS$,2)) 
11$ = RIGHT$(A$,80) 


4 bytes FORMATO DE IMPRESION Nombre: PDFG 


para cada Registro: 1 
| campo Formato  : 82 bytes 


==) 


MESA NS$(20) Número del campo 
FT$(20) Flag de totalización (O = no totaliza, 1 = totaliza) 
FIS Flag de encolumnado (1 = horizontal, 2 = vertical) 
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Menú principal. Al activar el programa se presenta el 
menú principal para la selección deseada. Abajo se 
ha representado el diagrama de principio. 

Las funciones previstas (voces de 1 a 6) pueden reali- 
zarse con otras tantas subrutinas o con programas se- 
parados; la elección de uno u otro método depende 
del tipo de máquina, puesto que está vinculada a la 
velocidad de carga de los programas y a la cantidad 
de memoria disponible. Sin embargo, desde el punto 
-de vista del usuario, la elección no implica ninguna di- 
ferencia y, en lo que respecta a la escritura del progra- 
ma, se reduce a sustituir las instrucciones GOSUB... 
por RUN (o equivalente). 

Sin embargo, hay que tener en cuenta que la elección, 
si bien es muy sencilla en términos de instrucciones a 
sustituir, en realidad implica importantes modificacio- 
nes de la lógica; efectivamente, en el caso de que se 
estructuren subrutinas, todos los parámetros o las 
variables pueden ser utilizadas por cualquier voz del 
menú, mientras que si se convierten algunas en forma 
de programa es necesaria una nueva inicialización. 
Esto no obstante, la solución de segmentación en va- 
rios programas es preferible, en particular para las fun- 
ciones de Ordenado. De hecho, para realizar más rá- 


pidamente un Sort (ordenado), es necesario disponer 
de amplias áreas de memoria a la que transferir los 
datos. 

Para las funciones de impresión también pueden 
adoptarse soluciones de un programa en sí mismo, 
pero por motivos diferentes a los anteriores: la impre- 
sión no requiere amplias zonas de memoria y consti- 
tuye una función bien separable del resto. Las ventajas 
de esta estructura están en la mayor facilidad de apor- 
tar al mismo modificaciones e implantaciones y en la 
posibilidad de utilizar las funciones así “separadas co- 
mo programas de utilidad general para otras aplica- 
ciones. La estructura segmentada puede adoptarse 
tanto para la versión de disco como para la de cinta, 
aunque en este último caso, el usuario debe operar en 
la unidad de cinta para posicionarla cada vez que el 
programa lo pide y, por tanto, no es funcional. 

Como ya se ha indicado, las dos funciones que pue- 
den separarse del resto del programa son: 


1 / Ordenado 
2 / Impresión 


Ambas necesitan algunos parámetros y valores im- 
plantados en el main, por lo que deben contener una ' 


En esta fase se implantan 
todos los valores 
iniciales de flags, indicadores, etc. 


1 Definición de la máscara y generación archivo 
2 Introducción datos 

3 Ordenado 

4 Búsqueda con variación 

5 Definición de los formatos de impresión 

6 Impresión 

O Fin de tarea 
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copia de las subrutinas que atribuyen estos valores.- 
En particular, la más importante es la adquisición del 
formato del fichero datos. 

En la generación, después de haber definido la más- 
cara vídeo y de haber leído sus características, el sis- 
tema transfiere los valores a los distintos ficheros pre- 
vistos en el procedimiento y si el programa no se inte- 
rrumpe, no es necesario nada más para la activación 
de las distintas funciones. Segmentando algunas vo- 
ces en el momento de su carga, los parámetros se 
ponen a cero, por lo que es necesario recargarlos en 
la memoria leyéndolos en los ficheros anteriores. 

En realidad, no todos los segmentos deben utilizar los 
mismos ficheros, por lo que pueden preverse instruc- 
ciones de carga distintas en función de la actividad 
que debe realizar el módulo. De hecho, se tiene: 





Por tanto, las lecturas de los ficheros pueden agrupar- 
se como sigue: 


Todos en la fase de generación 

FOR, DEF para la voz 2 (introducción) 
FOR, DEF para Ordenado y Búsqueda 
FOR, PIN, PDF para Impresión 


Esta subdivisión da como resultado la estructura: 


Un primer programa para la generación (voz 1) 
El segundo para la voz 2 (Introducción) 

El tercero para las voces 3 y 4 

El cuarto para las voces 5 y 6 


Naturalmente, esta estructura puede activarse fácil- 
mente en la versión disco, mientras que para la de cin- 
ta, las dificultades de carga de los distintos programas 
la hacen poco práctica. Además, tal y como se ha indi- 
cado anteriormente, la solución elegida depende del 
tipo de máquina utilizada, por lo que puede variar se- 
gún la versión. 


Definición de las máscaras. En la página siguiente se 
ha representado el diagrama del módulo predispuesto 
para la definición de la estructura de las máscaras y 
del fichero asociado. La lógica seguida puede aplicar- 
se tanto al caso de estructura por subrutinas como 
al caso de programa en sí mismo; en particular, para 
esta función es más adecuada la segunda solución, ya 


que el módulo puede estar completamente separado 
del resto porque produce una salida (parámetros de la 
máscara) en el fichero y, por tanto, es accesible a 
otros programas. 

El diagrama es en principio válido para todas las ver- 
siones, mientras que el detalle de su desarrollo está 
estrechamente ligado al tipo de máquina: en particular 
las dos subrutinas de gestión del vídeo (preparación y 
lectura) tienen estructuras e instrucciones no generali- 
zables, por lo que deben consultarse los correspon- 
dientes listados. 

Finalmente, hay que tener en cuenta que en el diagra- 
ma no se ha representado la función de preparación 
de los ficheros, que consiste en pedir su nombre, su 
longitud (estimada) en número de registros y en escri- 
bir en el disco de datos estos registros en blanco. 


Introducción de datos. El desarrollo de esta función 
es del todo idéntico al desarrollo para otras aplicacio- 
nes, por lo que no necesita comentario, saWo llamar la 
atención sobre la presencia del directorio en el fichero 
datos: por tanto, como de costumbre, el dato número 1 
se memoriza en el registro 2 y así sucesivamente. 
Sin embargo, hay que hacer una observación. En las 
funciones previstas por el menú hay incluidos el orde- 
nado y la búsqueda, basada en un fichero ordenado. 
En particular, el Sort, desarrollado en uno de los cam- 
pos de la máscara (campo clave) pierde su validez 
con cada introducción; por tanto, el usuario debe reac- 
tivarlo. 

Como alternativa puede utilizarse una estructura que 
prevea automáticamente el ordenado en cada nueva 
introducción (o actualización del campo clave), pero 
esta implantación haría mucho más complejo el pro- 
grama sin ofrecer una ventaja determinante. 


Ordenado. El programa de ordenado (o la subrutina, 
según la versión) se desarrolla en tres etapas: 


1 / Elección, por parte del usuario, del campo a utilizar 
como clave, o sea del campo en base al cual se 
realizará el ordenado 

2 / Determinación de los correspondientes punteros 
en el registro datos 

3 / Sort, o sea preparación de la matriz IS(»), del índice 
del ordenado y su memorización 


Terminada esta función, el fichero IND (Y contiene los 
punteros a los registros en el orden que se deriva del 
campo clave elegido y puede emplearse como índice 
con el que obtener la impresión con los datos ordena- 
dos o para realizar una búsqueda rápida. 

Como se ha indicado, la primera función a realizar es 
la elección, por parte del usuario, del campo clave en 
base al cual realizar el ordenado. El método indicado 
en el diagrama consiste en presentar una data entry 
con las descripciones de cada campo; el usuario 
debe indicar cuál es la clave elegida introduciendo en 
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DEFINICION MASCARAS 


La subrutina permite escribir 
en el vídeo las descripciones, 
indicando los distintos campos 
de datos 


Los valores anteriores se 
extraen de la memoria vídeo 
y se transfieren a las variables 
de trabajo (XD(«), YD(x), etc.) 


Inicio bucle de transferencia al disco 


Forma el registro (ver fichero DEF(w) 


Fichero DEF(w 
Escribe A$ 
en el registro “l” 


A 
yo 
: La transferencia de las fórmulas 
(fichero FOR(w) se ha omitido 
porque es análoga, así como tampoco 
se ha representado la generación 
del fichero datos 


La subrutina de llamada necesita los valores XD(*), YF(*), etc. de acuerdo con 
el formato del fichero 


(*) El bloque es indicativo, porque no se han representado las intrucciones de conversión de los 
números en cadenas ni el correspondiente control sobre las longitudes (ver tabla del fichero DEF(a) 
Además, el programa permite gestionar un máximo de 20 descripciones y 20 campos de datos 

En el caso de que el número utilizado fuese inferior, los registros no utilizados, siempre de 26 bytes 
de longitud, se dejan en blanco 
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correspondencia el símbolo ”:”. 


Para cada ordenado se extrae, 
como clave, sólo el primer 
campo que contiene ”x”, por lo 
que si la máscara también 
acepta más de una introduc- 
ción, el elemento utilizado es 
sólo el primero. 

Para obtener esta funcionali- 
dad son necesarias algunas 
modificaciones, antes y des- 
pués de la selección. Antes de 
utilizar esta máscara en parti- 
cular, en la que todos los cam- 
pos tienen longitud 1, hay que 
salvar los datos reales que 
describen el registro. Al final de 
la elección, los valores reales 
deben recuperarse y transferir- 
se nuevamente a las respecti- 
vas variables (la recuperación 
no se ha indicado en el diagra- 
ma y se reduce a un bucle an- 
tes de la instrucción K4 = |). 
Después de haber recuperado 
los valores precisos en las va- 
rlables dimensionadas TP(w), 
LC(x*) y ND(x), el programa cal- 
cula los bytes de inicio y fin del 
campo clave para extraer el 
correspondiente contenido du- 
rante el Sort. Las variables P1 y 
P2 del diagrama pueden tener 
nombres diferentes en las dis- 
tintas versiones. 

Al final del Sort, la correspon- 
diente subrutina restituye la 
matriz IS(*) que contiene los 
punteros a los registros en el 
orden que se deriva del campo 
clave elegido, por lo que se 
debe memorizar dicho índice 
para utilizarlo después de las 
impresiones y en todas las fun- 
ciones que requieren el fichero 
datos ordenado. 

El uso de un fichero índice ne- 
cesita algunas modificaciones 
de las funciones, porque cada 
dato se toma a través de un di- 
reccionamiento indirecto. Por 
ejemplo, si se quieren leer los 
datos ordenados, es necesario 
un bucle desde el valor 1 (pri- 
mer dato) a MX (número de da- 
tos presentes) que extraiga el 
valor de Sl(*) y lo utilice como 
número de registro. 


INTRODUCCION DE DATOS 


Ultimo registro 
ocupado 


Escribe en el 
registro = MX + 1 


En la versión cinta (MSX), esta rutina se realiza de manera diferente, porque 
los datos se transfieren a la memoria en la matriz DA$(+) y sólo después de la última 
introducción se graban en la cinta (ver el listado) 
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ORDENADO 


En la entrada deben proporcionarse todos los parámetros que definen la máscara vídeo 


Las matrices TP(+) Todos los campos previstos 
LC(+) ND(x) se ponen de tipo alfanumérico 
deben salvarse antes y de 1 carácter de longitud 

de la modificación 


HTP(x) = TP(x) 

HLC(+) = LC(+) Esta data entry sólo se 

HND(+)= ND(x) emplea para la definición 
del campo clave utilizado 
en el Sort 


Selecciona el buffer 


APN 


O ; j 
No se ha N El primer buffer que contiene 
indicado el símbolo "*" es el campo 
el campo clave 
clave 
| 


yy S 


Inicio del bucle de cálculo 
punteros 


P1 = Bytes de inicio clave 


P2 = Longitud del campo 


O clave (**) 
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1S(+) al disco 


(*) En el caso de que FS = 5 y FS = 7, antes de proseguir hay que volver a los valores originales las matrices 
TP (+), LC(+), ND(s*): TP (2) = HTP(x) 


(**) El primer byte del registro es un asterisco (*»*”) 





Esta lógica se muestra con mayor detalle en la subruti- 
na de impresión. 


Búsqueda con variación. La búsqueda y la eventual 
actualización de un registro pueden realizarse de dos 
maneras: 


a Especificando su número, que corresponde al nú- 
mero progresivo de introducción 

m Especificando el valor del campo clave según el 
cual debe ordenarse el fichero 


Según la primera hipótesis, el programa empieza por 
la petición del número del registro y pasa a la otra si el 
valor introducido es cero. 

En la segunda hipótesis, búsqueda basada en el valor 
del campo clave, el fichero debe ordenarse previa- 
mente, puesto que la búsqueda puede proporcionar 
una solución negativa incluso si el valor existe. 
Además, hay que rehacer el ordenado después de ca- 
da variación que haya interesado el campo clave. 


Definición del formato de impresión. El diagrama de 
principio se muestra en las páginas 517 y 518. Las 
funciones que realiza son: 


1 / Introducción de la línea de cabecera y control so- 


bre su longitud 

2 / Definición del tipo de impresión (horizontal, o sea 
con los datos correspondientes al mismo registro 
posicionados uno a continuación del otro en la mis- 
ma línea, o bien vertical, o sea con los datos uno 
por cada línea) 

3 / Definición de los campos a imprimir con la indica- 
ción de los que hay que totalizar 


Todos los parámetros se introducen con un coloquio 
desarrollado con las instrucciones normales PRINT e 
INPUT y, por tanto, no ofrece ninguna dificultad. 


Impresión. La subrutina de impresión utiliza los pará- 
metros implantados en la fase de definición de los for- 
matos para producir la salida en la forma deseada. 
El diagrama representado en las páginas 2482 y 2483 
sólo es válido como principio, porque algunas funcio- 
nes secundarias, como por ejemplo la impresión de la 
línea de cabecera o el salto de página después de un 
número de líneas prefijado, no se han presentado. 

El objeto del diagrama es principalmente mostrar el 
mecanismo de empleo de la matriz IS(w), índice del 
Sort, y de las funciones a realizar para la preparación 
de las líneas de impresión. El detalle del desarrollo de 
la subrutina depende mucho de la versión a que se 
refiere, por lo que deben consultarse los listados. 
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BUSQUEDA CON VARIACION 


La búsqued 

actualización) también puede 
realizarse de manera directa 
especificando el número 
progresivo del dato 


Introduciendo O se activa la 
búsqueda en el campo clave 


y Vuelve al menú 


Actualiza 
el registro 


O 
s 1 
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DEFINICION 
DEL FORMATO DE IMPRESION 


[527 
y 


Al fichero PIN (O 


y 


El programa pide los valores 
de XP e lI$ (ver formato ficheros) 


Memoriza la cabecera 


1 = horizontal, 2 = vertical. 
El valor se transfiere a ST$ 
si 1, STS = "01”; si 2, 

ST$ = "02” 


Inicio bucle de selección 
campos a imprimir 
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O O 


' y 
AE 
y s 


O 


y 
?_ UN - D 
ds 


y 


STS + FTS(1) + NSS(1)..... + FTS(20) + NS$(20) Al fichero PDF (2 


En la llamada hay que IMPRESION 


haber leído los ficheros 
PIN (u y PDF (O 


ED > sa | 
y 
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Los campos se introducen 
mediante un input separado 
por un guión y precedido por 
una "T” si se desea la 
totalización (p.e., 2-T3-1) 


NS$(+*) contiene los campos 
a imprimir en la secuencia 
deseada. FT$ contiene el flag 
de totalización (01 totaliza) 


IS(*) contiene los punteros 
para la impresión en orden 
del campo clave 


Terminado 





Bucle sobre los campos 


SI El campo no debe imprimirse 


El campo 
no debe 
totalizarse 


Extrae el valor y lo totaliza 


Prepara la línea sumando 
los campos a imprimir 


La impresión del total 
sólo se activa si por lo menos 
un flag de totalización es 1 
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Base de Datos: menú de activación para el uso del 
programa (menú de trabajo). Las voces 1 y 5 piden el 
programa de Definición máscara y de Definición 
formatos impresión. 


Menú definiciones: la primera función a activar es la 
Creación de la máscara (voz 1) que también define el 
formato del fichero. Los parámetros de definición de los 
campos, introducidos así, pueden memorizarse para un 
uso futuro con la función 3 (Grabación ficheros 
definiciones). 


Ejemplo de máscara vídeo: los símbolos "£”, como de 
costumbre, identifican la descripción asociada a cada 
campo. En la última línea de la pantalla aparece, 
constantemente actualizada, la posición actual del 
cursor. 


La misma máscara anterior en fase de creación. 





EDICIONES FORUM. a] 
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En la fase de impresión se ha previsto una línea de 
cabecera del tabulado: la foto muestra el coloquio de 
introducción. En la misma máscara aparece la petición 
del número de columna desde la cual debe empezar la 
impresión. 


En la foto se muestra la petición del tipo de impresión: 

1 / Horizontal: los datos de un registro se imprimen en la 
misma línea 

2 / Vertical: cada campo ocupa una línea; por tanto, el 
registro se desarrolla verticalmente. 


Ejemplo de introducción de datos en una máscara 
vídeo definida previamente. 


Ejemplo de empleo de la función de ordenado: las 
definiciones de la máscara se han leído en el fichero de 
servicio y el programa espera la selección del campo a 
utilizar como clave. 





2485 


| Base de Datos: menú del programa de trabajo en la 
| versión MSX. 


TES E 


DATOS 


Menú del programa de creación de máscaras: 
también en esta versión, el empleo del procedimiento 
debe empezar por esta fase. 


AAA 


DEFINICIONES 


Creación de la máscara vídeo. Los símbolos utilizados Ñ P : 
son: PIN S.A. 
X = campo alfanumérico : - ES 
N = campo numérico 
C = campo resultado de un cálculo. 











Segunda fase de la definición de las máscaras: el 
programa espera la introducción de la fórmula para el 
| cálculo del valor del campo definido de tipo “C”. 


O A 
INTRO: JA FORMUL 
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Definición de los formatos de impresión: el sistema 
presenta en pantalla todos los campos previstos en la 
máscara y espera la selección de los que hay que 
imprimir. 


En la versión cinta, antes del acceso a la memoria de 
masa, el sistema emite los mensajes para las 
necesarias operaciones manuales de posicionado del 
soporte magnético. 


Máscara de introducción de datos. Los parámetros 
asociados a la misma se han leído de la cinta después 
de su posicionado (ver foto anterior). 


bbdd 
HARO 


Abba 





Ordenado. En esta foto se muestra la máscara 
correspondiente a esta función. 
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Extensiones y modificaciones 


La subrutina de impresión ilustrada anteriormente ge- 
nera la introducción del contenido del fichero, mientras 
que en muchas aplicaciones puede ser útil disponer 
de una salida selectiva que permita la presentación 
únicamente de los registros que tienen un determina- 
do valor. Este tipo de impresión puede obtenerse mo- 
dificando la subrutina anterior con las funciones: 


"E Indicación del campo a utilizar como elemento de 
control 

mn Introducción del valor 

m Introducción de la rutina de selección con salto de 
la impresión si la comparación resulta negativa 


Abajo se ha representado el diagrama de principio 
que muestra la manera de utilizar la subrutina anterior 
bajo esta nueva óptica. Naturalmente, la impresión de- 
be modificarse para incluir la comprobación en el re- 
gistro y la consiguiente decisión (en base al flag de 
respuesta). 

En la misma figura (abajo) se ha representado la lógi- 
ca de las implantaciones a incluir en la subrutina de 
impresión. 

Obsérvese que esta subrutina no debe duplicarse pa- 
ra obtener los dos tipos de funcionamiento, sino que 
basta con forzar el flag al estado "ON” en caso de que 
no se pida ninguna selección. 


IMPRESION CON SELECCION 


é- 


La rutina pide el número 
de campo a emplear como 
selector y el correspondiente valor 


Esta subrutina es análoga 
a la anterior 


MODIFICACION DE LA SUBRUTINA DE IMPRESION 


De la lectura 
del registro 
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yy * 


A la impresión 


Al siguiente registro 





E E EEE REA 
Base de Datos/Versión Apple Il 


Definiciones 


10 
15 
17 
20 
30 
50 
6000 
6010 


6200 
£210 


6400 
6410 


6600 
6610 


40000 
40050 


40052 


40055 


40200 
40230 
40240 


41000 


41020 


REM LA 

REM DEFINICIONES 

REM BASE DE DATOS 

REM VERSION DOS 

REM AAA 

GOTO 40000 

REM 

PRINT D1$: 

PRINT D1$;"OPEN"¿NFS$ + ",D" 

+ DRS;",L"5LR + 2: 

PRINT Di$: 

RETURN 

REM 

PRINT D1$: 

PRINT Di5$; "READ"¿NFS$;",R"¿NR: 

INPUT AAS: 

FRINT D1$: 

RETURN 

REM 

PRINT D1$: 

PRINT D1$; "WRITE"¿NF$;",R"¿NR: 

PRINT_ CHR$ (34) + AA$: 

PRINT Di$: 

RETURN 

REM 

PRINT D1$: 

PRINT Di$; "CLOSE"¿NF$: 

PRINT DIS; 

RETURN 

REM. == 

M3 = 20: . 

D1$ = CHR$ (4): 

Bs =" "E 

FOR 1 = 1 T04: 

'BA$ = BAS + B$: 

NEXT 1: 

Bs =""; 

DR$ = "1" 

H1$ = " E.G.S. EDICION 

ES FORUM, S.A." 

DIM D$(20),TP(20),LC(20),ND(20),X 

D(20),YD(20),XC(20),YC(20),FO$(20 

) ,FT$(20),NS$(20) 

BEN ————— an 

GOSUB 46000 

ON OP GOSUB 41000, 45000, 42500, 430 

00: 

GOTO 40200 

GOSUB 43500: 

HOME : 

X= 2: 

Y = 3: 

GOSUB 41150: 

GOSUB 41020: 

GOTO 41070 

As. "o"; 

FOR 1 = 1 TO 40: 

L$ = L$ + As: 

NEXT 1: 

HTAB 1: 

VTAB 1: 

PRINT H1$;: 

INVERSE : 

PRINT L$;: 

FOR I = 1 TO 20: 
PRINT" "5: 
HTAB 40: 
PRINT " "3: 

NEXT I: 

PRINT L$;: 

LS = "": 





41070 
41080 


41100 


41130 


41135 


41150 
41160 


41180 
41210 


41220 


41230 


41240 


41250 


41260 
41270 
41280 
41290 
41300 


41310 
41320 


41350 
41370 


41400 


41430 


NORMAL : 
RETURN 
REM ¡$€A<«xM MAA A 
FOR I = 1 TO 20: 
LC(1) = 02 
TP(1) = 0: 
ND(1) = 0: 
NEXT 1 
G0SUB 41310: 
A= ASC (18): 
IF A < 32 THEN 41180 
PRINT 1$: 
A EN 
IF X > 39 THEN X = 39 
GOSUB 41150: 
GOTO 41100 
REM AAA AA 
HTAB 4: 
VTAB 24: 


PRINT "COLUMNA: 

"s5X - 13 TAB( 17); "LINEA: 
“Y - 2; TAB( 27);"AYUDA CTRL-Y"; 
RETURN 

REM 

IF A = 19 THEN X =X + 1: 
IF X > 39 THEN X = 2: 

A = 26: 

GOTO 41240 

IF A = 1 THEN X =X- 1: 
IF X < 2 THEN X = 39: 


A=23 

IF A = 23 THEN Y = Y - 1: 
IF Y < 3 THEN Y = 3 

IF A = 26 THEN Y = Y + 1: 
IF Y > 22 THEN Y = 22 
IF A = 13 THEN X = 2: 

Y = Y +13 


IF Y > 22 THEN Y = 22 

IF A = 9 THEN GOSUB 41360 
IF A = 4 THEN GOSUB 41400 
IF A = 5 THEN 41460 

IF A = 25 THEN GOSUB 44000 
GOSUB 41150: 

GOTO 41100 





IR 1 =P3 TO P2 STEP. - 1: 
HTAB 39 - Pl: 

VTAB Y: 

PRINT  CHR$ ( SCRN( 1,2 
% (Y - 1)) +16 £ SCRN( 1,2 
x (Y - 1) + 1));2 

Pi =P1 +1: 

NEXT : 

HTAB X: 

VTAB Y: 

PRINT." 955 


41460 
41490 


41550 


41560 
415635, 


41570. 


41580 


41382 


41584 


41590 


416500 


41610 


41620 


41624 


41626 
41630 


416540 





HTAB X + Pl: 
VTAB Y: 
PRINT  CHR$ ( SCRN( 1,2 
3 (Y - 1)) +16 € SCRN( 1,2 
CENT) + 1017< 
Pim PL + 13 
NEXT : 
PRINT " "zz 
RETURN 


HTAB 1: 

VTAB 24: 

PRINT— SPC( 14);"ESPERAR"; 

SPCt 103% “5: 

YY = 2: 

PD = 0: 

PC =0: 

FOR JJ = 2 TO 21: 
J=JJ% 40 
YY YY + 1 
FOR K T 
XxX X + ds 
AS CHR$ ( SCRN( K,2 

* JJ) + 16 k SCFN( K,2 
* JJ + 1)): 

AS = CHR$ ( ASC (AS) 

- 128): 

IF AS = "2" THEN 41660 
IF AS = "X" OR AS = "N" 
OR AS = “C" THEN 41570 
IF A$ < >" " THEN 41770 
GOTO 41730 
PC = PC + 1: 

IF PC > M3 THEN 41810 

IF AS = "X" THEN TP(PC) 
= 3 

IF A$ = "N" THEN TP(PC) 
=1 

IF A$ = "C" THEN TP(PC) 


=2 


o 
O 


+ 
1 38: 
Xx 


4o(u 


LC(PC) = 1: 
YC(PC) = YY: 
XC(PC) = K + 1: 
ND(PC) = O: 

W6 = 0 
K=K+dt: 


IF K = 40 THEN 41770 

IF bWó = 1 ANDAS = "XxX" 
THEN 41770 

ARAS = CHR$ ( SCRN( K,2 
* II) + 16 k SCRN( K,2 
* JJ + 1)): 

AAS = CHR$ ( ASC (AAS) 
- 128): 

IF AAS < > AS THEN 41630 
LC(PC) = LC(PC) + 1: 

IF Wé = 1 THEN ND(FC) 

= ND(FC) + 1 

GOTO 41600 

V= SCAN( K,2 4 JJ) 

+ 15 + SCEN( K,2 £ JJ 
+ 1): 

Y = V- 128: 

IF Y = 45 AND vé = O 
THEN LC(PC) = LC(PC) 


GOTO 41730 


41650 
A1660 


41570 


41680 


41590 


41700 


41710 


41730 


41760 
41770 
41800 


41810 


41820 


41950 
41875 
41880 


41910 


41930 


41970 


42000 





IF V< > 38 THEN 41770 
REM 
PD = PD + 1: 
IF FD > M3 THEN 41810 
DS$(PD) = " 
XD(PD) = as 
YD(PD) = 
K=K<+l: 
IF K = 40 THEN 41770 
AAS = CHR$ ( SCRN( K,2 
* JJ) + 16% SCRN( K,2 
Xx JJ + 1)): 
AAS$ = CHR$ ( ASC (ARAS) 
-: 128) 
IF AA$ = "2" THEN 41730 
D$(FD) = D$(PD) + AA$: 
GOTO 41690 

NEXT K,JJ: 

AA = 0: 

FOR 1 = 1 TO M3: 

AA = AA + LC(T): 
NEXT 1: 


IF AA > 128 THEN T$ = "LONG. CAMP 
US > 128": 

GOTO 41820 

GOTO 41850 

REA A 

T$ = "ERROR EN LA LINEA " + 

STR$ (YY - 2): 

GOTO 41820 

T$ = "CAMPOS O DESCRIP.> " 

+ STR$ (M3) 

HTAB 2: 

VTAB 24: 

FRINT TS;" : 

CORREGIR "¡BP$;: 

FOR 1 = 1 TO 4000: 

NEXT 1: 
HTAB 1: 
VTAB 24: 

PRINT— SPC( 39);: 

X= 2: 

Y = YY: 

GOSUB 41150: 

GOTO 41070 

REM: enn 
IF PC = 0 THEN RETURN 

MX = PC: 

NC = 0: 

FOR 1 = 1 TO MX: 

IF TP(I) = 3 THEN 41930 

HTAB XC(1): 

VTAB YC(I): 

PRINT— SPC( LC(1)): 

HTAB XC(I): 

VTAB YC(1): 

PRINT— STR$ (1); 

NEXT 1: 
HTAB 1: 
VTAB 24: 
PRINT— SPC( 40): 
FOR 1 = 1 TO MX: 

FOS(D) = "": 
IF TF(I) < > 2 THEN 42070 
HTAB 1: 

VTAB 20: 

FRINT "FORMULA DEL CAMPO ";1;" 
“2 (DESPUES CTRL E)"z: 

Y = 24: 

Lo. ES 

HTAB 1: 

VTAB 24: 

PRINT— SPC( 39);BF$; 
GOSUB 41310: 

IF 1% = CHR$ (1) THEN X 
EM DE 

IF X < 1 THEN X= 1 

IF 1% = CHR$ (19) THEN X 
=X +1: 








IF X >31 THEN X = 31 
42010 IF 1% = CHR$3 (3) THEN 42050 
42020 IF ASC (1$) < 32 THEN 41590 
42050 PRINT 1$;: 
E=siboar da 
IF X > 31 THEN YX = 31 
42040 GOTO 41990 
42030 Y ="23: 
FOR H = 0 TO 30: 
Y =  SCRNT H,2 Y Y) + 16 
4 SCRN( H,2 k Y +1): 
Y =V- 128: 
FO$(1) = FO$(1) + CHR$ (V) 


NEXT H 
42070 NEXT l: 
FOR I = 1 TO 1000: 
NEXT : 
WS = 2: 
RETURN 
AA AAA AAA ek 
42530 HOME : 
HTAB 7: 
VTAB 9: 
PRINT "INTRODUCIR EL DISCO DATOS" 
HTAB 8: 
VTAB 20: 
PRINT "DESPUES PULSAR UNA TECLA"; 


GET 1$: 

HOME : 

HTAB 14: 

VTAB 12: 

FRINT "ESPERAR": 

NF$ = "DEFC": 

LR = 26: 

GOSUB 5000: 

FOR 1 = 1 TO M3: 
L = LEN (D$(1)): 
IF L < 10 THEN D$(1) = D$(I) 
+ LEFTS (BA$,10 - L): 
GOTO 42600 

42590 D$(1) = LEFTS (D$(1),10) 








42600 A$ = "0" + STR$ (XD(1)):2 
R$ = RIGHTS (A$,2): 
AS = "0" + STR$ (YD(1)): 
R$ = R$ + RIGHTS (A$,2): 
R$ = R$ + DS(1): 
A$ = "0" + STR$ (XC(I)): 
R$ = R$ + RIGHTS (A$,2): 
AS = "0" + STR$ (YC(I) 
R$ = R$ + RIGHTS (A$,2): 
AS = "0" + STR$ (LC/1 
R$ = R$ + RIGHTS (As,2): 





AS = "0" + STRS ITP:1 
R$ R$ + RIGHTS (44,2 
AS = "0" + STRS (NDO 
R$ = R$ + RIGHTS (45,2) 
NR ; 














GOSUB 4000: 


FOR 1 = 1 TO M3: 


42730 





+ LEFTS (BA$,20 - L 
BOTO 42750 
= LEFTS (FOS(I 


z$ + FOSiD ES 














GOSUB £400: 





G0SUB 000: 
As = 115: 
NR = 1: 





GOSUB 6400: 
G0SUB 4600: 
NF$ = "“PDFC": 
LR : 

COS 
FOR 





4000: 
= 1 TO M3: 
= ST$ + FTS(T) + NS$(I): 





4 1 
1 


ST$ 
NEXT I: 
NR = 1: 
AAS$ = ST$: 
GOSUB £400: 
GOSUB 4600 
42830 RETURN 
A E AO 
43010 HOME : 
HTAB 8: 
VTAB 10: 
PRINT "INTRODUCIR EL DISCO PROGRA 
MAS": 
HTAB 8: 
VTAB 20: 
FRINT "DESPUES PULSAR UNA TECLA": 
GET 15$: 
FRINT Di$: 
PRINT D1$; "RUN MAIN, FUENTE, D1" 
43500 RETURN 
44000 REM 
44030 PRINT BP$;: 
HTAB 1: 
VTAB 24: 
FRINT "BARRA ESPACIADORA PARA CON 
TINUAR £32 
GOSUB 44180: 
HTAB 1: 
VTAB 24: 
PRINT "CTRL. I:2 
INSERCION DE UN CARACTER E 


GOSUB 44180: 





FPRINT 
BORRADO DE UN CARACTER EN 
G0SUB 44180: 
HTAB 1: 

VTAB 24: 

PRINT "RETURN: 

VA AL PRINCIPIO as 


44110 GOSUB 44180: 
HTAB 1: 
VTAB 24: 
PRINT "CTRL.E: 
CONTROLA, CONVALIDA Y GRABA —— ";:2 
G0SUB 44180: 
HTAB 1: 
VTAB 24: 
PRINT "CTRL.A,S,Z,W: 
MUEVEN EN LAS 4 DIRECTIO. “¿2 








UTAB 24: 
PRINT  SPFC( 39)31 
RETURN 
24180 GET J$: 
IF J$ = " " THEN RETUEN 
44190 GOTO 44180 
34500 REM 
44370 HOME : 


HTAB 10: 
VTAB 8: 


FRINT "INTRODUCIR EL DISCO DATOS" 


HTAB 10: 
VTAB 20: 
FRINT "DESFUES PULSAR UNA TECLA " 


GET I$: 
HOME : 
HTAB 14: 
VTAB 12: 
FRINTS"ESSPE¿R-A.R"s 
NF$ = "DEFC": 

LR = 26: 

GOSUB £000:2 

FOR 1 = 1 TO M3: 


NR = 1: 

GOSUB £200: 

XD(1) = VAL ( MID$ (AA$,1,2)) 
YD(I) = VAL ( MID$ (RA$,3,2)) 
D$(1) MID$ (AA$,5,10) 


"ou 


44610 xc(1) 
): 
YCc(1I) 
): 
LC(ID) = VAL ( MID$ (AA$,19,2) 
3 
TP(I) = VAL ( MID$ (AA$,21,2) 
A 
ND(1) = VAL ( MIDS (AA$,23,2 
): 
NEXT 1: 
GOSUB 6600: 
NFS = "FORC": 
LR = 34: 
G0SUB 6000: 
FOR I = 1 TO M3: 
NR = 1: 
GOSUB 5200 
44680 FO$(I) = MID$ (AA$,3,30): 
NEXT 1: 
GOSUB 4600: 
RETURN 
AO RE RA 
43023 IF WS = 0 THEN WS = 2: 
GOSUB 44500 
45030 HOME : 
HTAB 1: 
VTAB 1: 
FRINT Hi$;: 
HTAB 3: 
VTAB 7: 
FRINT "INTRODUCIR LA CABECERA (MA 
X.80 CAR.)"s: 
HTAB 3: 
VTAB 9: 
INPUT 1$: 
A = LEN (18): 
IF A > 80 THEN 45030 
43050 IF A = 80 THEN XP = O: 
GOTO 45090 
45060 HTAB 2: 
VTAB 14: 
PRINT "INTROD. LA COLUMNA FPRINCIP 
IO IMPRESION": 
HTAB 11: 
VTAB 16: 
PRINT "( MIN.O ; MAX.";80 - Az" ) 


VAL ( MID$ (AA$,15,2) 


" 


VAL ( MID$ (AA$, 17,2) 


HTAB 11: 
VTAB 19: 
INPUT XP: 
IF XP < 0 OR XP > 80 THEN 45030 
43090 .IF XP < 10 THEN A$ = "0" + 
STR$ (XP): 
GOTO 45100. 
45093 A$ = STR$. (XF) 
43100 IIS = A$ + 15 +, MID$ (BA$, 1,80 


45170 


45180 


435220 


43250 


45260 
45270 
45290 


25300 


-= LEN (1$)): 
HOME : 
HTAB 1: 
VITAE 1: 
FRINT Hi$;: 
HTAB 12: 
VTAB 13: 
FRINT "1) HORIZONTAL": 
HTAB 12: 
VTAB 153: 
PRINT "2) VERTICAL” 
VTAB 17: 
HTAB 23: 
GET A$: 
IF AS< > "1" ANDAS< > "2" 
THEN 4517 
ST$ = "0" + AS: 
HOME : 
HTAB 1: 
VTAB 1: 
PRINT H1$;: 
HTAB 3: 
VTAE 6: 
PRINT "EN LA SIGUIENTE MASCARA DE 
BERAN": 
PRINT : 
HTAB 3: 
PRINT "SELECCIONARSE LOS CAMFOS A 
IMPRIMIR, ": 
HTAB 3: 
VTAB 10: 
FRINT "INSERTANDO LA LETRA *T” SI 
EL CAMPO": 
FRINT : 
HTAB 3: 
FRINT "(NUMERICO O DE CALCULO)? DE 
BE": 
FRINT : 
HTAB 3: 
PRINT "TOTALIZARSE. " 
HTAB 1: 
VTAB 18: 
PRINT "ES.: 
2-Ti-15-T6 =IMPRESION DE LOS CAM 
POS 2,1,15,6 CON TOTALIZACION DE 
LOS CAMPOS 1 Y 6": 
HTAB 11: 
VTAB 24: 
PRINT "PULSAR UNA TECLA":2 
GET J$ 
HOME + 
GOSUB 41020: 
FOR I = 1 TO M3: 
IF LEFTS (D$(1),3) = " Y 
OR LEFTS (D$(1),1) = "" 
THEN 45270 
HTAB XD(D): 
VTAB YD(1): 
PRINT D$(1) 
NEXT 1: 
FOR 1 = 1 TO M3: 
IF TP(1) = O THEN 43300 
HTAB XC(1): 
VTAB YC(1): 
PRINT— STRS (1) 
NEXT 1: 
HTAB 1: 
YTAB 24: 
PRINT "INDICA LOS CAMPOS A IMPRIM 
IR (ES.2-T3-1)"31 
HTAB 1: 
VTAB 24: 
INPUT B$: 
LL = LEN (B$): 


e... 





0 





= 1 TO LL: 
= MID$ (B$,1,1): 
C$ = "-" THEN GOSUB 45370: 


GOTO 43360 
3330 AS = As + C$ 
25360 NEXT I: 





43370 REM —— 





43380 EC =U+ ll: 
L = LEN (AS): 
IF” CEFTS (88,1) = "T" TREN FTS(L 
)= "01": 
LeL:= de 
AS = MIDS (A$,2,L): 
GOTO 43400 
“90” 
45400 Y = VAL (AS): 


IF Y = 0 THEN 45470 
O IF TP(V) = O THEN 45470 
IF TP(V) = 3 THEN FT$(C) = "00" 
4430 IF L > 2 0R L< 1 THEN 43470 
45440 IF L = 1 THEN NS$(C) = "O" 
+ Aé: 
GOTO 45450 
43443 NS$(C) = As 
43450 IF 1 = LL THEN 45560 
45460 A$ = ""; 
RETURN 
ADO A 
45480 HOME : 


HTAB 14: 
VTAB 14: 


FRINT "ERROR":BPS;: 
FOR I = 1 TO 1200: 
NEXT : 
FOR 1 = 1 TO M3: 
PISTA 
NS$(1) ="": 
NEXT" 
HOME 2 
HTAB 11: 
VTAB 11: 
FRINT "1) CONTINUO": 
HTAB 11: 
VTAB 13: 
PRINT "2) VUELVO AL MENU“: 
HTAB 14: 
VTAB 18: 
PRINT "CUAL 7"; 
45530 GET A$: , 
IFAS< > "ITANDAS< > "2" 
THEN 43530 
45540 IF A$ = "2" THEN RETURN 
45550 GOTO 43250 





AS560 FOR 1 = C +1 TO M3: 
FTS(1) = "00"; 
NS$(1) = "00": 
NEXT : 
IF ST$ = "02" THEN 45640 
45600 B = 0: 
FOR 1 = 1 TO M3: 


1 

A= VAL (NS$(1)): 
IF A = 0 THEN 43520 
AS5610 B=B+LC(A) 
45620 NEXT I: 

IF B > 80 THEN 45470 
45640 RETURN 
O o 
46030 HOME : 


VTAB 1: 

PRINT H1$;: 

HTAB 13: 

VTAB 6: 

PRINT "MENU DEFINICIONES": 
HTAB 13: 

VTAB 7: 


VTAB 12: 
PRINT "1) CREACION MASCARA" 
245070 HTAB 6: 


46110 


46120 


Main 


10 
2 
2 
23 
y 


60 


70 


80 


90 


220 
230 
240 


290 
500 
3530 


540 


VTAB 14: 

PRINT "2) DEFINICIONES FORMATOS 1 
MPRESION": 

HTAB 6: 

VTAB 16: 

FRINT "3) GRABACION FICHEROS DEFI 
NICIONES": 

HTAB 6: 

VTAB 18: 

FRINT "4) RETORNO AL MENU FRINCIF 
AL": 

HTAB 17: 

VTAB 22: 

FRINT "CUAL 2"; 

GET A$: 

IF A$ < "1" OR AS > "4" THEN 4611 
0 


PRINT A$;: 

FOR I = 1 TO 1000: 
NEXT : 

OP = VAL (A$): 
RETURN 

REM 


REM BASE DE DATOS 
REM VERSION DOS 


REM mon 
M3 = 20: 
MR = 120 


DIM TP(M3),LC(M3),ND(M3), XC (M3), Y 
C (M3), XD (M3) , YD (M3) ,HT (M3) , HL (M3) 
¿AN (M3), IS(MR),NS (M3) ,FT (M3), 28 (M 
3) ,B$(M3),D$ (M3) ,F$(M3),DA$ (MA) 
RESTORE : 
READ NV: 
FOR 1 = 1 TO NV: 

READ A$: 
NEXT 
FOR I = 1 705: 

READ 0P$(1): 


NEXT 
FOR 1 = 1 TO 6: 
READ F2$(1): 
NEXT 
REM --- MAIN --- 
GOSUB 1300 
IF OF = NV THEN TEXT : 
HOME : 
END 


ON OF GOSUB 12000,4500,5300, 14000 
, 12000, 16000 

GOTO 230 

REM 

TEXT : 

HOME : 

BF$ = CHR$ (7): 

D$ = CHR$ (4): 


DR$ = "1": 

BS =" .e 

BAS = B$ + B$ + Bs + ES: 
BS="_ "e 






BES = BS + BS + B$ + BS: 

B$ = "00000000000000000000": 

ZE$ = B$ + B$ + B$ + B$ 

INVERSE : 

PRINT "E.G.S. EDICION 
ES FORUM, S.A."z: 

NORMAL 

HE$ = "CTRL E. INTRODUCCION — CTR 
L R. VUELVE AL MENU - CTRL A,S,Z, 
W. MUEVEN EN LAS CUATRO DIRECCION 
ES - CTRL I. INSERCION - CTRL D. 
BORRADO -— ESC . ANULACION — FULSA 
R UNA TECLA - " 


580 RETURN 
500 REM  -—- ESPERAR --- 
$10  GOSUB 500: 
HTAB 14: 
VTAB 13: 
FRINT "ESPERAR": 
RETURN 
1000 REM 
1010 Xi=X- 
Yi =Y - 
CH SCRN( X1,2 * Y1) + 16 
Y SCRN( X1,2 £ Yi + 1): 
HTAB X: 
VTAB Y: 
FLASH : 
IF FC = O THEN INVERSE 
1040 PRINT CHR$ (CH)32 
HTAB X: 


pa ques 


1100 REM 
1110 X 


VTAB Y: 
PRINT CHR$ (CH)3: 
HTAB X: 
RETURN 
1200 REM 
1210 AO = PEEK ( - 16384): 


IF AO >. 126 THEN POKE - 16358,0 


AQ = AO - 128: 
RETURN 
1220 GOTO 1210 
1300 REM 
1330 GOSUB 500: 
RESTORE : 
READ NV: 
IF NV = 0 THEN RETURN 
1350 L=0: 
FOR 1 = 1 TO NV: 
READ VO$ (1): 
LL = LEN (VO$(1)): 
IF LL >L THEN L = LL 
1370 NEXT I: 
XI = (40 - L) / 2: 
YI = ((24 - NV £ 2) / 2) + 1: 
La xE == 23 
Y = Yl: 
FOR 1 = 1 TO NV: 
HTAB X: 
VTAB Y: 
PRINT 13" - ";VOS(1): 
Y = Y +2: 
NEXT 1: 
Y=Y+1 
1410 HTAB X: 
VTAB Y: 
PRINT "CUAL 2%: 
GOSUB 1200: 
OP$ = CHR$ (M0): 
OP = VAL (0P$): 
IF OP < 1 OR OP > NV THEN 
PRINT BP$;: 
GOTO 1410 
1440 FLASH : 
FRINT OP: 
NORMAL : 
FOR 1 = 1 TO 1000: 
NEXT 1: 
RETURN 
REM 
NC = M3 
G0SU3 500: 
HTAB 1: 
VTAB 24: 
INVERSE : 





2039 


2040 


2080 


2085 
2090 


2112 


2120 


2170 


2500 
2530 


23935 


2580 
2590 


2700 
2730 


2800 


PRINT — SFC( 39)3: 
NORMAL 
FOR I = 1 TO NC: 
IF D$(1) = LEFT$ (BA$,10) 
THEN 2037 
HTAB XD(1): 
VTAB YD(1): 
PRINT D$11); 
NEXT 
FOR IC = 1 TO NC: 
1F TP(IC) = O THEN 2170 
IF TP(IC) 4 THEN A$ = B$(IC) 
GOTO 2160 
B$(IC) = LEFT$ (B$(IC),LC(IC) 
3 
L = LEN (B$(1C)): 
IF L < LC(IC) THEN B$(IC) 
= B$(1C) + LEFT$ (BA$,LC(IC) 
= 4) 
IF TP(IC) < > 1 AND TP(IC) 
<_ > 2 THEN 2120 
IF ND(IC) = O THEN 2112 
FD = ND(IC): 
Ci = LC(1IC) - PD - 1: 
C2.= LO(IC) - Cl - 1: 
B$(IC) = LEFT$ (BA$,C1) 
+ "." + LEFT$ (BA$,C2): 
AS = LEFTS (BE$,C1) + ". 
+ LEFT$ (BE$,C2): 
GOTO 2160 
B$(IC) = LEFTS$ (BA$,LC(1C)): 
A$ = LEFTS (BE$,LC(IC?):2 
GOTO 2140 
B$(IC) = LEFTS (BA$,LC(IC)): 
215 = ""s 


"o. 









L=0: 
GOTO 2150 
AS = 7% + MID$ (BU$,1,LC(1C) 


==) 
HTAB XC(I1C): 
VTAB YC(IC): 
PRINT As$ 

NEXT IC: 

RETURN 

REM 

L = LEN (28): 

IF L =0 THEN RETURN 

FOR 1 = 1 TO L: 
C= ASC ( MID$ (2$,1,1)): 
IF C< >32 THEN 11 = 1: 
GOTO 2560 

NEXT 1: 

18 ="": 

RETURN 

FOR 1 = L TO 1 STEP - 1: 
C= ASC ( MID$ (2$,1,1)): 
IFC< >32 THEN 12 = I: 
GOTO 2590 

NEXT 1 

KO = 12 - 11 + 1: 

2$ = MIDS (2$,11,K0); 

RETURN 

REM 

XT = (42 - LEN (TIS)) / 2: 

HTAB XT: 

VTAB YT: 

PRINT TIS;: 

RETURN 

REM 

AS = LEFTS (BA$,38): 

HTAB 2: 

VTAB YT: 

PRINT A$;: 

RETURN 

REM 

224 =*"": 

A = LEN (24): 

I=1 





2940 


2945 
2950 


3000 
3030 


3032 
3035 
3037 
3040 
3042 


3045 


3070 
3080 


3090 
3100 
3110 
3120 


3130 
3140 


3150 


3180 
3190 


3200 


Z1$ = MID$ (25,1,1): 

IF 716< > " " THEN 22$ = 72$ 
+-218 

1= Tél 

IF 1< = (A) THEN 2940 

1% = 72%: 

RETURN 


FRINT "AYUDA. CTRL-Y";: 

NORMAL 

IF TP(CC) < > 2 THEN 3042 

GOTO 8500 

GOTO 3080 

REM 

IF TF(CC) = 4 OR TF(CC) = 0 

THEN 3080 

XC = XC(CC): 

YC = YC(CC): 

LO = LC(CC): 

GOSUB 3500: 

IF AO = SORA = 18 0R A 

= 27 THEN RETURN 

IF AO X< > 26 THEN 3100 

CC =CC+ 1: 

IF CC > NC THEN CC = 1 

GOTO 3032 

IF AO < > 23 THEN 3140 

CC: CO--- 13 

IF CC <% 1 THEN CC = NC 

IF TP(CC) = 4 THEN 3110 

GOTO 3032 

IF TP(CC) < > 1 THEN B$(CC) 

= C$: 

GOTO 3080 

FD = 0: 

FOR I = 1 TO LC(CC): 
C= ASC ( MID$ (C$,1,1)): 
IF (C < 48 OR € > 57) AND C 
< >32ANDC< > 46 AND C 
€ > 45 THEN B$(CC) = C$: 
PRINT BFS$;: 
GOTO 3032 
IF C = 46 THEN FD = FD + 1 

NEXT 1: 

IF PD > 1 THEN E$(CC) = C$: 

PRINT BPS;: 

GOTO 3032 

C$ = MID$ (C$,1,I1C): 

2$ = Có: 

GOSUB 25300: 


+ CS = 75: 


3500 
3530 


Ko 


LC(CC) - LEN (04): 
AS = MIDS (BA$,1,K0) 

AS = AS + CS: 

BS (CC) = Ab: 

AS = MIDS (BE$,1,K0): 
AS = AS + CS: 

HTAB XC: 

VTAB YC: 

PRINT As: 

GOTO 3080 

REM 

IC =0: 

C$ = BS(CC): 

IF LO = 0 THEN RETURN 
IF CC = 0 THEN HTAB XC: 
VTAB YC: 

PRINT MID$ (BUS,1,LO) 


” 


X = XC: 

Y = YC 

1 MIDS (04,10 + 1,1) = ".” 
AND TP(CC) = 1 THEN IC = IC 
e 17 

X=X +1 


3360 


3582 


3585 


3390 


3605 


3620 
3630 


3700 


3722 


3725 


3750 





GOSUuB 
GOSUB 1200: 

GOSUB 1100 

IF A0 = 5 DR AO = 23 0R AO 

= 25 OR A0 = 13 OR AO = 27 

THEN RETURN 

IF AO = 9 THEN GOSUB 3700: 

GOTO 3360 

IF AO = 4 THEN GOSUB 3800: 

G0TO 3330 

IF AO = 25 THEN GOSUB 13000: 
GOTO 3350 

IF AO < > 13 THEN 3620 

IF 1C = 0 THEN 3390 

IF TP(CC) = 1 AND MIDS (C$,1C,1) 
= "," THEN 10 = 1. - 1 

MID$ (C0$,1, IC): 

MID$ (BA$,1,LO - 10): 
C$ = CS + AS: 
AS MID$ (BUS, 1,LO - 10): 

IF TP(CC) = 1 THEN A$ = MID$ (BE 
$,1,L0 - IC) 

HTAB XC + IC: 
PRINT AS: 
RETURN 

IF AO < > 1 THEN 3650 

IF IC = 0 THEN PRINT EP$;: 
GOTO 3350 





Cs 
As 


'”....4.4 


IC = 10 - 1: 
X= X- 1: 
GOTO 3550 


IF IC = LO THEN FPRINT BP$;: 
GOTO 3350 

IF AO = O THEN 3350 

IF AO = 19 THEN IC = IC + 1: 
RE 

GOTO 3545 

CH$ = CHR$ (A0): 

PRINT CH$;: 

C$ = MID$ (C$,1,1C) + CHS 
+ MIDS (C$,IC + 2,39): 
1C:= IC + 11 

X= X +1: 

GOTO 3545 

REM 

IF IC = LO OR TP(CC) = 1 THEN AO 
= 03 

RETURN 

2$ = C$: 

GOSUB 2500: 

C$ = 25 

FC = 0: 

GOSUB 1000: 

GOSUB 1200: 

GOSUB 1100: 

IF AO = S OR AO = 4 0R AD = 23 


OR AO = 26 OR AO = 18 OR AO 
= 27 OR AO = 25 0R AO = 1 
OR AO = 19 OR AO = 13 THEN FC 
= 1: 

RETURN 


CH$ = CHR$ (AO): 

C$ = MIDS (C$,1,IC) + CH$ 
+ MID$ (C$,IC + 1,L0 - IC 
ES 

L = LEN (C$): 


AS = MID$ (BU$,1,LO - L): 
A$ = C$ + A$: 

HTAB XC: 

FRINT A$: 

== ké ds 

IC = IC + 1: 

IF IC < LO THEN 3730 

FC = 1: 

RETURN 

REM 


IF IC = LO OR TP(CC)> = 1 THEN 
RETURN 
2$ = Cé: 


4500 
530 


4340 


4390 


4500 
4650 
4560 


4570 


4580 
4683 
4690 
4700 


4710 
4720 
4730 
4740 


4730 


4760 
4770 


4780 


3000 


5010 


5020 


5030 


3040 


5030 






IDS (0$,1,10) + MIDS (C$, 
+ 2,10 = 10 = 1): 

LEN (04): 

MID$ (BUS, 1,LO — L): 

C$ + As: 


3 YC: 
PRINT A$: 


RETURN 





VTAB 14: 

FRINT "1) EL FICHERO EXISTE": 
HTAB 4: 

VTAB 16: 

PRINT "2) EL FICHERO DEBE CREARSE 


HTAB 11: 

VTAB 19: 

PRINT "CUAL 2"; 

GET A$: 

IF AS< > "1" ANDAS< > "2" 
THEN 4360 

PRINT A$;: 

FOR 1 = 1 TO 400: 


NEXT 

IF A$ = "1" THEN GOSUB 5200: 
GOTO 4400 

MX =0: 

GOTO 4650 

MX = VAL (DA$(0)) 


REM - PRINCIPIO BUCLE INTRODUCION 
FOR KJ = MX + 1 TO MR: 
H =KJ 
GOSUB 2000: 
HTAB 3: 
VTAB 24: 
INVERSE : 
FRINT "REGISTRO N.";H:z: 
NORMAL : 
GOSUB 3000 
IF AO = 27 THEN 4670 
IF AO = 18 THEN RETURN 
DAS (KI) = "k" 
FOR 1 = 1 TO M3: 
IF TP(I) = O THEN 4720 
DA$(KJ) = DA$S(KJ) + ES(I) 
NEXT I 
DAS(O) = STR$ (KJ) 
GOSUB 500; 
HTAB 8: 
VTAB 12: 
PRINT "OTRA INTRODUCCION ? (S/ 
No"; 
GET A5$: 
IF A$ = "N" THEN 4780 
IF A$< > "S" THEN 4730 
NEXT KJ: 
KJ = KJ - 1 
GOSUB 5300: 
RETURN 





PRINT D$: 

RETURN 

NAAA AAA 
FRINT D$: 

PRINT D$; "READ"¿NF$;",R"¿NR: 
INPUT AA$: 

PRINT D$: 

RETURN 
ASAS 
PRINT D$: 

FRINT DS; "WRITE"¿NF$;",R"¿NR: 


5240 


5250 


de 


3280 


3300 


5330 


PRINT— CHR$ (34) + AA$: 

FRINT D$: 

RETURN 

REN == A 
FRINT D$ 
PRINT DS 
FRINT D$ 
RETURN 
REM --— LECTURA --— 

IF 06 = 2 THEN RETURN 

D65 = 2 

GO0SUB 300: 

HTAB 10: 

VTAB 13: 

PRINT "INTRODUCIR EL DISCO DATOS" 


"CLOSE"5NF$: 


HTAB 10: 
VTAB 15: 
FRINT "DESFUES PULSAR UNA TECLA": 
GET A5$: 
GOSUB 500: 
HTAB S: 
VTAB 13: 
FRINT "NOMBRE FICHERO"; : 
INPUT NF$ 
GOSUB 500: 
GOSUB 400: 
LR = 128: 
GOSUB 5000 
NR = 1: 
GOSUB 5020: 
DA$ (O) = AMS 
FOR 1 = 1 TO VAL (DA$(0)):2 
NR =1+1 
GOSUB 5020: 
DAS(I) = AA$: 
NEXT 
GOSUB 53060: 
RETURN 
REM --- GRABACION DATOS --- 
GOSUB 500: 
HTAB 10: 
VTAB 13: 
FRINT "INTRODUCIR EL DISCO DATOS" 


HTAB 10: 
VTAB 15: 
FRINT "DESPUES FULSAR UNA TECLA": 
GET A$: 
GOSUB 500: 
HTAB S: 
VTAB 13: 
PRINT "NOMBRE DEL FICERO";: 
INPUT NFS 
GOSUB 500: 
GOSUB 400: 
LR = 128 
GOSUB 3000: 
FOR 1 = 0 TO VAL (DA$(0)) 
AA$ = DA$(1): 
NR = 1 +1: 
GOSUB 5040: 
NEXT 1 
GOSUB 5050 
D6 = 2 
RETURN 
REM -—- ORDENADO —- 
GOSUB 7000; 


G0sUuB 5200 
FOR 1 = 1 TO M3 
HT(D = TP(1): 
HL(I) = LC(I): 
HN(1) = ND(I) 
IF TP(1) > O THEN TP(1) 
= 3: 
LCD = 1: 
N(D =0 
NEXT 1 


GOSUB 2000: 


S608 


5610 


5620 


5430 


3690 
£000 
6010 


£020 





HTAB 2: 
VTAB 23: 





> EN EL CAMPO CLAVE DEL 
ORDENADO"; BP$5 : 
G0SUB 3000 
IF AO = 27 THEN 3390 
FOR I = 1 TO M3: 
TP(1) = HT(1): 





ND(1) = HNC(1)s 
LC(D) = HL(T): 
NEXT 1 


IF AO = 18 THEN RETURN 
FOR I = 1 TO M3: 
IF B$(1) = "%" THEN K9 = Il: 
GOTO 54639 
NEXT I: 
GOSUB 500: 
HTAB 3: 
VTAB 11: 
FRINT "EL CAMPO CLAVE NO SE HA IN 
DICADO": 
HTAB 13: 
VTAB 14: 
FRINT "VUELVO AL MENU"; BPS: 
FOR 1 = 1 TO 1000: 
NEXT : 
RETURN 
IF K4 = 1 THEN P1 = 2: 
P2 = LC(1)3 
GOTO 5470 
Pi 1: 
F2 = 0: 
FOR 1 = 1 TO K4 - 1 
P1 =P] FLUUIT> 
NEXT 
Pl=Pi+t: 
P2 = LC(K4) 
GOSUB 30d: 
GO0SUB 4) 
GOSUB 4006 
W6 = 2: 
F8 = Pl: 
Papa 
GOSUB 300: - 
HTAB 10: 
VTAB 12: 
PRINT "ORDENADO EFECTUADO":BP$: 
FOR I = 1 TO 1000: 
NEXT 
RETURN 
REM SORT 
N = VAL (DA$(0;) 


.o.a 






hu" 








IF TP(K4) < 3 THEN O 1F VAL (Als 
< VAL 1B1$) THEN $109 
IF TP) y 





di= T=1 
IF 11 < J1 THEN £050 











7040 


7050 


7060 


7080 


7090 


7100 


7110 


7120 


7140 


7150 


7160 


7170 
7180 


7190 


7200 


7210 
7220 


7230 


7240 


RETLEN : 
REM ——- FIN ORDENADO —- 


$ (DAS(ISCID),P1,P: 


Ss (DAs:IS(D) 


2) 






REM — LECTURA DATOS M 
IF 08 = 2 THEN RETUEN 
QQ = 2 

G0SUB 500: 

HTAB 5: 

UTAB 13: 

FRINT "INTRODUCIR 
CIONES": 

HTAB 1 
VTAB 16: 

FRINT "DESFUES FULSAR UNA 
GET A$: 

G0SUB £00 

NF$ = “DEFC": 

LR = 26: 

G0SUB 5000 

FOR I = 1 TO M3: 














NR = IT: 

GOSUB 5020 

XD(1) = VAL ( LEFT$ (AA$,2)): 
YD(I) = VAL ( MID$ (AA$,3,2)) 
D$(1) = MID$ (AA$,5,10) 


XC(I) = VAL ( MID$ (AA$, 13,2) 
de 
YC(1) = VAL ( MID$ (AA$, 17,2) 
) 
LC(1) = VAL ( MID$ (AA$,19,2) 
)»: 
TP(1) = VAL ( MID$ (AA$,21,2) 
2 
ND(1) = VAL ( MID$ (AA$,23,2) 
) 
NEXT 1: 
GOSUB 5060 
NF$ = "FORC": 
LR = 34: 
G0SUB 5000 
FOR I = 1 TO M3: 
NR = 1: 
GOSUB S020 
F$(1) = MID$ (AA$,3,30) 
NEXT 1: 
GOSUB 5060 
NF$ = "PINC": 
LR = 82: 
GOSUB 5000 
NR = 1: 
GOSuB 5020 
XP = VAL ( LEFT$ (AA$,2)): 
115 = MID$ (AA$,3,80) 
GOSUB 50460: 
NFS = "PDFC": 
LR = 82 
GOSUB 5000: 
NR = 1: 
GOSUB 5020 
FI = VAL ( LEFTS (AA$,2)) 
C1 = 3: 
FOR 1 = 1 TO M3; 
FT(D) = VAL ( MIDS (AA$,C1,2) 
» 
NS(1) = VAL ( MIDS (80$,C1 
+ 2,2)): 
Cl = Cl +4 
NEXT 
L= LEN (11%): 
IF L = 0 THEN RETURN 


72530 


7260 


7265 
7270 
8500 
852 

8530 
8540 
8350 


8560 


8365 
8370 


8590 
8600 
8610 


B420 
8625 


8430 


8640 


8650 


8657 


8660 


8665 


8670 


8480 
8690 
8695 
8700 
8705 
8710 
8713 


9000 


9040 


FOR 1 = LEN (11$) TO 1 STEP 
a 
TESMIDSEES Ii A 
THEN 7265 
Esclis=H 
NEXT I 
11% = LEFTS (II$,L) 
RETURN 
REM --— PREPARA FORMULA --- 
As = F$(CC) 
L = LEN (A$): 
FOR I= 1 TOL 
IF MID$ (A$,1,1) = CHR$ (39) 
THEN 8560 
NEXT 1: 
GOTO 8620 
A1$ = MID$ (A$,I + 1,1): 
IF MIDS (A$,1 + 2,1) < > 
CHR$ (39) THEN A1$ = Al$ + 
MID$ (A$,1 + 2,1): 
P=4: 
G0TO 8570 
P=3 
A = VAL (A1$): 
A2$ = B$(A) 
IF VAL (B$(A)) = O THEN A2$ 
= "9" 
AS = MIDS (AS,1,I - 1) + A2$ 
+ MID$ (A$,1 + P,L) 
GOTO 8330 
GOTO 9000 
IFER< >0 THEN B$(CC) = 
L = 1: 
GOSUB 8700: 
PRINT BP$;: 
CC =0: 
GOTO 8695 
L = LEN (M8): 
PP =1 
FOR K1 = 1 TO L: 
IF MIDS (A$,K1,1) = "." 
THEN 8657 
NEXT Ki: 
A1$ = As: 
A2% =".": 
GOTO 8460 
A1$ = LEFTS (A$,K1 - 1): 
IF ND(CC) < > 0 THEN A2$ = 
MID$ (A$,K1,ND(CC) + 1) 
IF ND(CC) = O THEN A2$ = "": 
PP = 0: 
GOTO 8470 
IF ( LEN (A2%) - 1) < ND(CC) 
THEN A2% = A2%$ + MID$ (ZE$,1,ND 
(CC) — LEN (A2$) + 1) 
N = LC(CC) - ND(CC) - FP: 
IF. LEN (A1$) > N THEN B$(CC) 
= ga 
L=d: 
GOSUB 8700: 
PRINT BP$;: 
CC =0: 
GOTO 8695 
B$(CC) = Al$ + A2$: 
L = LEN (B$(CC)) 
GOSUB 8700 
GOTO 3037 
AS = MID$ (BE$,1,LC(CC) - L) 
+ B$(CC) 
HTAB XC(CC): 
VTAB YC (CC) 
FRINT A$: 
B$/CC) = MID$ (BA$, 1,LC(CC) 
= 1) + B$(C0) 
RETURN 
REM --- CALCULO --- 
7$ = Ab: 
1 








9070 
9080 


9090 


Q100 


9130 


9140 
9150 


9160 
9170 
9180 
9190 
9200 
9210 


9220 


9230 


9240 


9260 


9270 


9280 
9290 


9300 


9310 





GOTO 9330 
REM Yxx CAL 2 
ER = 0: 
L = LEN (CA$): 
IF L < 3 THEN 9335 
FOR I1=2T0L - 1: 
CH$ = MIDS (CAS, 1,1): 
FOR JJ = 1 TO S: 
IF OP$(JJ) = CH$ THEN 9120 
NEXT JJ, 1: 
ER = 1: 
GOTO 9335 
CH$ = MID$ (CAS,I + 1,1): 
IF CH$ = "*" OR CH$ = """ OR CH$ 
= "/" THEN ER = 2: 


OTO 9335 
1 
2 









Ya 


= VAL ( MID$ (CA$,1,1 - 1)): 
22 = VAL ( MID$ (CA$,I + 1,407): 
ON JJ GOSUB 9150,9160,9180,9190,9 
200: 


CA$ = STR$ (21): 





1F 21 > = 0 THEN CAS = "+" 
+ CAS 
GOTO 9335 
11 =21 * 22: 
RETURN 
IF 22 = 0 THEN ER = 3: 
RETURN 
Zi = 721 / 22: 
RETURN 
11 = 721 k 22: 
RETURN 
11 = 721 - 22: 
RETURN 
11 = 21 +22: 
RETURN 
REM EEx FORM 2 
ER=0 
FOR OP = 1 TDS: 
LO = LEN (FO$): 
KK = 
IF 1 THEN KK =1 
PO 
P1 
P2 3 
FOR 10 = KK TO LO - 1: 
CH$ = MIDS (FO$,10,1): 


CH = ASC (CHS): 

IF CH$ = OP$(0P) AND FO 
= O THEN PO = 10: 

Go0TO 9280 

0O=0: 

IF (CH = 94 OR CH < 48) 
AND CHX > 46 THEN O 

1 


IF O = 1 AND FO = O THEN Pi 
= 10 
IF O = 1 AND FO > 0 AND 10 
- PO > 1 THEN P2 = 10: 
GOTO 9300 
NEXT 10: 
IF PO > O THEN 9300 
NEXT OP: 
RETURN 
IF Pi = O THEN Pi = 1: 
GOTO 9320 


CH$ = MID$ (FO$,F1,1): 
IF CH$ < > "+" AND CH$ < 
PEESMEN Pi esPS: 4 
22 de 
IF P2 < 0 THEN P2 = LO 
CA$ = MIDS (FO$,P1,F2 - Pl 
+ 1): 
GOTO 9090: 
IF ER< >0 THEN RETURN 
IFER< >0 THEN RETURN 
G0SUB 9540: 
FO$ = MID$ (FO$,1,Fi - 1) 
+ CA$ + MIDS (FOS$,P2 + 1,40): 





9330 


9360 





9380 
9390 


9400 


9410 


9420 


9430 


9440 
9450 


9460 


9470 
9480 
9490 


9300 
qs10 


9520 


9530 


733 


9540 


9550 


2600 
9610 
3620 
9630 
9540 


9650 


9660 


G0TO 9220 

REM xxx PAR 1 

ER = 0: 

LA = LEN (A$): 

IF LA < 3 THEN 9410 
PI 


FOR IA = 1 TO LA: 

MIDS (A$,14,1): 
“(% THEN PI = IA 
"3" THEN 9450 





IF PI > 0 THEN ER = 4: 

GOTO 86253 

FO$ = AS: 

GOSUB 9210: 

As = FOS 

IF VAL (A$) = O THEN A$ = "0" 
IF MID$ (A$,2,1) = "." THEN AS 
= LEFTS (A$,1) + "0" + MID$ (A 
$,2,80) 

IF LEFTS (A$,1) = "+" THEN AS 
= MID$ (A$,2,80) 

GOTO 8625 

IF PI = O THEN ER = 4: 

GOTO 8625 

PF = 1A: 

FO$ = MID$ (A$,FI + 1,PF - PI 
118 

GOSUB 9210: 

IF ER< >0 THEN 8625 

IF PI > 3 THEN GOSUB 9520 

IF PIX = 1 THEN 9500 

IF A< O AND MID$ (A$,PI - 1,1) 
= "-" THEN PI =PI- 1: 

FO$ = "+" + MID$ (FO$,2,80) 
IF ER< > 0 THEN 8625 

AS = MIDS (A$,1,FI - 1) + FOS 
+ MID$ (A$,PF + 1,80): 

GOTO 9360 

REM Xxx FUN 1 

ER = 0: 

CH$ = MID$ (A$,PI - 1,1%: 

IF CH$ < "A" OR CH$ > "2" THEN 
RETURN 

FU$ = MID$ (A$,FI - 3,3): 

FOR 1 =.1 TO é: 

IF FU$ = F2$(1) THEN 9560 

NEXT 1: 

ER = S: 

RETURN 

20 = VAL (FO$): 

ON 1 GOSUB 9570, 9580, 9390, 9600, 96 
10,9630: 

CA$ = STR$ (ZA) 

IF ZA > =o0 THEN CAS = "+" 

+ CAS 

GOSUB 9640: 

FO$ = CA$: 

PI =PI-3: 

RETURN 

ZA = ABS (ZA): 

RETURN 

ZA = INT (26): 

RETURN 

ZA = COS (2A): 

RETURN 

24 = SIN (28): 

RETURN 

IF ZA < O THEN ER = é: 

RETURN 

ZA = SOR (ZA): 

RETURN 

ZA = TAN (724): 

RETURN 

REM YXx EXP 2 

L = LEN (CA$) 

FOR IC = 1 TOL: 

IF MID$ (CA$,IC,1) = "E" 


9670 
9680 


2690 


9700 
9710 
9720 
9730 


9740 
9730 


9760 
9770 
9780 
9790 


9800 


9el0o 
9820 
9830 
9840 
10000 


10010 
10020 


10030 
10040 


11000 
11010 


12000 
12005 
12010 


12020 


12040 


13000 


13030 


13040 


13060 


THEN 9480 
NEXT : 
RETURN 
N$ = MID$ (CA$,2,IC - 2): 
L = LEN (N$) 
FOR 1 = 1 TOL: 
IF MID$ (N$,I,1) = "." 
THEN P = I: 
GOTO 9710 
NEXT 2 


MID$ (N$,1,P - 1) + 
MID$ (N$,P + 1,80) 
IF DD< =E THEN 9770 
N$ = MID$ (N$,1,P + E - 1) 
+ "," + MIDS (N$,P + E,S0) 
DD = E 
N$ = N$ + MID$ (7E$,1,E - DD) 
GOTO 9830 
IF Pe LTHNP=Pp+2- Le: 
GOTO 9810 
N$ = MID$ (N$,1,F - 1) + 
MIDS (N$,P + 1,80): 
t=1 
N$ = MIDS (ZE$,1, - E - L 
+1) + NS 
N$ = MIDS (N$,1,P - 1) + "," 
+ MID$ (N$,F,90) 
CAS = LEFTS (CA$,1) + N$ 
RETURN 
REM:5=="DATOS 
DATA 7 
DATA "DEFINICION MASCARA", " INTRCD 
UCCION DATOS", "ORDENADO", "BUSQUED 
A CON VARIACION", "DEFINICION FORM 
ATOS IMPRESION", "IMPRESION", "FIN 
DE TAREA" 
DATA 0 
DATA "ABS", "INT",'COS", "SIN", "SOR 
" "TAN" 
REM ¡atomica reido 
TI$ = "PULSAR UNA TECLA": 
YT = 22: 
GOSUE 2700: 
GOSUB 1200: 
GOSUB 2800: 
RETURN 
REM --- DEFINICION MASCARA — --- 
REM --- Y FORMATOS IMPRESION --- 
GOSUB 500: 
HTAB 7: 
VTAB 13: 
PRINT "INTRODUCIR EL DISCO FROGRA 
mAs" 
HTAB 10: 
VTAB 15: 
FRINT "DESPUES PULSAR UNA TECLA " 
GET As 
FRINT D$: 
PRINT D$; "RUN DEFINICIONES. FUENTE 
Di" 
PA 
1d 232 
GOSUB 2800: 
INVERSE 
FOR 1 = 1 TO 166: 
FOR T = 1 TO 100: 
NEXT Tz 
CH$ = MID$ (HE$,1,1) 
A$ = RIGHT$ (A$,38) + CH$:z 
HTAB 1: 
VTAB 23: 
FRINT A$;: 
AO = PEEK ( - 16384): 


13100 


13130 


14000 
14030 


14040 


14050 
14070 


14080 


14090 


14100 
14110 


14120 


14130 


14140 


14150 


14150 


14162 


14165 


14170 


14180 


14190 


IF A0 > 128 THEN 13130 
NEXT I: 
GOTO 13040 
NORMAL : 
HTAB 1: 
VTAB 23: 
PRINT — SPC( 39);: 
POKE -— 16368,0: 
RETURN 
REM - BUSQUEDA CON VARIACION — 
GOSUB 500: 
HTAB 10: 
VTAB S: 
PRINT— LEFT$ (BUS, LEN (VO$(4))) 
HTAB 10: 
VTAB 6: 
PRINT V0$(4): 
HTAB 10: 
VTAB 7 
PRINT LEFT$ (BUS, LEN (VO$(4))) 
HTAB 6: 
VTAB 13: 
PRINT "INTRODUCIR EL NUMERO DEL R 
EGISTRO (0= BUSQUEDA EN CAM 
FO CLAVE) (-1 = VUELVE 
AL MENU) " 
HTAB 17: 
VTAB 21: 
INPUT AS 
R= VAL (AS): 
IF R > VAL (DA$(0)) THEN 14030 
IF R< O THEN RETURN 
IFR< >0 THEN Wó = 0: 
Mi =R: 
MA =R: 
GOTO 14250 
IF W6 < > 2 THEN GOSUB 500: 
HTAB 3: 
VTAB 12: 
PRINT "PARA PETICION DE BUSQUEDA 
ANTES HAY QUE HACER 
EL ORDENADO. ";BP$: 
FOR 1 = 1 TO 1800: 
NEXT : 
GOTO 220 
FOR Y = 11 TO 22: 
HTAB 1: 
VTAB Y: 
PRINT SPC( 40);: 
NEXT 
HTAB 3: 
VTAB 12: 
PRINT "INTRODUCIR EL VALOR DEL CA 
MPO CLAVE" 
HTAB 2: 
VTAB 16: 
PRINT "NOTA. EL CAMPO CLAVE DEBE 
SER EL MISMO QUE EL DE ORDENADO 


HTAB 7: 

VTAB 20: 

INPUT RAS 

IF LEN (RA$) > LC(K4) THEN 14130 


G0SUB 500: 

HTAB 9: 
VTAB 7: 

FRINT "ESPERAR, ESTOY BUSCANDO. ": 
X = (40 — LEN (RA$)) / 2: 

HTAB X: 

VTAB 8: 

FRINT RAs$ 

IF TP(K4) = 3 THEN RAS = RAS 

+ MIDS (BA$,1,LC(K4) — LEN (RA 
$)): 
GOTO 14190 
RA€ = MIDS (BA$,1,LC(K4) - 

LEN (RA$)) + Ras 
G0sUB 14500: 


14195 


14200 


14210 


14220 


14230 


14235 


14240 


14250 


14260 


14265 
14270 


14280 


14290 


14300 
14310 


14320 


14330 


14340 


14350 
14355 
14360 
14370 


14380 


14390 
14400 


14410 
14420 


14430 


14440 


14450 


14500 


14515 


14520 


REM —— BUSQUEDA BIN.-— 


FOR I = 1 TO 1500: 
NEXT 
HTAB 2: 
VTAB 7: 
PRINT — SPC( 38);BP$ 
IF TR = O THEN HTAB 12: 
VTAB 14: 
FRINT "NO HALLADO";BPS;: 
FOR 1 = 1 TO 2000: 
NEXT : 
GOTO 14000 
A = MA - MI + 1: 
HTAB 14: 
VTAB 14: 
PRINT "HALLADO": 
HTAB 13: 
VTAB 20 
IF A = 1 THEN PRINT "(Un SOLO RE 
GISTRO)" 
IFAX >1 THEN PRINT "( "sA;" 
REGISTROS) " 
PRINT BP$;: 
FOR 1 = t TO 2500: 
NEXT 
REM --- PRES REG. --- 
FOR JK = MI TO MA: 
KI = IS(JK) 
IFR< >0 THEN KJ = JK 
AS = MIDS (DA$(KJ),2, LEN (DA 
$(KJ)) - 1) 
Ci = 1: 
FOR 1 = 1 TO M3: 
IF TP(I) = O THEN 14300 
B$(1) = MID$ (A$,C1,LC(1)) 
[1 = C1 + LC(1): 
HT(D) = TP(I): 
TP(1) =4 
NEXT 1 
H = JK: 
IFR =0 THEN H =KJ 
GOSUB 2000: 
HTAB 3: 
VTAB 24: 
PRINT "REGISTRO N.";H; 
FOR 1 = 1 TO M3: 
TP(1) = HT(I): 
NEXT : 
IF R = 0 THEN TP(K4) = 4 
GOSUB 3000: 
TP(K4) = HT(K4) 
IF AO = 27 THEN 14270 
IF AO = 18 THEN RETURN 
DAS (KJ) = "x" 
FOR I = 1 TO M3: 
IF TP(1) = O THEN 14390 
DAS (KJ) = DAS(KJI) + BS(1) 
NEXT 1 
HTAB 2: 
VTAB 23: 
PRINT "PULSAR UNA TECLA 


GET AS 
NEXT JK: 
GOSUB 500: 
HTAB 8: 
VTAB 12: 
FRINT "OTRA VARIACION 7? (S/N)"; 
GET A$: 
IF A$ = "S" THEN 14000 
IF AS < > "N" THEN 14430 
GOSUB 5300: 
RETURN A 
REM -— BUSQUEDA BINARIA -— 
P1 = PQ: 
P2 = P9 
RI =0: 


14530 
14540 
143550 
14560 
14570 
14580 
14590 
14500 
14510 
14620 


14630 
14640 


14650 


14660 


14670 


14680 


14690 
14695 
14700 


165000 
16030 


16045 


16047 


16048 


16049 


16050 


16055 
14060 
16065 


15070 
16080 


165090 


15100 
16105 


16110 


RE VAL (DA$(0)): 

RAM INT (RF / 2) 

RE = IS(RM): 

RB$ = MID$ (DA$(RE),P1,P2) 
IF RA$ = RB$ THEN 14640 
IF RA$ > RB$ THEN 14£00 
RF = RM: 

RM = INT ((RF - RI) / 2) 
IF RM< 1 THEN RM = 1 

RAM = RM + RI: 

IF RM > = RF THEN TR = 0: 
RETURN 

GOTO 14530 

RI = RM: 

RM = INT ((RF - RI) / 2) 
IF RM < 1 THEN RM = 1 


A] 


RM = RM + RI: 
IF RM > RF THEN TR = 0: 
RETURN 

GOTO 14330 
sg ="- 1: 
RF = RM: 

RI = RM: 

MI = RM: 

MA = RM: 
FM=0 

RM = RM + SG: 
RE = IS(RM): 


RB$ = MID$ (DA$(RE),P1,P2) 
IF RA$ = RB$ THEN 14590 

IF FM = 1 THEN TR = 1: 
RETURN 

FM = 1: 

S6 = 1: 

RM = RF: 

GOTO 14650 

IF FM = 1 THEN MA = MA + 1: 
GOTO 14700 

MI = MI -1 

GOTO 14650 

REM===:-IMPRIME sr. 

IF W6 < > 2 THEN GOSUB 500: 


Mon oa 


HTAB 2: 
VTAB 10: 
PRINT "ANTES DE LA IMPRESION HAY 
QUE HACER "; CHR$ (10);" EL OR 


DENADO. VUELVO AL MENU"; BP$;: 
FOR 1 = 1 TO 2500: 
NEXT : 
RETURN 
GOSUB 500: 
GOSUB 600 
PRINT D$: 
PRINT DS; "PRH1": 
PRINT D$ 
PRINT — CHR$ (9) + "SON"; 
GOSUB 17000: 
CT=0 
FOR J = 1 TO M3: 
28(4) = 0: 
NEXT 
FOR I = 1 TO MR 
IF 1S(I) = O THEN 14200 
IF CT > 35 THEN CT = 0: 
PRINT— CHR$ (12): 
GOSUB 17000 
A$ = MID$ (DA$(IS(1)),2,200) 
Ci = 1: 
FOR J = 1 TO M3: 
IF TP(J) = O THEN 16100 
BS$(J) = MID$ (A$,C1,LC(J)) 


C1 = Ci + LOC) 
NEXT J 
IF Fl = 2 THEN PRINT "-=----- 





PRINT "REGISTRO N."¿1S(1): 
PRINT "== p 


165120 
15130 


16140 
16150 
16140 
16165 
16170 
16200 
16210 
16220 
16230 
16240 
16245 
16247 
16250 
16260 


15280 
16300 


16310 
16320 
1£330 


14340 
16350 


17000 
17010 


17020 


17030 


17040 


FOR J = 1 TO M3: 
IF NS(J)? = O THEN 14150 
IF FT(J) = 1 THEN 28(J) 
= 28(J) + VAL (B$(NS(J))) 


IF FI = 1 THEN A$ = AS 
+ BSINSIJ)) + "Y": 
GOTO 14150 
FRINT B$(NS(J)): 
CT =CT+1 
NEXT J 
IF FI = 1 THEN PRINT AS: 
CT=CT+1: 
GOTO 16170 
PRINT BUS; BUS: 
CT=CT+4 
NEXT 1 
REM: == TOTAL. == 
PRINT — TAB( 1);BU$;BU$: 
KK =0 
IF FI = 2 THEN 16300 
A= 1: 
FOR 1 = 1 TO M3: 
IF TP(I) = O THEN 16260 
A=A + LC(NS(I)) + 1: 
IF FT(1) = O THEN 16260 
AA =A- LEN ( STR$ (28(1))): 
IF AA < 1 THEN AA = 1 
IF AA - KK < O THEN KK = AA 
PRINT— TAB( AA - KK);28(1)5: 
KK = AA + LEN ( STR$ (28(1))) 
asta 
NEXT 1: 
PRINT 
GOTO 16350 
PRINT TAB( 10);"TOTALES": 
PRINT TAB( 10); "EXLAL A" 
FOR 1 = 1 TO M3: 
IF TP(1) = O THEN 16340 
IF FT(I) = O THEN FRINT : 
GOTO 16340 
PRINT  TAB( 11);28(1) 
NEXT 1 
PRINT  CHR$ (12): 
PRINT D$: 
PRINT DS; "PRO": 
PRINT D$: 
RETURN 
REM --- CABECERA --- 
PRINT BU$; BUS: 
PRINT 
FRINT— TAB( XP + 1);11$ 
PRINT— TAB( 1);BUS$;BU$ 
RETURN 





RELACION DE LAS PRINCIPALES VARIABLES - APPLE ll 


Definiciones 


LC(») 
ND(+) 
29] 
YC(+) 


meo] 


DS(+) 


BS 
TP(+) 
FOS(+) 
ai 


NSS(+) 
His 
DRS$ 
D1S 

A 


LA 
xP 


=longitud de los campos de intro- 
ducción 

= número de decimales en el campo 
de introducción 


= coordenadas en el vídeo del cam- 
po de introducción 


=coordenadas en el vídeo de la 
descripción 

= descripciones en la máscara ví- 
deo 


= matriz que contiene los tipos de 
campos de introducción 
= matriz de las fórmulas de cálculo 


=Utilizadas en las definiciones pará- 
metros de impresión 

=cabecera 

=unidad seleccionada 

=cadena de comunicación unidad 

= código de la tecla pulsada en defi- 
nición máscara 

= longitud registro 

= columna principio impresión 

= contiene la cabecera de la impre- 
sión 


= matriz de los buffers (1 por campo 
de introducción) 

= longitud de los campos de intro- 
ducción 

= número de decimales en el campo 
de introducción 


xo) ] 

Cl») 

xD(>) ] 
D(+) 


DS(+) 


NUC 


MA 
HT(+) ] 
HL(+) 
HN(+) 
1S(+) 


NS(+) ] 
FT(+) 
Z8(+) 
FS(+) 
DAS(+) 
Sol», ») 
KJ 


MX 
K4 


ER 
OPS(+) 
FZS(+) 


= coordenadas en el vídeo del cam- 
po de introducción 


=coordenadas en el vídeo de la 
descripción 

= descripciones en las máscaras ví- 
deo 

= blanck 

= punto decimal 

=carácter *-"; identifica los campos 
de introducción alfanuméricos 

=carácter “4”; identifica los cam- 
pos de introducción numéricos 

=número de campos de introduc- 
ción en la máscara vídeo activada 

= número máximo de registros 


= matriz auxiliar para máscara vídeo 
ordenado 

= indicadores de los registros des- 
pués del ordenado 


= parámetros de impresión 


=totales en fase de impresión 

= matriz de las fórmulas 

= matriz de los datos insertados 

= para el ordenado 

= Índice del bucle de introducción 
de datos 

= último registro introducido 

=número del campo clave para el 
ordenado 

= Índice de error 

= Operadores reconocidos 

= funciones reconocidas 





Base de Datos/Versión Philips VG 8010 
Definiciones 






40030 SCREENO: KEYOFF :KEY1,CHR$1(17) :KEY2, CHR$ (15) :k 
AR10000:; DEFINTA-Z 

40040 COLOR15,S 

40050 





ir 


Y3, CHR$ (1 






CAMPOS 





DIM_D$ (M3) ,TF 


40060 LO (M3) ND(M3), XD (M3), YD (M3), XC (M3), YC (M3) ,FOS (M3) ,FTS (M3), NS$ (M3) 
40070 Hi$="E.G.S. Editorial Forum, S.A." 

40200 REM === 

40210 REMMA IN 

40220 REM == 


40230 GOSUB46000: REM MENU 

40240 ONOPZGOSUB4 1000, 45000, 42500, 43000 

40230 GOTO40200 

41000 GOSUBA43500: CLS 

41010 X=1:Y= SUB 41150:G0SUB 41020:GOTO 41070 
41020 A$=CHR$ (1) +CHR$ (2457) : FORI=1T038:L$=L$+A$: NEXT 










41030 -L1$=CHR$ (1) +CHR$ (2HS8)+L$+CHR$ (1) +CHR$ (2459) :L2$=CHR$ (1) +CHR$ (2H5A) +L$+CHR$ (1) +CHR$ (2HSB) 


Leon 
41040 LOCATE1,0:FRINTH1$; 

41050 PRINTL1$;:FORI=1TO20:PRINT" |"+SPACE$(38)+" |"3:NEXT:PRINT L28; 

41060 RETURN 

BLOZO REM === 

41080 REM PRINCIPIO CREACION 

AL090 REM === 

41095 FOR I=1 TO M3:LC(1)=0:ND(1)=0: TP (1)=0: NEXT 

41100 GOSUB41310 

41110 A=ASC(1$):1F AX32 THEN 41180:REM comandi , 

41120 IFA>122THEN41100 

41130 PRINTIS: X=X+1: IFX>38THENX=38: GOSUBA1 1 50ELSEGOSUB41150 

41140 GOTO41100 

41150 REM 

41160 LOCATE3, 23:PRINT"Columna: "¿X;TAB(16) "Linea: ";Y-1;TAB(26)"F1 = AYUDA" 

41170 RETURN 

41180 REM -------- 

41190 REM COMANDOS 

41200 REM _-=====-== 

41210 IFA=28THENX=X+1: IFX>38THENX= 1:G0T041240 

41220 IFA=29THENX=X-1: IFX<1THENX=38: A=30: 607041230 

41230 IFA=30THENY=Y-1: IFY<2THENY=2 

41240 IFA=31THENY=Y+1: IFY>21THENY=21 

41250 IFA=13THENX=1:Y=Y+1: IFY>21THENY=21 

41260 IFA=135THENGOSUB41340 

41270 IFA=16THENGOSUB4 1400 

41280 IFA=20THENGOTD41460 

41290 IFA=17THENGOSUB44000 

41300 GOSUB41150:GOTO41100 

41310 REM -- acepta campo --- 

41320 I$=INKEYS: IFI$<>""THENLOCATEX, Y, 0: RETURN 

41330 T=T+1: IFT<40THEN41320 

41340 IFC=1THENC=0ELSEC=1 

41330 LOCATEX, Y, C:T=1:G0T041320 

41360 REM --- INSERCION --- 

41370 P1=0:P2=YX40+X+1:P3=(Y+1)140-2 

41380 FORI=P3TOP2STEP-1:LOCATE38-P1, Y: PRINTCHR$ (VPEEK(I-1))3:FP1=P1+1:NEXT:LOCATEX, Y 
41390 RETURN 

21400 REM ------- 

41410 REM BORRADO 

41420 REM —— 
41430 P1=0 
41440 FORI= 
41450 RETURN 

ATASO REN: === ===>= 
41470 REM LECTURA VIDEO 
41480 REM 
41490 LOCATED RINTSPACES(13);"E SP ER A R"¡SPACE$(10)5:PLAY"O7L32CDEF" 
41500 YY=1: 

41510 FORJI=2T021:J=JJ140: YY=YY+1 

41520 FO 17038 X+1 

41530 AS=CHR$ (VPEEK (K+J)) 









INT" "; 







140+X:P3=(Y+1)140-2 
2T0P3: LOCATEX+P1,Y: PRINTCHR$ (VFEEK (1+1))5:P1=P1+1:NEXT:PRINT" " 












41540 
41550 
41360 
41570 
41590 
41590 
41500 
41610 
41620 
41630 
41640 
41650 
41660 
41670 
41£80 
41590 
41700 
41710 
41720 
41730 
41740 
41750 
417560 
41770 
41780 
41790 
41800 
41810 
41820 
41830 
41840 
41850 
41850 
41870 
41880 
41890 
41900 
41910 
41920 
41930 


0 FORI=1T 


30 

















:LOCATE?7, 20: 


IFA$="2."THEN41660 

"ORA$="N"DRA$="C"THEN41570 

"THEN41770ELSE41730 

PC=PC+1: IFFC>MITHEN4 1810 

IFA$="X"THENTP (PC) =3ELSEIFAS="N"THENTP (PC) =1ELSETP (FC) =2 

LC(PC)=1 2 YC (PC) =YY 3 XC (FC) =K2 ND(PC)=0: bl6=0 

K=K+1: IFK=40THEN41770 

IFW6=1ANDA$="X"THEN41770 

IFCHR$ (VPEEK (J+K) ) =A$THENLC (PC) =LC (PC) +1: IFW6=1THENND (PC) =ND (PC) +1: G0TD41600ELSEGOTO41400 
V=VPEEK (J+K) : IFU=46ANDbI5=0THENLC (FC)=LC(PC)+1:MW6=1:60T041600 
IFV=320RV=220RV=270RV=2STHENK=K-1: 607041730 

IFV< >38THEN41770 

REM -— descripciones --- 

PD=PD+1: IFPD>M3THEN4 1810 

DS (PD) XD(PD)=K+1: YD(PD)=YY 

K=K+1: IFK=39THEN41770: REM ERRORE 

IFCHR$ (VPEEK (K+J))="2"THEN41730 

D$ (PD)=D$ (PD) +CHR$ (VPEEK (K+J) ) 

60T041690 

K,JJ 

ORI=1T0M3: AA=AA+LC (1) ¿NEXT 

IF AA>128 THEN T$="LONG. CAMPOS > 128":GOTO 41820 

GOTO 41850 

REM) === 

REM error 

REM ----- 

T 
T$="CAMPOS O DESCRIF. >"+STR$ (M3) 
LOCATE1,23:PRINT T ¿CORREGIR 
FOR I=1 TO 4000:NEXT:LOCATEO, 2 
=YY:GDSUB41150:G0T041070 


























:PLAY"D2CCC" 
RINTSPACES (39); 








IFTP(1)=3THEN41930 
LOCATEXC(1),YC(1) : PRINTSPACES (LC(1)) 
LOCATEXC(1),YC(1):PRINTSTRS (1); 
NEXTI 

LOCATEO, 23: PRINTSPACES (39) 





LOCATEO, 23: PRINTSPACES (39); : PLAY"OSL32CECB" 


O GOSUB41310: IFI$=CHR$ (29) THENX=X-1: IFX<OTHENX=0 


IFI$=CHR$ (28) THENX=X+1: IFX>3OTHENX=30 
IFI$=CHR$ (20) THENA2050 
IFASC(1$)<320RASC (14) >122THEM41990 
PRINTIS; : X=X+1: IFX>30THENX=30 


60T041990 
10939 


0$ (1) +CHR$ (VPEEK (H)) : NEXT 












NEXTI 


=1T01000: NEXT: WS=2: RETURN 






0 REM 


CLS:LOCATE 3,8:PRINT"Rebobinar la cinta DEFINICIONES":LOCATE9,11:PRINT"y apretar REC y PLA 
PRINT"Despues pulsar una tecla." 





OPEN"CAS: AZ "FORDUTPUTASH1 
As$="": FORI=1T06: PRINT41,A$: NEXT 
OPEN"CAS: DEFC"FOROUTPUTASt1 
FORI=1T0M3 

R$=SPACES (24) 

L=LEN (DS (1)) : IFL<1OTHENDS (1) =D$ (1) +SPACES (10-L)ELSEDS (1) =LEFTS (Dé (1), 10) 
XD$=STR$ (XD(1)) : IFLEN(XDS)=2THENXDS="0"+RIGHTS (XDS, 1) ELSEXDS=RIGHTS (XD$, 2) 








O MIDS$ (R$, 1,2)=XDS$ 


MIDS (R$, 3, 2)=RIGHTS (STR$(YD(1)),2) 


42650 MID$(R$,5,10)=D$(1) 
42660 MIDS(R$, 15, 2)=RIGHT$ (STR$(XC(1)),2) 
42670 MIDS$(R$, 17,2)=RIGHT$(STR$ (YC (1)),2) 
42680 MID$(R$, 19,2) =RIGHTS (STR$(LC(1)),2) 
42690 MID$(R$, 21,2) =RIGHTS$ (STR$(TP(1)),2 
42700 MIDS(R$,23,2)=RIGHTS (STR$(ND(I)),2) 
42710 PRINTH1,R$:NEXTI A 
42720 CLOSER 1 
42730 DPEN"CAS:FORC"FOROUTPUTAS*+1 
42740 FORI=1TOM3 
42750 IFI<1OTHENZ$="0"+RIGHTS(STR$(1?, 1)ELSEZ$=RIGHT$ (STR$(1),2) 
42760 L=LEN(FO$(1)): IFL<3OTHENFOS (1) =F0$ (1) +SPACES (30-L)ELSEFOS (1) =LEFT$ (FO$(1),30) 
42770 Ré=2$+FOS(D+"  " 
42780 PRINTH1,R$ 
42790 NEXTI: CLOSER 
42800 OPEN"CAS: PINC"FOROUTPUTAS$1 
42810 PRINTH1, 11$:CLOSEH1 
42820 OPEN"CAS:PDFC"FOROUTPUTAS4$1 
42830 FORI=1TO0M3:ST$=ST$+FT$(1)+NS$ (1) 
42840 NEXTI:PRINT41,ST$: CLOSER 
42850 RETURN 
43000 REM ——====e=mmmm 
43010 REM VUELVE AL MAIN 
43020 REN —__—_——__—__= 
43030 CLS:LOCATE4,10:PRINT"Rebobinar la cinta PROGRAMAS" 
43040 LOCATE23, 11:PRIN ma 
43050 LOCATE12,13:PRINT"y apretar PLAY." 
43060 LOCATE9, 20:PRINT"Despues pulsar una tecla" 
43070 IFINKEY$=""THEN43070 
43080 CLEAR200:CLS:LOCATE13, 11:PRINT"E SPERAR" 
43090 CLOAD"MAIN" 
43500 REM === 
43510 REM EXPLICACIONES 
ASIZO (REM. ===. 
3530 CLS:LOCATE1,0:PRINTH1$ 
3540 LOCATE 10, 2: PRINT" ——_—_—_—_—_—_—_—_—_—_—_—_—_——, 
433550 LOCATE 10,3:PRINT"] CREACION MASCARA |" 
43560 LOCATE 10,4: PRINT"_—_—_——— 
43370 LOCATE3,6:PRINT"ES ESENCIAL SABER QUE: " 
43580 LOCATEO,8:PRINT"1) Las descripciones deben estar com- prendidas entre 2 caracteres *t' 
:p.e. £NOMBRER. " 
43590 LOCATEO, 11:PRINT"2) Los caracteres ”X",'N",'C* en mayus- cula definen el tipo de campo: 
X=alfanumerico, N=numerico, C=calculo." 
43400 LOCATEO, 15:PRINT"3) El numero de caracteres ”X","N",*C* define la longitud del campo: 
p.e. XXXXX = campo alfanum. longitud 5." 
43610 LOCATEO, 19:PRINT"4) El punto entre los caracteres *N'o'”C" separa los decimales: p.e. CCC. 
Es campo de calcula longitud 5, de ellos 2 decimales." 
43520 LOCATE10,23:PRINT"X** PULSAR UNA TECLA **"; 
43630 IFINKEY$=""THENA3630 
43640 FORI=8T022:LOCATEO, I:PRINTSPACES (40); : NEXT 
43650 LOCATEO,8:PRINT"S) La longitud total de los campos, o sea la suma de todas las *X",las 
*"N* y de las *C”, deben ser 128 como maximo" 
43660 LOCATEO, 12:PRINT"6) La longitud de las descripciones no deben ser superior a 10" 
43570 LOCATEO, 1S:PRINT"7) En las formulas de calculo el numero del campo debe estar entre comi 
llas: p.e. 24(";CHR$(34)5"3"5CHR$(34); "+SOR("¡CHR$(34)5 "5"; CHR$(34)5""))+7.5"5 
43680 LOCATEO, 19:PRINT"8) Las funciones utilizables en los cal- culos son: ABS(n) 3 INT(M) ; 
COS(n);  SIN(n) ; SOR(n) ; TAN(n)." 
43690 : IFINKEY$=""THEN43590 
43700 RETURN 
44000 REM -—--- 
44010 REM AYUDA 
44020 REM ----- 
44030 PLAY"D7L32CDE" 
44040 LOCATEO, 23:PRINT" BARRA ESPACIADORA FARA CONTINUAR eS 
44050 GOSUBA44180 
44060 LOCATEO, 23:PRINT" F2: PARA LA INSERCION DE UN CARACTER "; 
44070 GOSUB44180 











44080 LOCATEO, 23:PRINT" F3: BORRA UN CARACTER ió 
44090 GOSUB44180 
44100 LOCATEO,23:PRINT" RETURN: VA AL PRINCIPIO E 
44110 GOSUB44180 
44120 LOCATEO, 23:PRINT" FS: CONTROLA, CONVALIDA Y GRABA se 


44130 GOSUB44180 

44140 LOCATEO, 23:PRINT" FLECHAS: MUEVEN EN LAS 4 DIRECC 
44150 GOSUB44180 

244160 LOCATEO, 23: PRINTSPACES (39) ; 

24170 RETURN 

44180 IFINKEY$<>" "THEN44180 

44190 RETURN 





IONES "; 


44500 
44510 
44520 


44530 


LOCATE9, 20:PRINT"Despues pulsar una tecla." 
44540 


45070 
45080 
45090 
45100 
45110 
45120 
45130 
45140 
45150 
45160 
45170 
45180 
45190 
45200 





REM 
REM lectura da 
RES eE 
CLS:LOCATE 3,8:PRINT"Rebobinar la cinta 











DEFINICIONES"*LOCATE11,11:PRINT"y apretar FLAY.": 








IFINKEYS=""THENA4540 
CLS:LOCATE 14,11:PRINT"E SP E RAR" 


) OPEN"CAS: DEFC"FORINPUTASH1 


FORI=1T0M3 
INFUTH1,RS 
XD(1)=VAL (MIDS (RS, 1, 2)) 
YD(1)=VAL (MIDS (RS, 3, 2)) 
DS (1)=MIDS(R$,S, 10) 
XC(1)=VAL (MIDS (R$, 15,2)) 
YC (1) =VAL (MIDS (R$, 17,2) 
LC(1)=VAL (MIDS (R$,19,2)) 
TP (1)=VAL (MIDS (R$, 21,2)) 
ND (1)=VAL (MIDS (R$,23,2)) 
NEXTI: CLOSEW1 

OPEN"CAS: FORC"FORINPUTASH1 
FORI=1T0M3 

INPUTH1,RS 

FOS (1)=MIDS(R$,3, 30) 
NEXTI: CLOSEMI 


REM DEFINICIONES IMPRESION 

REN: ————_——— en rs 

IFWS=OTHENWS=2: GOSUB44500 
CLS:LOCATEO,O:PRINTH1$:LOCATE1,6:FPRINT"INTRODUCIR LA CABECERA (max.80 car.)" 
LOCATE1,8: INPUTI$: A=LEN(1$) : IFA>BOTHENASO3O 

IFA=80THENXP=0: GOTO45090 

LOCATE1,13:PRINT"INTRODUCIR LA COLUMNA DE PRINCIPIO IMPRESION" 
LOCATE10,15:PRINT"( min O ; max";80-Az")" 

LOCATE10, 18: INFUTXP: IFXP<OORXP >80-ATHEN45030 
IFXP<1OTHENAS="0"+RIGHTS (STR$(XP), 1) ELSEA$=RIGHTS (STRS(XP), 2) 
11$=A$+1$+SPACES (80-LEN(1$)) 

REM o 

REM SELECCION TIPO IMPRESION 

REN: —————————= == 

CLS:LOCATEO, 0:PRINTH1$:LOCATES,8:PRINT"ELEGIR EL TIPO IMPRESION: " 
LOCATE11,12:PRINT"1) horizontal" 

LOCATE11,14:PRINT"2) vertical" 

A$=INKEY$: IFA$<>"1"ANDA$<>"2"THEN45170 

ST$="0"+A$ 

CLS:LOCATEO, 0: PRINTH1$ 

LOCATE2,S:PRINT"EN LA PROXIMA MASCARA DEBERAN "¿CHR$(31)7" SELECCIONARSE LOS CAMPO 





S A IMPRIMIR" 


45210 
DEBE 
45220 


de los 


45230 
45240 
45250 
45260 
45270 
45280 
45290 
45300 
45310 
45320 
45330 
45340 
45350 
45360 
45370 
45380 
45390 
45400 
45410 
45420 
45430 
45440 
45450 
45460 
45470 
45480 
45490 


LOCATE2, 9:PRINT"INSERTAR LA LETRA *T" SI EL CAMPO";CHR$(31);" (numerica o de calculo) 

SER";CHR$(31);" TOTALIZADO. " 

LOCATEO, 17:PRINT"p.e.: 2-T1-15-T6 =impresion de los campos 2,1,15,6,com totalizacion 
campos 1 y 6" 

LOCATE10,23:PRINT"PULSAR UNA TECLA "; 

IFINKEY$=""THEN43240 

CLS:G0SUB41020:FORI=1T0M3: IFLEFT$(D$(1),3)="  "THEN45270 

LOCATEXD(1),YD(1):PRINTDS (1) 

NEXT 

FORI=1TOM3: IFTP (1) =OTHENAS30O 

LOCATEXC (1), YC(1):PRINTSTRS (1) 

NEXT 

LOCATEO, 23:PRINT"INDICA CAMPOS A IMPRIMIR (p.e. 2-T3-1)" 

LOCATEO, 23: INFUTBS: LL=LEN(B$) 

A$="":C=0: FORI=1TOLL 

C$=MID$(B$, 1,1): 1FC$="-"THENGOSUB45370:GOTO45360 

AS=A$+C$ 

NEXTI: I=1-1 

REM 

C=C+1 

L=LEN(AS) : IFLEFTS (AS, 1)="T"THENFTS(C)="01":L=L-1:A$=MID$ (A$, 2, L)ELSEFT$(C)="00" 
=YAL (AS) : IFVU=OTHEN 45470: REM ERROR 

IF TP(V)=0 THEN 45470 

IF TP(V)=3 THEN FT$(C)="00" 

IF L>2 OR L<1 THEN 45470 

IF L=1 THEN NS$(C)="0"+A$ ELSE NS$(C)=A$ 





IF I=LL THEN 45540 
A$="": RETURN 
REM — error —- 


CLS:LOCATE14,11:PRINT"E R R O R":PLAY"O3L16CCCC" 
FOR 1=1 TO 1200:NEXT:FOR I=1 TO M3:FT$(1)="":NS$(1)="":NEXT 


43500 
43510 
45520 
43330 
43540 
435590 
43560 
43570 
43580 
45590 
45600 
43610 
45620 
45630 
45640 
46000 
46010 
46020 
45030 
46040 
46050 
46060 
46070 
46080 
46090 
46100 
46110 
NEXT: 
46120 
46130 
46140 


10 
20 
30 
32 
35 
0 

37 
40 


CLS:LOCATE10, 10:PRINT"1) CONTINUO" 
LOCATE10,12:PRINT"2) VUELVO AL MENU" 
LOCATE13,17:PRINT"CUAL ?" 

A$=INKEYS: IFA$<>"1"ANDA$<>"2"THEN4S530 
IFA$="2"THENRETURN 

GOTO 45250 

FOR I=C+1 TO M3 sz 
FT$(1)="00":NS$(1)="00":NEXT 

REM --- control longitud --- 

IFST$="02"THEN45640 
B=1:FORI=1T0M3: A=VAL (NS$ (1) ) : IFA=0THEN45620 
B=B+LC(A)+1 

NEXTI 

IF B>80 THEN 45470 

RETURN 

REN. === 

REM MENU 

REN 

CLS:LOCATEO,O:PRINT His 

LOCATE11,5:PRINT"MENU DEFINICIONES" 
LOCATE11,6:PRINT" : 

LOCATES, 11:FPRINT"1) creacion mascara" 

LOCATES, 13:PRINT"2) definicion formatos impresion" 
LOCATES, 15:PRINT"3) grabacion ficheros definiciones" 
LOCATES, 17:PRINT"4) retorno al menu principal" 
LOCATE16,21:PRINT"CUAL ?" . 
A$=INKEY$: IF A$<>"1" AND A$<>"2" AND A$<>"3" AND A$<>"4" THEN LOCATE23,21,1:FOR I=1 TO 300 
LOCATE23,21,0:FOR I=1 TO 300:NEXT:GOTO 46110 
PRINT A$:FOR I=1 TO 1000:NEXT 

OP Z=VAL (A$) 

RETURN 








CLS: CLEAR 8700: DEFINTA-Y 
KEY OFF¿KEY 1,CHR$(15):KEY 2,CHR$(14):KEY 3,CHR$(17):KEY 4,CHR$(19):KEY S.CHR$(20) : WIDTH 4 


M3=20:MR=120 
DIM TF (15), TF (M3) ,LC (M3) ,ND (M3) ,CX (M3) ¿CY (M3), DX (M3) , DY (M3) ,HTF (M3) , HLN (M3) ¿ HND(M3), IS (MR) 


¿NS (M3) ,FT(M3),28 (M3) 










50 DIM B$ (M3) ,D$ (M3) ,F$ (M3) ,DA$ (MR) 

70 Al=1:A2=31:BP$="V1008L320DE":NS$="4":AS$="-":PD$=", ":BL$=" " 
75 ES=CHR$ (1) +CHR$ (87) 

77 0$="":FOR I=1 TO 38:0$=0%+F$: NEXT 1 

100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$ (32) 

110  HE$="CTRL Y (AYUDA) " 

1135 Hi$="E,G.S. Ediciones Forum, S.A." 

120 REM CARGA VOCES 

130  RESTORE 

140 READ PROG$ 

150 READ YN 

160 FOR I=1 TO VN:READ VO$(1):NEXT 

170  MA=4M+1 

180 — VO$(MA)="Fin de tarea" 

190 FOR I=1 TO 15 

200 READ TF(I) 

210 NEXT 1 

212 — FORI=1T0S:READOP$ (1) :NEXT 

215  FORI=1T06:READFZ$(1):NEXT 

E 

220 REMMAIN 

DRA 

230 GOSUB 1300:REM MENU 

233  CLS:COLOR1S,4 

240 IF OFZ=0 THEN FOR I=1 TO 1000: NEXT:CLS:COLOR 15,4 :END 
250 ON OPZ GOSUB12000,4500,5500, 14000, 12000, 16000 

290 GOTO 230 

600 REM —- ESPERAR --— 

$10 12:GOSUB11000:FRINT"E S F E R A R":RETURN 

700 a 

703 REM POSICIONA CINTA 

FOR REN eta 

710  CLS:FLAYBP$:T1$="Rebobinar la cinta "+N$:X1=(40-LEN(T1$))/2:12$="y apretar "+T$+".":X2=(40 
LEN (T2$))/2 

720 X=X1:Y=9:G0S5UB11000:FRINTT1$ 

730 X=X 3: 60SUB11000:PRINTT2$: X=9: Y=20:G0SUB11000:PRINT"y despues pulsar una tecla." 


750 IF INKEYS =""THEN 750 

760 RETURN 

1300 REM 

1310 REM MENU PRINCIPAL 

1320 REM ——————-—— 

1322 CLS:COLOR1S,S 

1335 X=1:Y=0:GOSUB 11000:PRINT H1$ 

1340  L=LEN(PROG$) :LL=(40-L)/2 

1345 X=LL:Y=3:605UB11000: PRINTPROG$; 

1347 — X=LL-1:Y=4:GOSUB11000:FORI=1TOL+2:PRINTCHR$ (LHF9) 3 : NEXT 
1350  FORI=1TOUN+1:X=4:A=1: IFI=/N+1THENA=0 

1350 Y=S+I42:GOSUB11000:PRINT". "¿STR$(A)3" / "¿VOS(I)3:NEXT 
1370 LOCATE2S,23:PRINT"CUAL ?.  /"; 

1380  I$=INKEYS: IFI$=""THENLOCATE33, 23, 1:FORI=1T0500:NEXT:FLAY"V4D6L464C":LOCATE3S, 23, 1:FORI=1T05 
D0:NEXT:PLAY"E":GOTO1380 

1390  DPZ=VAL (1$) : IFOPZ<=YNANDOPZ>00RI$="0"THEN1400ELSE1380 
1400  LOCATE33,23,0:PRINTOPZ; : PLAYBP$ 

1410 FORI=1TO1000:NEXT: RETURN 

2000. REM 

2010 REM PRESENTA MASCARA 

2020 “RENA => 

2030 M3: CLS: COLOR1S, 4 

2130 L=LEN(VOS (0PZ)) 

2140 FM=2:FM$=SPACES (FM) 

2150 X=1:Y=0:G0SUB11000:PRINTH1$; 

2160 X=0: Y=1:60SUB11000: PRINTCHR$ (1) ;CHR$ (8H58) ; +0$+CHR$ (1) ;CHR$ (2H59) ; 
2170 FORY=2T021:G0SUB11000:PRINT" |"+SPACES (38) +" l"¿NEXTY 
2180 X=0:Y=22: GOSUB1 1000: PRINTCHRS (1) ;CHR$ (LHSA) +0$+CHR$ (1) ¿CHAS (LHSB) z 
2219 Y=23:X=25:GOSUB 11000 

2220 PRINT HES; 

2240 FOR J=1 TO NUC 

2242 IFD$(J)=SPACES (10) THEN2272 

2270 X=DX(J):Y=DY(J):GOSUB 11000:PRINT D$(J) 

2272 NEXTJ 

2273 FOR J=1 TO NUC :As="" 

2274 1FTP(J)=0THEN2420 

2275 IFTP(J)<>5 AND TP(J)<> 4 THEN2290 

2280 X=CX(J): Y=CY(J) :GOSUB11000 

2285 PRINTBS (J) : 60702420 

2290 Ni=LC(J):N2=ND(J): 1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 
2300 C$=AS$ 

2310 AS=STRING$ (N1-N2-1,C$) 

2320 IF N2=0 THEN A$= A$+C$:GOTO 2350 

2330 A$=A$+PD$ 

2340 FOR I=1 TO N2:A$=A$+CS:NEXT 1 

2350 X=CX(J):Y=CY(J):GOSUB 11000 

2360 PRINT A$ 

2390 B$(J)= SPACES (Ni-N2-1) 

2410 BS$(J)= BS(J)+RIGHTS (A$,N2+1) 

2420 NEXT y 

2430 RETURN 

3000 REM === 

3010 REM DATA ENTRY 

3020 REM -———-—--- 

3030 J=1:NUC=9M3 

3040 NC=J: X=CX (NC) : Y=CY (NC) 

3050 CC=1 

3060 GOSUB 3240 

3070 IF FS=0 THEN 3100 

3080 1F FS>4 THEN 3210 

3090 GOTO 3120 

3100 J=3+1:1F JóNUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 

3130 1F J>1 THEN J=J-1:G0TO 3040 

3140 PLAY BP$ :FS=0:J=NUC:GOTO 3040 

3150 1F J< NUC THEN J=J+1:G0TO 3040 

3160 PLAY EP$:FS=0:GOTO 3030 

3170 1F CEXLC(J) THEN S=1:C0=CC+1:X=X+1:G0SUB 11000:GOTO 3060 
3180 PLAY BF$:FS=0:GOTO 3100 

3190 IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G0SUB 11000:GOTO 3060 
3200 PLAY BP$:FS=0:GOTO 3040 

3210 IF FS>8 THEN FS=0:GOTO 3040 

3220 IF FS=8 THEN FS=0:GOTO 3100 

3230 RETURN 

3240 REM ————— 

3250 REM LECTURA DE UN CAMPO 

3240 REM —_————————— 

3270 FS=0 





3273 
3280 
3290 
3300 
3310 
3320 


IF TPINC)=0 THEN RETURN 

IF TP(NC)=4 THEN RETURN 

IF TF(NC)=2 THEN GOSUB8500: RETURN 

IF MID$(B$(NC),CC,1)=PD$ THEN X=X+S: CC=CC+S 
GOSUB 11000 


0TO3320 


3330 


CA=ASC(A$): IF CA > A2 THEN 3380 

FOR I=1 TO 15 

IF TF(1)= CA THEN FS = I: GOSUB 3630: RETURN 
NEXT I 

GOTO 3320 

IF TP(NC)<>1 THEN 3440 

IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
PLAY BP$:GOTO 3320 

IF CA <> 46 THEN 3440 

GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3320 

IF CC=LC(NC) THEN RETURN 

CC=CC+1:X=X+1:GOTO 3300 
e 


REM TRANSFERENCIA AL BUFFER 





IF CC=1 THEN SN$= " 
SN$=LEFTS (E$ (NC) ,CC-1) 

IF CC=LC(NC) THEN DS$= "":GOTO 3590 
I=LC (NC)=CC: DS$=RIGHTS (B$(NC),N) 

BS (NC) =SN$+A$+DS$ 

PRINT As: RETURN 

REM --—---— 

REM COMANDOS 

REM —————-— 

IF FS>4 THEN 3690 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 

IF FS=8 THEN GOSUB 4080: RETURN 

IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740, 3910 

RETURN 

REM === 

REM INSERCION 

REM 

IF CO=LC(NC) THEN PLAY BP$:RETURN 
IF CC=1 THEN SN$= "":GOTO 3800 
SN$=LEFTS (BS (NC), CC-1) 

NsLC (NC)-CC+1:DSS=RIGHTS (BS (NC) ,N) 
IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 

C$=BL$ 

A$=SN$ +C$+DS$ 

B$ (NC)=LEFTS (A$,LC(NC)) 

XX=X13 YY=Y 

X=CX (NC) : Y=CY (NC) : GOSUB 11000 

X=XX: Y=YY 

PRINT B$(NC):S=-1 

IF RIGHTS (B$(NC),1)= PD$ THEN 3780 

RETURN 

REM === 

REM BORRADO 

REM 

IF TP(NC)<>1 THEN 3940 

IF MIDS (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 

IF CC<1 THEN PRINT BP$: RETURN 

IF CO=LC(NC) THEN DS$= "": GOTO 4000 

N=LC(NC) -CC:DS$ =RIGHTS (B$(NC),N) 

IF CC=1 THEN SN$= "": GOTO 4010 

SNS=LEFTS — (BS$(NC),CC-1) 

IF TP(NC) = 1 OR TP(NC)=2 THEN C$=NS$:GOTO 4030 

C$=AS$ 

BS (NC)= SN$ +DS$ +C$ 

XX=X: YY=Y 

X=CX (NC) : Y=C Y (NC): GOSUB 11000 

X=XX1 V=YY 

PRINT BS (NC); :S=1: RETURN 

REM 


TO 3570 


O REM ALINEADOS 


REM 





O IF LC(NC) =1 THEN RETURN 


Ni=LC (NC) -CC+1 


A$=INKEYS$: IFA$=","OR Aé= "" THEN PRINT"B";:GOSUB11000:PRINTMIDS (B$ (NC) ,CC, 1) 3 :GOSUB11000:G 


41590 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 


4F CL=1 (HEN SSUNL? = —— 2 DUIO FSLJIU 
B$(NC)= LEFT$ (B$(NC),CC-1) 

IF TP(NC) =1 OR TF(NC)=2 THEN 4200 
FOR I=1 TO Ni 

B$ (NC)=B$ (NC)+BL$ 

NEXT 1 

GOTO 4240 

FORI=1 TO Ni 

B$ (NC)=BL$ +B$(NC) 

NEXT 1 

IF RIGHTS (B$(NC),1) =PD$ THEN B$(NC)= BL$ +LEFTS (B$(NC),LC(NC)-1) 
X=CX (NC) 2 Y=CY (NC) 

GOSUB 11000 

PRINT BS$(NC) : RETURN 


REM CTRL PUNTO 

RA. 

SsWP = 0 

IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 
FOR I=1 TO LC(NC) 






4330 IF MIDS(BS(NC),1,1)= PD$ THEN 1 = LC(NC): SWP=1: RETURN 
4340 NEXT l: RETURN 

4500 REN 

4510 REM INTRODUCCION DATOS 

4520 REM 

4530 GOSUB7O00 

4550 CLS: =13:60SUB11000:PRINT"1) EL FICHERO EXISTE": Y=15:GOSUB11000:PRINT"2) EL FICHERO DER 
E CREARSE 0: Y=18:G0SUB11000:PRINT"Cual ? _" 

4260 AS=INKEYS: IFAS<>"1"ANDAS<>"2"THENASGO 


570 
4580 
4500 
4650 
4635 
4660 
4570 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
5000 
5010 
5020 
5030 
5035 
5037 
5038 
5040 
5042 
5045 
5050 
5060 
5065 
5070 
5090 
0 
5200 
5210 
5220 
3225 
5230 
5235 
5237 
5238 
5240 
3245 
5250 
5260 
5270 
5290 
5 
5500 


X=X+7: GOSUB1 1000: PRINTAS: FORI=1T0400: NEXT 
IFAS="1"THENGOSUBS200ELSEMX=0: GOTO4£50 

MX=VAL (DAS (0) ) 

REM - PRINCIPIO BUCLE INTRODUCCION 

ON ERRORGOTO3O000 

FORKJ=MX+1TOMR+ H=KJ 

GOSUB2000: X=2: Y=23: GOSUB11000: PRINT"REGISTRO n. ";H; : GOSUB3000 
IFFS=6THEN4570ELSEIFFS=7THENRETURN 

DAS (KJ)="*" 

FORI=1T0M3: IFTP(1)=0THEN4720 

DAS (KJ)=DAS$ (KJ)+B$ (1) 

NEXTI 

DA$ (0) =STR$(KJ) 

CLS:X=6: Y=11:G0SUB11000:FRINT"OTRA INTRODUCCION ? (S o N) 
A$=INKEY$: IFA$="N"DRA$="n"THENA780 

IFA$<>"s"ANDAS$< >"S"THENA750 

NEXTKJ:KJ=KJ-1 

GOSUBSOOO: RETURN 

== AS 

REM GRABACION DATOS 

REM 
N$="DATOS "REC y PLAY": GOSUB700 

CLS: X=1:Y=9: GOSUB11000: INPUT"NOMBRE DEL FICHERO (max.ó car.)"¿NF$ 

GOSUB 600 

ON ERROR GOTO 5090 

OPEN"CAS:AZ"FOR OUTPUT ASi1 

A$="":FORI=1T05:PRINTH1,A$: NEXT: CLOSE41: REM espacio cinta 

OFPEN"CAS: "+NF$ FOR OUTPUT AStt1 

FORI=OTOVAL (DA$ (0)) 

PRINTH1,DA$ (1) :NEXTI: CLOSER 1 

IFO$=""THENRETURN 

ONERRORGOTOO: Q6=2: RETURN 

CLS: X=9: Y=11:GOSUB11000:PRINT"Nombre fichero no valido": PLAYBF$: FORI=1T01300: NEXT: RESUMESO3 

















REN 

REM LECTURA DATOS 

REN: === 

IFO6< >2THENQ6=2ELSERETURN 

N$="DATOS": T$="PLAY" : GOSUB700 

CLS: X=1: Y=9: GOSUB11000: INPUT"NOMBRE DEL FICHERO (max.ó6 car.)"3NF$ 
GOSUB £00 

ON ERROR GOTO 5290 

OFPEN"CAS: "+NF$ FOR INPUT ASA 

INPUTH1,DA$(0) 

FORI=1TOVAL (DA$ (0)) 

INPUT+1,DA$(1) 

NEXTI : CLOSE+H1 : ONERRORGOTOO: RETURN 

CLS:X=7: Y=11:G0SUB11000:PRINT"Nombre fichero na valido" :PLAYBP$: FORI=1T01000: NEXT: RESUMES23 


REM -———— 


5510 REM ORDENADO 

3S2O. REN: ===> 

5540 GOSUB7000: GOSUBS200 

5550 FORI=1T0M3 

5560 HTP(1)=TP (1): HLC(I)=LC (1): HND(1)=ND(1) 
3570 IFTP(1)<>OTHENTP (1)=3:LC(1)=1:ND(1)=0 
3580 NEXTI 5 


3590 GOSUB2000: X=1;Y=23: GOSUB11000:PRINT"”** EN EL CAMPO CLAVE DEL ORDENADO ";:PLAYBP$+BP$:FK=2: 


GOSUB3000: FK=0 
5600 IFFS=6THENSS90 
5605 FORI=1T0M3: TP (1)=HTP (1) :ND(1)=HND(1):LC(I)=HLC (1) :NEXTI 
5608 IFFS=7THENRETURN 
5610 FORI=1 TO M3: IFB$(1)="k"THENK4=1:GOTOS630 
3620 NEXTI:CLS:X=2:Y=10:G0SUB11000:PRINT"EL CAMPO CLAVE NO SE HA INDICADO" 
5625 X=12:Y=13:G0SUB11000:PRINT"VUELVO AL MENU, ":PLAYBP$: FORI=1T02500: NEXT: RETURN 
3630 IFK4=1THENP1=2: P2=LC (1) :GOTOS670 
5640 P1=1:P2=0:FORI=1T0K4-1 
5650 Pi=P1+LC(1):NEXTI 
5660 Pi=P1+1:P2=LC(K4) 
5670 GOSUBS600: GOSUBS4000: bl6=2: P8=P1:P9=P2 
5680 CLS:X=10: Y=11:GOSUB11000:FPRINT"ORDENADO EFECTUADO":PLAYBP$: FORI=1T02500: NEXT 
5690 RETURN 
6000 REM ---- 
6002 REM SORT 
6005 REM ---- 
$010 N=VAL (DA$ (0) ) 
6020 FORI=1TON: IS(1)=I:¿NEXTI 
6040 Ii=1:J1=N 
6050 I=11:J=J1:S=-1 
6060 GOSUBA220 
6065 IFTP(K4)<3THENIFVAL (A1$) <=VAL (B1$) THENG6100ELSE£4080 
6070 IFA1$¿=B1$THENS100 
6080 V=IS(1):I5(1)=IS(J) 
6090 15(J)=V:5=SGN (-S) 
6100 IFS=1THENI=I+1:G0T04120 
$110 J=J-1 
6120 IFI<ITHENGO60 
6130 IFI+1>J1THEN6150 
6140 P=P+1 
6150 S9(P,1)=14+1:59(F,2)=J1 
6160 Ji=I-1 
6170 IFI1<J1THENG60SO 
6180 IFP=0THEN6210 
6190 11=S9(P,1):J1=S9(F,2):P=P-1 
6200 GOTO6050 
6210 RETURN:REM --- FIN ORDENADO --- 
6220 A1$=MID$(DA$(1S(1)),P1,FP2) 
230 B1$=MIDS$(DA$(1S(J)),P1,P2) 
6240 RETURN 
TODO REM no 
7010 REM LECTURA DATOS MASCARA 
TORO REM 
7023 IFO8=2THENRETURNELSEDS=2 
7030 N$="DEFINICIONES":T$="FLAY": GOSUB700: GOSUB£00 
7040 OPEN"CAS: DEFC"FORINPUTASH1 
7050 FORI=1T0M3 
7060 INPUTH1, AS 
7070 DX(I)=VAL (LEFT$(A$,2)):DY(1)=VAL (MID$(4$,3,2)):D$(1)=MID$(A$,5,10) 
7080 CX(1I)=VAL (MID$(A$,15,2)):CY(1)=VAL (MID$(A$,17,2)) 
7090 LC(1)=VAL (MID$ (A$,19,2)): TP (1) =VAL (MIDS (A$, 21,2)? :ND(1)=VAL (MID$(A$,23,2)) 
7100 NEXTI:CLOSER1 
7110 OFEN"CAS: FORC"FORINPUTAS*1 
7120 FORI=1T0M3 
7130 INPUTR1,A$ 
7140 F$(I)=MID$(4$,3,30) 
7150 NEXTI:CLOSER1 
7160 OPEN"CAS: PINC"FORINPUTAS$H1 
7170 INPUTH1,A$: CLOSER1 
7180 XP=VAL (LEFT$(A4$,2)): 11$=MID$(A$,3,80) 
7190 OPEN"CAS: PDFC"FORINPUTAS$1 
7200 INPUTR1,A$: CLOSER 1 
7210 FI=VAL (LEFT$(4$,2)) 
7220 C1=3:FORI=1T0M3 
7230 FT(1)=VAL (MID$(A$,C01,2)) :NS(1)=VAL (MIDS (A$,C1+2,2)):C1=C1+4 
7240 NEXT: A$="" 
7243 L=LEN(I1$): IFL=OTHEN7270 
72530 FORI=LEN(11$) TO1STEF-1 
7235 IFMID$(11$,1,1)<>" "THEN7265 
7260 L=L-1:NEXTI 





7263 
7270 
8500 
gs501 
8502 
8520 
8530 
8540 
8550 
8560 
8370 
8580 
8590 
8600 
8610 
8620 
8625 
8630 
8640 
8£50 
84657 
8660 
8665 
8670 
TURN 
8680 
8700 
9000 
9010 
9020 
9030 


9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 


(21): 


9140 
9150 


9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 


II$=LEFTS (118,1) 
RETURN 


A$=F$ (NC) 

L=LEN(A$) : FORI=1TOL 

IFMIDS (A$, 1, 1) =CHR$ (34) THENS5S0 

NEXT1:GOTO8620 

A1$=MIDS(A$, 1+1,1): IFMIDS(A$, 1+2, 1) <>CHR$(34) THENA1$=A1$+MID$ (A$, 142,1) :P=4ELSEP=3 
A=VAL (A1$) :L1=LEN(B$ (A)):P1=1: FORJJ=1TOL1 

IFMIDS(B$(4),JJ,1)=" "TRENP1=P1+1 
NEXTJIJ:A2$=MID$(B$(A),F1,40) 2 IFVAL(A2$) =OTHENA2$="0" 

AS=LEFTS(A$, I-1)+A2$+MID$(A$, I+P,L) 

G0TO8530 

GOSUBIOOO 

TFER< >OTHENBS (NC) ="$"+SPACE$ (LC (NC)-1) : GOSUB4240: PLAY"D2L2AA": J=0: RETURN 

L=LEN (A) :PP=1 

FORK1=1TOL: IFMID$ (A$,K1,1)="."THENB£57 

NEXTK1:A1$=A$:A2$=". ":GOTOB660 

A1S=LEFTS (A$,K1-1) : IFND(NC)<>OTHENA2$=MIDS (A$,K1,ND(NC)+1) 

IFND(NC)=OTHEN A2$="":PP=0: GOTO8670 

IF (LEN(A2$)-1)<ND (NC) THENA2$=A2$+STRINGS$ (ND (NC)-LEN(A2$)+1,"0") 

N=LC (NC)—ND (NC)-PP: IFLEN(A1$) >NTHENBS (NC) ="$"+SPACE$ (LC (NC) -1) : GOSUB4240: PLAY "D3L2C":2 














B$ (NC)=A1$+A2$:L=LEN (B$ (NC) ) 

B$ (NC) =SPACE$ (LC (NC) -L)+B$ (NC) : GOSUB4240: RETURN 

REM ——---- 

REM CALCULO 

REM: === 

REM 

L2=LEN(A$):C$="":FORI=1TOL2:CH$=MID$(A$,1,1) 

IFCH$<>" "THENC$=C$+CH$ 

NEXTI:A$=C$:C$="" 

G0T09350 

*  ACAL 24 

ER=0:L=LEN(CAS$) : IFL<3THENRETURN : 
FORI=2TOL-1:CH$=MID$ (CA$, 1, 1): FORJJ=1T0S: IFOP$ (JJ) =CH$THEN9120 
NEXTJJ, 1: ER=1:RETURN 

CH$=MID$(CAS$, 1+1, 1): IFCH$="*"ORCH$="""ODRCH$="/"THENER=2: RETURN 
Z1=VAL (MIDS(CA$,1,1-1)):22=VAL (MIDS (CAS, 1+1,40)) : ONJJGOSUB9150, 9160, 9180, 9190, 9200: CA$=STR$ 
IFZ1>=0THENCA$="+"+MID$(CA$, 2,40) 

RETURN 

Z1=21772: RETURN 

1FZ2=0THENER=3: RETURN 

71=21/22: RETURN 

21=21422: RETURN 

Z1=Z1-22: RETURN 

71=21+22: RETURN 

REM --- FORM 2 --- 

ER=0 

FOROP=1T0S: LO=LEN (FO$) :KK=2+ IFLO=1THENKK=1 

PO=0:P1=0:P2=0: FORIO=KKTOLO-1:CH$=MID$(FOS, IO, 1) : CH=ASC(CH$) : IFCH$=0P$ (OP) ANDPO=OTHENPO=10: 


G0T09280 


9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9430 
9460 
9470 
9480 
9490 


D=0: 1F (CH=940RCH<48) ANDCH< >46THENO=1 

IFO=1ANDPO=0THENP1=10 
IFO=1ANDPO>0ANDIO-PO>1THENP2=10: 60TO9300 

NEXTIO: IFPO>OTHEN9300 

NEXTOP: RETURN 

IFP1=OTHENP1=1: 60709320 

CH$=MIDS (FOS,P1,1): IFCHS<>"+"ANDCHS<>"-"THENP1=P1+1 
P2=P2-1: IFP2<OTHENP2=LO 

CA$=MID$ (FOS,P1,P2-P1+1) : GOSUB9090: IFER< >OTHENRETURN 
GOSUB9640:FOS=MID$ (FOS, 1,F1-1)+CAS+MIDS (FO$,P2+1,40) :GOTO9220 
REM -— PAR 1 -— 

ER=0:LA=LEN(AS) : IFLA<3THEN94 10 
PI=0:PF=0:FORIA=1TOLA:CH$=MID$ (AS, 1A, 1): IFCHS=" ("THENPI=IA 
IFCH$=") "THEN94SO 

NEXTIA: IFPI>OTHENER=4: RETURN 

FO$=A$: GOSUB9210: A$=FOS 

IFVAL (A$) =OTHENAS="0" 

IFMIDS (A$,2,1)=". "THENAS=LEFTS (AS, 1)+"0"+MIDS (A$, 2,80) 
IFLEFTS (AS, 1)="+"THENAS=MIDS (A$, 2, 80) 

RETURN 

IFPI=OTHENER=4: RETURN ; 
PF=IA:FOS=MID$ (A$,PI+1,PF-PI-1):60SUB9210: IFER< >OTHENRETURN 
IFPI>3THENGOSUB9I520 

IFPI<=1THEN9500 

IFA<OANDMIDS (A$,PI-1,1)="-"THENPI=PI-1:FO$="+"+MID$(FOS, 2,80) 









9300 


IFER<>OTHENRETURN 


9510 A$=MID$(A$,1,PI-1)+FOS+MID$ (A$, FF+1,80) :GOTO9350 
A A 


9530 ER=0:CH$=MID$ (A$,PI-1,1): IFCHS<"A"DRCH$>"2"THENRETURN 


9540 FU$=MID$/A$,P1-3,3):FORI=1T06: IFFU$=FZ$ (1) THEN9S50 
9350 NEXTI:ER=S: RETURN 


9560 ZA=VAL (FDS) : ONIGOSUB9S70, 9580, 9590, 9500, 9610, 9630: FOS$=STR$ (24) : CAS=FO$: GOSUBI640: FOS=CAS$: IF 
ZA>=OTHENFOS=MID$ (FO$, 2, 40) :FI=F1-3: RETURNELSEFI=PI-3: RETURN 


9570 
9580 
9590 
9600 
2610 
9620 
9630 
9540 
94650 
9560 
9670 
9680 
2690 
9700 
9710 
9720 
29730 
9740 
9750 
9760 
9770 
9780 
9790 
9800 
9810 
9820 
2830 
9840 


ZA=ABS (74) : RETURN 
ZA=INT (ZA) : RETURN 

ZA=COS (ZA) : RETURN 

ZA=SINLZA) : RETURN 

IFZACOTHENER=6: RETURN 

ZA=SOR (ZA) : RETURN 

ZA=TAN (ZA) : RETURN 

REM -— ESP 1 -— 
Z0$=STRING$ (64, 0") :L=LEN (CAS) 
FORIC=1TOL: IFMID$ (CAS, IC, 1)="E"THEN9680 
NEXT: RETURN 

N$=MID$ (CAS, 2, 1C-2) :L=LEN(NS) 
FORI=1TOL: IFMIDS (NS, 1,1)=". "THENP=1:G0T09710 
NEXT: P=L 

E=VAL (MIDS (CAS, 1C+1,3)) 1 IFESOTHEN9790 
DD=L-F: IFDD=OTHEN9770 

N$=MIDS (NS, 1,P-1)+MIDS (NS, P+1,80) 
IFDD<=ETHEN9770 

N$=MIDS (NS, 1,P+E-1)+". "+MIDS (NS,P+E,80) 
DD=E 

N$=N$+MIDS (Z0S, 1,E-DD) 

G0TO9830 

IFP=LTHENP=F+2-L: GOTO9810 

N$=MIDS (NS, 1,P-1)+MIDS (N$,P+1,80):L=1 
N$=MID$ (208, 1,-E-L+1)+N$ 

N$=MIDS (NS, 1,P-1)+". "+MIDS(N$,P, 80) 
CAS=LEFTS (CAS, 1)+N$ 

RETURN 






10000 REM ----- 


10010 


REM DATOS 


10020 REM ----- 


10030 


DATA "BASE DE DATOS" 


10040 DATA 6 


10050 DATA "definicion mascara", "introduccion datos", "ordenado 


cion 

10070 
10080 
10090 
11000 
11010 
11020 
11030 
11040 
12000 
12010 
12020 
12030 
12040 
12070 
12080 
13000 
13010 
13020 
13030 
13050 
13093 
13060 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13222 


13224 


formatos impresion", "impresion" 

DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
DATA"A0, 000 

DATA"ABS", "INT", "COS", "SIN", "SOR", "TAN" 
REM cuina cis má pe” 

REM FPOSICIONA CURSOR 

REM e 

LOCATE X,Y 

RETURN 

REO 

REM DEFINICION MASCARA E IMPRESION 

REA 
COLOR15, 4 
N$="PROGRAMA": T$="FLAY ": GOSUB700: GOSUB£00: CLEAR200 
CLOAD"CREA" 

sToP 

REMSS===S 

REM AYUDA 

REM 

IFFK=2THENRETURN 

LOCATE 0,23 








PRINT "AYUDA (barra espaciadora para continuar)"; 
GOSUB 13600 
FPRINT "FLECHAS: mueven en las 4 direciones 28 
GOSUB 13400 


PRINT "RETURN: alinea y convalida introduccion "; 


GOSUB 13400 
PRINT "Fi: vuelve al menu principal bt: 
GOSUB 13600 
PRINT "F2: anula toda la introduccion E 
GOSUB 13600 
PRINT "F3: borra un caracter AS 
GOSUB 13400 
PRINT "F4: permite la insercion de espacios eS 
GOSUB 13400 
PRINT "FS: graba toda la introduccion “s 


GOSUB 13400 


busqueda con variacion", "defini 


13230 
13235 
13300 
13600 
13605 
13510 
13420 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 


BUSCA EN CAMPO CLAVE) "sCHR$(31);" 


14080 
14090 
14100 
14110 
14120 

HAY 
14130 
14140 
14150 


14160 
14162 
14145 


PRINT " CTRL Y (AYUDA) "; 
LOCATE1,23:PRINT"REGISTRO n.";H; 


RETURN 
AS=INKEYS: IF A$= "" THEN 13600 
IF A$<> CHR$(32) THEN 13600 
LOCATE 0,23 

RETURN 


REM > 


REM BUSQUEDA CON VARTACION 

A 

CLS: COLOR15, 8: X=0: Y=0: 60SUB11000:PRINTH1$ 

X=9: Y=4: GOSUB11000:PRINTSTRING$ (LEN(VO$(4)),"-") 

Y=Y+1:GOSUB11000:PRINTVOS (4) 

Y=Y+1:GOSUB11000: PRINTSTRINGS (LEN(VOS$ (4)),*-") 

X=3: Y=12:G0SUB11000:PRINT"INTRODUCIR EL NUMERO DE REGISTRO";STRING$(2,31);" (0 = 
(1 = VUELVE AL MENU)" 

X=16:Y=20: GOSUB1 1000: INPUTAS: IFLEN(A$) >3THEN14030 

R=VAL (A$) : IFR>VAL (DAS (0) ) THEN14030 

IFR<OTHENRETURN 

IFR< >OTHENWIS=0 : MIS=R : MAS=R: GOTO14250 

IFWE6<>2THENCLS: X=2: Y=11:GOSUB11000:PRINT"PARA ESTE TIPO DE BUSQUEDA, ANTES"¿CHR$(31);" 

QUE HACER AL ORDENADO. ":FLAYBP$+BP$:FORI=1T01800: NEXT: G0TO14000 
X=0: FORY=10T021 : GOSUB1 1000: PRINTSPACES (40) ; : NEXT 
X=2;Y=11:GOSUB11000:PRINT"INTRODUCIR EL VALOR DEL CAMPO CLAVE" 
X=2: Y=15:G0SUB11000:PRINT"NOTA. El campo clave debe ser el mismo que el del ordenado. 
X=6: Y=19:G0SUB1 1000: PRINT: INFUTRAS 

IFLEN(RA$) >LC (K4) THEN14130 

CLS: X=8: Y=6:G0SUB11000:PRINT"ESPERAR, ESTOY BUSCANDO: ": X=(40-LEN(RAS) ) /2: Y=8: GOSUB11000: PR 


INTRAS 


14170 
14180 
14190 
14195 
14200 
14210 
00 

14220 
14230 
14240 
14250 
14260 
14265 
14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 
14400 
14410 
14420 
14430 
14440 
14450 
14450 
14500 
14510 
14515 
14520 
14530 
14540 
14550 
14540 
14570 


14580 
o 





IFTP (K4) =3THENRA$=RAS+SPACES (LC (K4)-LEN(RA$) ) :GOTO14190 

RA$=SPACES (LC (K4) -LEN(RAS) )+RAS$ 

G0SUB14500:REM RICERCA BIN. 

FORI=1T01500:NEXT 

X=1: Y=6: GOSUB11000: PRINTSPACES (38) : PLAYBP$ 

IFTR=OTHENX=9: Y=13: GOSUB11000:PRINT"N O HALLA D 0":PLAYEP$:FORI=1T02000:NEXT:GOTO140 


A=MAS-MIS+1;X=13: Y=13: GOSUB11000:PRINT"H AL L A D 0":X=12:Y=19:GOSUB11000 
IFA=1THEN PRINT"(un solo registro) "ELSE PRINT"(";A3" registros)" 

PLAYBP$: FORI=1T02500: NEXT 

REM --- PRESENTA REGISTRO —-- 

FOR JK=MIS TO MAS :KJ=IS(JK) 

TFR<>OTHENKI=JK 

AS=MIDS (DAS (KJ),2, LEN(DAS (KJ))-1) 

C1=1:FORI=1T0M3: IFTP (1) =0THEN14300 
B$(1)=MIDS(A$,C1,LC(1)):C1=C1+LC(1):HTP(I)=TF (1): TP(1)=4 

NEXTI 

IFR=OTHENH=KJELSEH=JK 

GOSUB2000: X=2: Y=23: GOSUB11000: PRINT"RECORD n.";H; 

FORI=1T0M3: TF (1)=HTP (1) : NEXT: IFR=OTHENTP (K4)=4 

GOSUB3000: TP (K4)=HTP (K4) 
IFFS=6THEN14270ELSE IFFS=7THENRETURN 
DAS KID) <=" 4" 
FORI=1T0M3: IFTF (1) =0THEN14390 

DA$ (KJ)=DA$ (KJ)+B$(1) 

NEXTI 

X=1:Y=23:G0SUB11000:PRINT" 
IFINKEY$=""THEN14410 
NEXTJK:CLS:X=7: Y=11:GOSUB11000:PRINT"OTRA VARIACION ? (S o N)" 
A$=INKEYS$: IF As ' OR A$="S" THEN 14000 


IFAS<>"N"ANDAS<>"n"THEN14430 








PULSAR UNA TECLA "+ PLAYBFS 

















REM BUSQUEDA BINARIA 
REM 


AL (DA$ (0) ) :¿ RM=INT(RE/2) 
S(RM) :RB$=MIDS (DAS (RE) ,P1,P2) 
IFRA$S=RB$THEN14440 
IFRA$S>RESTHEN14500 

RE=RM: RM=INT((RF-R1)/2 
IFRAM<1THENRAM=1 

RM=RM+RI : IFRM>=RFTHENTR=0: RETURN 


RE= 











O GOTO14530 


RI=RM:RM=INT ((RE-RI) /2) 
IFRM<1THENEM=1 
AM=RM+RI : IFRMORFTHENTR=0: RETURN 
GOTO14330 
SG=-1:2RF=RM: RI=RM: MIS=RM: MAS=RM: FMI=0 





14650 RM=RM+SG:RE=IS (RM) : RB$=MID$ (DAS (RE) ,F1,P2) 
14650 IFRA$=RB$THEN14690 

14670 IFFMI=1THENTR=1: RETURN 

14580 FMI=1:SG=1:RM=RF:GOTO14650 

14690 IFFMI=1THENMAS=MAS+1ELSEMIS=MIS-1 

14700 GOTO146£50 e 

LODO REM _ 2 


16010 REM IMPRESION E AS 
16020 REM ========-= Definiciones 


RELACION DE LAS PRINCIPALES VARIABLES - PHILIPS VG 8010 





16030 IFW6<% +27THENCLS: X=1 : Y=9:GOSUB11000:PRINT"ANTES DE LA IMPRESION HAY QUE HACER"; SS A D = descripciones = inci Lt 

EL ORDENADO. — VUELVO AL MENU": FLAYBF$+BP$:FORI=1T05000: NEXT: RETURN a =ti A DS(+) descripciones en la máscara ví 

14045 GOSUB400: GOSUB17000:CT=0 (+) =tipos de campos ] deo 

16050 FORJ=1T0M3:28(J)=0:NEXT LC(«) = longitud campo de introducción BL$ = blank 

16055 FORI=1TOMR ND(x) =número de decimales PD$ = punto decimal 

16060 IFIS(I)=OTHEN16200 E : Pp PE 

16065 IFCT>3STHENCT=0: LPRINTCHRS (12) : GOSUB17000 XD(x) ] = coordenadas en. el vídeo de las  AS$ = carácter *—"; identifica los campos 

ORT vo) Y" descripciones de inocucción afenuméricos 
080 Ci=1: = : =í ( $ upon; se 

16090 BS(J)=MIDS(AS,C1,LC(3)) :C1=CLHLC(D) XC(s) NS$ = carácter “4”, identifica los cam- 

12100 NEXTJ ; YC(+) = coordenadas de los campos pos de introducción numéricos 

16105 IFFI=2THENLPRINT"=—-—=--------":LPRINT"REGISTRO N. "5 1S(1) ¿LPRINT"=-=------" y NUC =númer ¡ l 

16110 A$="1":FORJ=1TOM3: IFNS (J) =OTHEN16150 : FOS(x) = matriz de las fórmulas de cálculo 2 E En campos de introduc 

16120 IFFT(J)=1THENZ8 (J)=28(J)+VAL (BS (NS (J3))) FTS(+) . . ción en la máscara vídeo activada 

16130 IF FI=1THENAS=AS+B$ (NS (J))+"!":GOTO1L4150 NSS(+) = parámetros de impresión MR =número máximo de registros 

16140 LPRINTBS (NS(J)):CT=CT+1 

16150 NEXTJ L15,H15| _ HT(+) y de ¿ 

16160 IF FI=1THENLPRINTAS:CT=CT+1:G0TO16170 , 3 L25 = Cabecera HL(«) = matriz auxiliar para máscara vídeo 

16165 LPRINTSTRING$ (80, "-"):CT=CT+4 : a 

1£170NEXTI ; A = código de la tecla pulsada e eS Som dea nal 

E SS 2 -—- xP = columna principio impresión (+) 5 ecards registros des- 

JS IORERRINTTA RO STRINOS 180, 1 115 =Cabecera de impresión 

16220 IFFI=2THEN16300 NS(« : ] 

16230 A=1:FORI=1T0M3: IFTP(1)=0THEN16260 == ) = parámetros de impresión 

16240 A=A+LCINS(1))+1: IFFT(1)=0THEN16260 Main (+) : ] 

16245 AA=A-1-LEN(STR$(Z8(1))): IFAACOTHENAA=0 Z8() = totales en fase de impresión 

dia Palin BS(+) = matriz de los buffers (1 por campo FS(x) = matriz de las fórmulas de cálculo 

16280 GOTOL6350 de introducción) DAS(+) = matriz de los registros 

16300 LPRINTTAB(8)"T O TALE S":LPRINTTAB(S) "daa" LC(«) = longitud del campo de introduc- S9(+, +) = índice para el ordenado 

16310 FORI=1T0M3: IFTP (1) =0THEN16340 ción dad ; ] 

16320 IFFT(1) =OTHENLPRINT: GOTO 16340 NOD a : KJ Índice de los bucles de introduc 

16330 LPRINTTAB(10)328(1) : (+) = número de decimales en el campo ción 

16340 NEXTI E : de introducción MX = último registro introducido 

eos A CX(») ] cooninadas lindaa = número del campo clave del orde- 

17010 LPRINTSTRING$ (80, "_"):LPRINT CY (+) po de introducción nado 

17030 LPRINTTAB(O)¿STRINOS (80, "1 DX(+) ERR — = indicador de error 

17040 RETURN A BEÁNE DY(s) ] =coordenadas en el vídeo de la OPS = Operadores reconocidos 


30000 CLS:REM --- error --- 


descripción (1/1, +) 


as OSO: E AS TF(x) = matriz numérica que contiene los FZ$ =funciones reconocidas (ABS,INT, 
30050 DAS (KJ)="":DAS(KI-1)="":DAS (KI-2)=""sKJ=KJ-3: DAS (0)=STR$ (KJ) :ERASEBS,D$, VOS: 0$="":REM CREA códigos ASCII COS,SIN,SQR,TAN) 


ESPACIO 

30060 X=4: Y=9:GOSUB11000:PRINT"EL ESPACIO EN MEMORIA ESTA AGOTADO";CHR$(31);" TENGO QUE BORRAR L 
OS 3 ULTIMOS REGISTROS" 

30070 X=1:Y=20:GOSUB11000:PRINT"PULSAR UNA TECLA PARA GRABAR EL FICHERO" 

30080 IF INKEY$=""THEN30080 

30090 GOSUBSO0O0: RUN 





Los gráficos de ordenador 


La representación gráfica seguramente es el medio 
más inmediato para la comprensión de un fenómeno. 
En los programas anteriores se ha mostrado cómo rea- 
lizar cálculos (Tablero electrónico) y archivar datos 
(Bases de datos): en la mayoría de los casos, estas 
actividades terminan con el análisis de los resultados, 
o sea con su interpretación. En los dos programas an- 
teriores, la manera en que se proporcionan los valores 
finales es la tabular, que es poco adecuada para mos- 
trar su proceso. Evidentemente, es mucho mejor la re- 
presentación gráfica, que permite una interpretación 
visual inmediata. 


Uso del programa 


Este tipo de aplicación (programas para la generación 
de los gráficos) es muy sencillo desde el punto de vis- 
ta del análisis, mientras que puede requerir notables 
esfuerzos de programación, en particular para las ver- 
siones en máquinas que no disponen de una buena 
gestión de la pantalla en modo gráfico. 

Para ello es necesario hacer algunas precisiones co- 
rrespondientes a las tres versiones previstas (MSX, 
Apple, C-64). La primera (MSX) ofrece un programa 
«ágil» y completo en cuanto dispone de instrucciones 
Basic para gráficos muy potentes, análogas a las pre- 
vistas en los ordenadores personales. 

La segunda versión (Apple) tiene buenas capacida- 
des gráficas, pero orientadas al «dibujo» más que a 
mostrar el proceso de un fenómeno, puesto que en él 
no es posible el uso mixto de la pantalla, o sea con 
gráficos y caracteres. El problema puede superarse 
utilizando, si bien en parte, la subrutina de presenta- 
ción de caracteres en modo gráfico, ya vista en otras 
aplicaciones. ] 

La última versión (C-64) es la más complicada, puesto 
que el Basic albergado en esta máquina está comple- 
tamente falto de instrucciones para los gráficos, lo cual 
obliga a escribir una subrutina incluso para la simple 
presentación de un segmento (que en las otras máqui- 
nas se obtiene con una sola instrucción). 

Por tanto, los diagramas que se representan a conti- 
nuación deben considerarse como una guía de princi- 
pio; el desarrollo real de los programas puede dedu- 
cirse en función de la versión, aunque sus potenciali- 
dades son comunes. 

Como se ha indicado, en este caso, el desarrollo de un 
análisis no presenta ninguna dificultad, puesto que el 
procedimiento no necesita ni pesadas introducciones 
de datos ni gestiones particulares de ficheros, redu- 
ciéndose a una simple lectura de valores y a su repre- 
sentación. 





Por este motivo, todos los «paquetes» para empleo 
generalizado en el ámbito profesional contienen fun- 
ciones para la representación gráfica de los datos. 
Este programa permite desarrollar gráficos o histogra- 
mas con datos contenidos en archivos, en discos o 
valores introducidos manualmente por el usuario y de 
manera que pueda ser utilizado también por separado 
por otros procedimientos. ' 

Su empleo principal es para la representación de los 
datos contenidos en los archivos creados con la Base 
de Datos. En consecuencia, este programa de gráfi- 
cos es su complemento indispensable. 


La finalidad del procedimiento es la representación 
gráfica de valores. El proceso necesario se reduce a la 
elección de los campos a presentar y a la reducción 
de sus valores según un factor de escala que depen- 
de del formato de la pantalla. El último parámetro, para 
la definición completa del proceso, es la definición de 
los datos de entrada. 

Resumiendo, las funciones a realizar son: 


m Adquisición de los valores a presentar como gráfico 
m Elección de los campos entre los admitidos y con- 
versión de los valores según un factor de escala 

m Presentación del gráfico 


En la página 2510 se han resumido, en forma de dia- 
grama, los tres puntos anteriores. 

Analizando las tres funciones es evidente que el pro- 
cedimiento debe implantarse de manera muy parame- 
trizada. Efectivamente, por lo menos hay que prever 
tres tipos de entradas: 


m de ficheros generados con la Base de Datos 
m de ficheros genéricos 
m de teclado 


y diferentes tipos de presentación. Los activos son: 


" Presentación X, Y (la forma normal utilizada para las 
funciones) 
" Histogramas 


Otras formas, que pueden ser útiles en situaciones 
particulares, se comentan en las implantaciones. 

La primera parametrización (formatos de los datos) 
puede obtenerse fácilmente y no necesita desarrollos 
particulares de programación ni presenta dificultades 
en su uso. 
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La segunda forma de presentación, además de reque- 
rir tantas subrutinas distintas como cuantas formas di- 
ferentes hay, puede generar errores de interpretación 
si no se utiliza correctamente. 

La hipótesis con la que se ha estructurado el procedi- 
miento prevé la carga de más campos y la elección de 
los que deben presentarse como gráficos. 

Esta implantación es consecuencia de la finalidad pri- 
maria del procedimiento, que es la presentación gráfi- 
ca de los valores contenidos en ficheros generados 
por la Base de Datos. En este tipo de ficheros, cada 
registro contiene más campos, representando cada 
uno una cierta magnitud, y puede ser útil disponer de 
un procedimiento que pueda mostrar los procesos de 
varias magnitudes sin necesitar, cada vez, una carga 
de datos. 

Por ejemplo, un fichero podría contener los movimien- 
tos de cantidades de dinero de entrada y de sali- 
da, por lo que en un registro (correspondiente, ponga- 
mos por caso, a un determinado mes) puede haber 
tanto el importe correspondiente a los cobros como al 
de los pagos. 

Con la estructura adoptada, los dos valores (para 
cada registro) se leen simultáneamente y también es- 
tán simultáneamente en la memoria. Por tanto, pueden 
representarse gráficamente bien en modo alterno (pri- 


Selección del periférico utilizado para la introducción de 
los datos. Activando la función 1, los valores se leerán 
en un fichero; con la 2, deberán introducirse por 
teclado. 


El usuario ha seleccionado la voz 1 (datos en el disco) y 
el sistema pide el nombre del fichero. 
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mero uno y después otro) bien en modo conjunto, ob- 
teniendo dos formas de gráfico que son muy útiles en 
los análisis. 

Esta técnica de análisis de los procesos no debe sub- 
valorarse, puesto que constituye un medio muy poten- 
te para interpretar algunos fenómenos. 

Supongamos que se observan dos magnitudes A y B 
que varían en el tiempo: el fenómeno puede represen- 
tarse con las expresiones A = f(t) y B = f(t), que tienen 
el significado: la magnitud A es una función del tiempo 
(t), así como la magnitud B. 

Para poner de manifiesto el proceso hay que construir 
dos gráficos en los que representar: en el primero los 
valores de A en función de los de ”t” y, en el segundo, 
los valores de B (siempre en función de ”t”). Estos dos 
gráficos presentan qué les sucede a las magnitudes A 
y B con el paso del tiempo ”t”, pero poco o nada sobre 
las eventuales relaciones entre A y B. Para analizar los 
dos fenómenos ajo este aspecto de interdependencia 
es más útil disponer de un gráfico que muestre 
el proceso de una magnitud en función de la otra, es 
decir, que muestre la relación A = f(B). Observando 
este gráfico puede detectarse la presencia o no de un 
vínculo entre A y B, o sea de una dependencia entre 
las dos magnitudes o, expresado en otros términos, de 
una «correlación». 


EA ESA TD EE 


EAS E 


datos estan en el disco 


EI A II AA 


AAA 





La opción 1 (datos del disco) también requiere precisar 
el formato de registro. En el caso de que los datos se 
introduzcan con la Base de Datos, es el propio sistema 
al que obtiene el formato a través del fichero de servicio. 


el fichero ha Sido generado 


AID ASE DE” DATOS; SID) 


Terminadas las fases anteriores, hay que definir la parte 
del fichero que se va a utilizar. La foto muestra la G.S. AAA 
introducción del número del registro en el que AA O AR 
empiezan los datos. Eos 


(ERA 1 E 7005] 


En el caso en que los datos se generan con la Base de 
Datos, el usuario debe definir su formato. Para cada 
dato hay que introducir el tipo y la longitud. 


La foto muestra la máscara vídeo utilizada para definir 

el número de datos que se van a presentar en forma de , ARACLCCIATA 
gráfico; esta operación es necesaria sólo en el caso de 

valores introducidos por teclado. a 


[Eres cas] 


AE E AS 0: 1: 9) 


E 
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Completado de la máscara anterior, con la selección 
del tipo de valor a asignar al eje X. 


TETAS E 


E) 
CER 
valor dado de teclado 


La foto muestra la fase de introducción de los valores, A , RN 
que sigue a las máscaras de las fotos anteriores. MEA ] EEC 


dato n. 19 


IES E E] 


Selección del tipo de gráfico. 


EA ELE] 


1 CA 


El usuario ha seleccionado el tipo 1 (histograma). La 
foto muestra su desarrollo. 





Seleccionando la voz 2 se obtiene la presentación del 
gráfico de los valores. 


Petición del cálculo de los coeficientes de la recta de 

regresión: en caso de respuesta afirmativa, el sistema BER CHECA 
proporciona los coeficientes de la recta utilizando los 

valores del gráfico. 


ECO <S/M) 2 


El histograma puede representarse sobre papel. La foto , ye 
muestra el coloquio que permite la activación de esta TEE E CELOSA 
función. 


ij desea la impresion del histograma? 


CEFAD) 


ni n 
posicionar el papel pulsar una tecla 


El dibujo muestra un ejemplo de histograma sobre 
papel obtenido con la correspondiente función. 
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FAA A 
La lógica del programa 


A la luz de todo cuanto se ha expuesto en la parte 
dedicada al uso del programa, puede comentarse el 
diagrama de flujo representado abajo. 

La primera función a realizar es la lectura de los datos, 
prevista, como se indica más adelante, de tres mane- 
ras diferentes. Siguen la elección de los campos a re- 
presentar gráficamente (uno para el eje X y otro para el 
eje Y) y la representación del gráfico (subrutina 4500). 
A la salida de esta última subrutina se ha previsto el 
cálculo de la recta de regresión (con el método de los 
mínimos cuadrados). 

Al final, el sistema pregunta si se desea otro gráfico y, 
en caso de respuesta afirmativa, vuelve a la subrutina 
de elección de los campos. 

Al respecto hay que hacer algunas precisiones sobre 
las modalidades operativas del uso de este software. 
Como se ha indicado, los datos se toman: principal- 
mente de los registros de los ficheros generados con 


la Base de Datos, lo que no implica ninguna particula- 
ridad si los valores (X e Y) están contenidos en el regis- 
tro. Sin embargo, en algunos casos, una de las dos 
magnitudes (normalmente la correspondiente al eje X) 
se toma simplemente como valor progresivo. Por 
ejemplo, en el caso expuesto anteriormente de gestión 
de las entradas y de las salidas mensuales, cada re- 
gistro corresponde a un mes y, al final de la memoriza- 
ción de los datos, sólo contiene los importes sin ningu- 
na referencia a los meses. Efectivamente, el fichero es- 
tará compuesto por 12 registros, uno por mes, y el 
puntero al registro (o sea el número de registro) indica 
el mes correspondiente. Por tanto, a los solos fines del 
tratamiento de datos no es necesario memorizar por 
cada mes el registro al que se refiere. 

Sin embargo, la estructura pensada así no es suficien- 
te para los gráficos: de hecho no se han previsto pro- 
cesos en función de variables no contenidas en el re- 


DIAGRAMA GENERAL DEL PROCEDIMIENTO 
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La subrutina prevé la 

lectura del formato de registro 
en el directorio del fichero o 
directamente de la indicación 
del usuario 


Además de la selección de los 
campos a utilizar, en esta fase 
se ha previsto la elección de 
los métodos de proceso 





gistro, lo que implica la necesidad de incluir en cada 
registro todas las eventuales referencias. 

Por ejemplo, en el caso anterior es necesario prever 
una estructura de datos que en el registro incluya tam- 
bién el campo con la indicación del mes. 

Esta particularidad funcional no constituye un elemen- 
to limiador: de hecho, puede superarse fácilmente 
empleando una estructura de datos adecuada. 
Como alternativa podría incluirse la posibilidad de utili- 
zar el número del registro como variable independien- 
te, pero esta solución sólo resuelve un caso particular 
y se adapta poco a la estructura generalizada del pro- 
cedimiento. 


Lectura de datos. Como ya se ha indicado, se han 
previsto tres vías de entrada de datos: 


1 / De un fichero generado con la Base de Datos 
2 / De un fichero cualquiera 
3 / Por introducción directa por parte del usuario 


Los dos primeros modos son análogos y sólo se dife- 
rencian en la lógica utilizada para determinar el forma- 
to de registro. Efectivamente, para los ficheros crea- 
dos con la Base de Datos, el formato se memoriza en 
el disco, mientras que en el otro caso debe ser especi- 
ficado por el usuario. 

La tercera vía de entrada, lectura del teclado, sólo se 
ha incluido para permitir el uso del procedimiento en 
los casos de empleo no ligados a un fichero datos. 
Para la lectura de los valores de un fichero, el usuario 
debe introducir el nombre, después la selección del 
tipo (o sea si se ha creado o no con la Base de Datos) 
y la adquisición del formato. En el primer caso se llama 
la subrutina 2200, que utiliza la estructura generada 
por la Base de Datos. En el segundo se llama la subru- 
tina 1500, a través de la cual, el usuario debe definir la 
estructura de registro. 

Además, las dos subrutinas se utilizan para definir el 
número de puntos a presentar. En el caso de que el 
valor sea superior al permitido por la pantalla se llama 
la subrutina 4000, que permite realizar una agregación 
de los datos para limitar su número a los contenidos en 
la pantalla. 

La parte restante de la subrutina está constituida por 
un bucle de lectura de datos del fichero, especifican- 
do que se realiza entre los valores lO y MX. 

En el caso de ficheros generados por la Base de Da- 
tos, el valor de lO es 2, puesto que el primer registro 
está reservado para el directorio. Para los otros, lo de- 
be especificar el usuario. 

Las funciones realizadas pueden verse en el diagrama 
y no necesitan comentario, excepto una explicación 
del uso particular de la matriz B$(«). 

En todas las aplicaciones anteriores, B$(*) se ha utili- 
zado como buffer vídeo y, por tanto, se ha dedicado 
principalmente a la data entry, mientras que en este 
procedimiento tiene un significado completamente 


distinto, puesto que se emplea como matriz para la 
carga de los datos. De ella se extraerán sucesivamen- 
te, uno cada vez, los campos a representar gráfica- 
mente. 


Lectura de datos de pantalla. La subrutina 3500 se 
dedica a la adquisición de los datos del teclado. El 
primer valor a suministrar es el número de datos (de 
los pares de datos, uno corresponde al eje X y el otro 
al eje Y) que se van a utilizar. 

En esta subrutina se ha previsto la lógica de asigna- 
ción con valores automáticos y progresivos al eje X 
(descrita anteriormente). 

Sigue un bucle de 1 a MX con la petición de dos valo- 
res (X, Y) y su transferencia a las matrices X(x) e Y (). 
Naturalmente, en el caso de A$="”1”, o sea la asigna- 
ción automática y progresiva de la X, se salta la corres- 
pondiente introducción. 

En la versión presentada, los valores introducidos au- 
tomáticamente empiezan por O. De hecho, para | = 1, 
la asignación es X(1) = O, pero puede desviarse o pa- 
rametrizarse fácilmente planteando una pregunta al 
usuario. 

Obsérvese que para permitir la máxima elasticidad no 
se han incluido controles de ningún tipo, por lo que del 
usuario se requiere un mínimo de atención. Por ejem- 
plo, el usuario debe introducir los datos de manera 
que los valores correspondientes al eje X resulten pro- 
gresivos, puesto que, de otro modo, se genera un grá- 
fico sin significado. 

Esta limitación también puede eliminarse fácilmente 
previendo el ordenado de los datos introducidos (sólo 
los correspondientes al eje X) antes de salir de la sub- 
rutina. 


Lectura del formato de registro. También esta subru- 
tina es extremadamente sencilla y no requiere ningún 
comentario particular. 

Sólo hay que recordar que para los ficheros creados 
con la Base de Datos, el formato de los registros está 
contenido en "DEFO” (fichero de las definiciones). 
Los valores se leen en la variable R$ y, de ésta, se 
transfieren a las matrices XD(+) e YD(w). 

Las matrices X(+x*) e Y(x*) no se utilizan directamente 
porque deberán contener los valores de manera ade- 
cuada para ser representados gráficamente, o sea 
con una cierta escala y agregados (si fuese necesario) 
según una determinada lógica. El uso de las matrices 
de tránsito XD(x*) e YD(x*) permite tener siempre en la 
memoria los valores originales y, por tanto, modificar 
en cualquier momento las variables presentadas. 


Introducción del formato de registro. Como ya se ha 
indicado, la subrutina se utiliza para definir el formato 
de registro de un fichero cualquiera del cual se de- 
sean extraer los datos. La única limitación en su em- 
pleo es que los valores hayan sido memorizados en 
formato ASCII, o sea en forma de cadenas. 


2511 


LECTURA DE DATOS 


En el caso de un fichero no 
generado por la Base de Datos, 
el usuario debe especificar el 
formato y el número de 
registros a procesar 


El valor de lO es 2 para los 
ficheros generados por la 
Base de Datos. En los demás 
casos debe darlo el usuario 


El valor de MX se salva en 
SW(7) porque podría ser 
variado en la subrutina de 
Agregación 
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Y 


El programa también puede 
O utilizar valores introducidos 
por el usuario. Los valores se 


introducen en X(l) e Y(I) 


Utilizando un fichero generado 
por la Base de Datos, los 
formatos se toman del 
directorio 


En esta rutina se lee además 
el número de registros a 
procesar 


En caso de una longitud que 
supere la capacidad de 
memoria, la máquina impide el 
criterio de selección a utilizar, 
o sea cada cuántos registros 
efectuar la lectura o qué 
registros descartar. 


En B$(x), la matriz está 
dimensionada al máximo de la 
memoria disponible y no tiene 
el mismo significado que en 
los programas anteriores (o 
sea que no está ligada a una 
data entry) 





En este caso, cada registro 
puede leerse en una variable 
de cadena y los distintos cam- 
pos pueden extraerse definien- 
do su tipo y su longitud, como 
si se tratase de un fichero ge- 
nerado por la Base de Datos. 
La primera función prevista en 
la subrutina es la introducción 
del número de registro en el 
que iniciar la extracción, que 
también podría no ser el prime- 
ro del registro. Generalizando 
esta función también puede in- 
cluirse la introducción det últi- 
mo registro útil para fraccionar 
todo el fichero en varios grupos 
de datos. 

Sigue un bucle con un coloquio 
para la introducción de los pa- 
rámetros (TP(x), LC(+*)) de defi- 
niciones de los campos. 
Obsérvese que este bucle 
puede interrumpirse antes del 
máximo previsto (20 campos) 
introduciendo tipo =-— 1. 

A la salida se determina el nú- 
mero de campos utilizados 
(M3) y se pide al usuario el nú- 
mero máximo de los registros a 
procesar. 

Sigue el cálculo de los regis- 
tros entendidos como posición 
a lo largo del fichero y la subru- 
tina termina. 


Elección del criterio de selec- 
ción. Tal como se ha indicado, 
pueden producirse casos en 
los que el número de puntos 
disponible sea superior al pre- 
visto en la pantalla. Por ejem- 
plo, en la memorización de un 
balance (entradas y salidas), la 
frecuencia de las grabaciones 
podría ser diaria y, por tanto, 
se necesitarían 366 registros, 
valor generalmente superior al 
número de pixels (puntos de 
pantalla) previstos en el eje X 
(eje de los tiempos). 

Esta situación conduce nece- 
sariamente a la eliminación de 
algunos datos en un número 
adecuado para reducir los res- 
tantes a la cantidad contenida 
en los pixels del eje X. 
Obsérvese que el problema 


LECTURA DE DATOS EN PANTALLA 


Si A$ = "1”, a la variable 
independiente (X) se le 
asignará un valor progresivo 


Principio bucle introducción 
datos 


En X() 


En Y(l) 
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expuesto sólo se produce para 
el eje X, porque para el eje Y 
basta el cálculo de un factor de 
escala adecuado. El motivo de 
esta diferencia reside en el sig- 
nificado que tienen los dos 
ejes: el primero, eje X, es la va- 
riable independiente y cada 
uno de sus valores que identifi- 
ca un punto del gráfico debe 
ser bien evidente y separado 
de los demás. En cambio, el 
eje Y contiene los valores de la 
magnitud que pueden repre- 
sentarse a escala. 

Es decir, suponiendo que el 
número de pixels en el eje X 
sea de 200, los datos corres- 
pondientes al ejemplo anterior 
no pueden presentarse gráfi- 
camente porque corresponden 
a 366 días, mientras que la 
pantalla sólo puede contener 
un máximo de 200. 

En este eje no se puede utilizar 
un factor de escala, porque re- 
duciendo el número de días a 
un valor contenido en 200 pi- 
xels (por ejemplo con un factor 
de escala 1:2) se tiene una re- 
presentación falseada y de difí- 
cil interpretación, puesto que 
cada punto representaría apro- 
ximadamente 1,5 días. Por tan- 
to, hay que adoptar un método 
de selección de los puntos a 
representar gráficamente. 

Los previstos en la rutina, entre 
los cuales el usuario debe ele- 
gir, son: 


1 / Eliminación de los primeros, 
en un número igual a los 
que sobran 

2 / Eliminación de los últimos, 
siempre en un número igual 
a los que sobran 

3 /Presentación de un valor 
cada "N” 

4 / Eliminación de un valor ca- 
da "N” 


En el ejemplo anterior, el primer 
criterio de selección equivale a 
representar en el gráfico sólo 
los 200 primeros días, el se- 
gundo los últimos 200, el terce- 
ro a representar por ejemplo 
los días pares y el último crite- 
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LECTURA FORMATO DE REGISTRO 


M3 = número de campos 


Se trata del fichero “DEF(w” 
creado por la Base de Datos 


VAL(MID$(R$,1,2)) 





rio, a eliminar en el gráfico un 
día de cada dos. 
La elección del criterio a apli- 


car no puede hacerse a priori 


sin conocer los términos del 
problema y, por tanto, se dele- 
ga al usuario, excepto en un 
caso que se comentará más 
adelante, que con la estructura 
actual no puede darse. 

La subrutina 4000 determina si 
el número de puntos es supe- 
rior al de los pixels y avisa al 
usuario, esperando instruccio- 
nes acerca del método a adop- 
tar para su reducción (uno de 
los 4 antes indicados): por tan- 
to, en la salida, los valores a 
presentar ya son congruentes 
con la estructura de la máquina 
y no precisan otros procesa- 
dos. Para activar la lógica de 
selección automática (descrita 
más adelante) es por tanto ne- 
cesario prever una salida que 
no permita ninguna reducción 
de los datos en la 4000. 


Elección de los campos. La 
función realizada por la subruti- 
na es la extracción, de la cade- 
na que contiene un dato (regis- 
tro), de los campos a represen- 
tar gráficamente. 

En las subrutinas anteriores, el 
procedimiento ha adquirido 
tanto las descripciones (en 
D$(+*)) como los parámetros (ti- 
po y longitud) de cada campo 
presente en el registro. 

En esta fase (subrutina 2500), 
utilizando los datos anteriores, 
se extraen los valores (de 
B$(x*), que contiene todos los 
registros) convertidos a numé- 
ricos y se memorizan en las 
matrices X(xw) e Y(*) que se 
usarán para la presentación. 
Naturalmente, esta lógica no 
debe activarse en el casó de 
que los valores se hayan intro- 
ducido directamente por tecla- 
do. Por tanto, un primer control 
sobre el flag KV (implantado en 
la llamada por la subrutina) 
produce la salida de la 2500 al 
producirse la condición KV = 1 
(flag activo). 


INTRODUCCION FORMATO DE REGISTRO 


M3 contiene el máximo número 
de campos previstos (20) 


Principio bucle sobre campos 


En TP(I) y LC() 





Asigna a M3 el número de 
campo efectivo 


Asigna a MX el número total 
de registros útiles 
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ELECCION DEL CRITERIO DE SELECCION 


En el otro caso (KV = 0), la subrutina entra en la fase 
de proceso constituida por puntos. 


1 / Presentación de las descripciones de los campos y 
elección, por parte del usuario, de los dos a em- 
plear; el primero como variable independiente (eje 
X) y el otro como variable dependiente (eje Y) 

2 / Extracción de los punteros, o sea, cálculo, en base 
a los parámetros de definición del registro, del byte 
de principio y de final de cada campo. En realidad 
son suficientes el byte de principio y la longitud del 
campo (ya conocida porque está incluida en los 
parámetros) 

3 / Bucle de extracción de las cadenas BS$(+) de ca- 
da campo y su transferencia a X(x+) y a Y(x). 
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MX contiene el número de 
registros útiles 


MR contiene el máximo 
número de registros 
aceptables por la máquina 


El valor de la elección está en B$. 
Se presentan 4 posibilidades: 
1) descartar los primeros 
A = MR registros útiles 
2) descartar los últimos A = MR 
registros 
3) leer un registro cada A2 
4) descartar un registro cada A3 
La cuarta opción sólo se presenta 
si A3> 1 


Ny 


Los valores de SW(3) y de SW(4) 
se utilizarán para la lectura del 
fichero Datos 





Agregación. Como se ha indicado, en el procedimien- 
to hay incluida una lógica automática de reducción del 
número de los valores a presentar. 

Las consideraciones sobre las que se basa esta lógica 
se exponen a continuación utilizando un ejemplo. 
Supongamos que se tienen 1000 valores a presentar 
en una pantalla que, en el eje X, tiene 200 puntos (pi- 
xels). Adoptando uno de los criterios expuestos, en la 
subrutina 4000 se consigue lo deseado, pero eliminan- 
do completamente algunas mediciones. 

Utilizando los dos primeros métodos sólo se tiene la 
presentación de una parte de los valores, mientras 
que utilizando los otros se eliminan algunos valores 
que podrían ser importantes para un determinado pro- 
ceso del fenómeno. 


ELECCION DE LOS CAMPOS 


En la llamada, KV = 1 indica que se ha hecho una introducción desde pantalla 


SI 
Los datos se han introducido 
i desde pantalla. 
No es necesaria la parte de 
NO proceso correspondiente a la 
y extracción de campos 


Los campos se indican 
presentando las descripciones 
(DS(+)) 


La variable independiente 
(X(*)) puede ser uno de los 
campos o el número progresivo 
(introduciendo N) 


En esta introducción se comprueba 
que la variable elegida 

para la X(*) no sea llamada 
también para la Y (+) 


O En este punto: 
TP NO KX = Apunta a la variable 
independiente 
KY = Apunta a la variable 
dependiente 


P1 = byte principio variable 
independiente La extracción se basa 
] en la instrucción MIDS(...) 
L1 = longitud después de haber obtenido el 
posicionado de los dos campos 
P2,L2 = análogos para la seleccionados dentro del 
variable dependiente registro 
A1$ contiene la variable 
independiente 
A2$ la dependiente 


Extrae los bytes correspondientes 
a los campos especificados 


Variable independiente 
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La agregación se pide 
cuando el número de puntos 
supera al de los pixels 

del eje X 


En esta subrutina se presenta un método que, en algu- 
nos casos, resuelve el problema. 

Con los valores indicados (1000 puntos, 200 pixels), 
se está limitado a representar un valor de la magnitud 
de cada cinco (1000/200 = 5) y, eligiendo este valor 
de manera aleatoria, puede representarse un punto 
momentáneo y poco significativo. 

Como alternativa puede utilizarse una media «local» 
de los 5 valores a representar en un solo punto. O sea, 
en lugar de indicar una medida descartando las otras, 
se calcula la media de un grupo de 5, con lo que se 
obtiene un total de 200 valores, cada uno constituido 
por una media «local» 

Por tanto, la subrutina está constituida por un bucle 
que calcula la medida de K valores (en el ejemplo an- 
terior, K = 5) para ambas variables. 

En la salida de esta subrutina se emplea un segundo 
bucle con el fin de anular los elementos de X(*) y de 
Y (a) que sobran. 


Presentación del gráfico. El diagrama de esta subru- 
tina (4500) sólo es indicativo, puesto que su desarrollo 
depende estrechamente del tipo de máquina utilizado. 
Las funciones que realiza son: 


1 / Extracción de los valores máximos a presentar en 
los dos ejes 

2 / Cálculo del factor de escala 

3 / Presentación, en dos formas: 
— Como gráfico X-Y 
— Como histograma (subrutina 4920) 
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En el caso del número 
progresivo como variable 
independiente, el índice del 
bucle se transfiere a X(+) 


(*) En el MSX se tiene MPX = 200 





La segunda forma (histograma) puede hacerse en im- 
presora. La subrutina tiene las siguientes limitaciones: 


"= No prevé valores negativos 
"m La representación de las variables empieza siem- 
pre por cero 


Estas limitaciones son consecuencia del sector de 
aplicación particular del procedimiento. De hecho, es- 
te tipo de gráfico está orientado al empleo de datos 
principalmente de naturaleza económica o de gestión, 
para lo cual dichas limitaciones no tienen un carácter 
determinante, como sucedería en cambio para aplica- 
ciones de carácter científico. 

Sin embargo, el propio usuario puede ampliar el cam- 
po de empleo previendo también el caso de valores 
negativos; el procedimiento a adoptar consiste en su- 
mar a los valores un número correspondiente al máxi- 
mo negativo (para obtener únicamente valores positi- 
vos) desplazando los ejes la misma cantidad. 


Cálculo. En muchas aplicaciones, los valores a pre- 
sentar gráficamente se derivan de observaciones de 
un fenómeno. 

Cada valor, precisamente porque se obtienen median- 
te una observación, o sea de una medición, está afec- 
tado por errores que no pueden eliminarse. 

Estos errores producen una «dispersión» de los valo- 
res observados, por lo que incluso si el fenómeno pue- 
de ser representado por ejemplo con una función ma- 
temática, no todos los puntos pertenecen a la curva, 


AGREGACION 








El dato se introduce 
en la variable N1 


MX es el número de datos y K 
representa el paso con el que 
deben tomarse 


Primer grupo 


S1 y S2 son las variables que 
deberán contener 
respectivamente las sumas de 


los valores en el eje X y en el Y. 


Kl es el contador 


Valores medios de K obtenidos 
a partir de los datos X(V) 
e Y(V) 
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Pone a O los valores sobrantes 


PRESENTACION DEL GRAFICO 


En entrada: 

X(x)= Variable independiente 
Y ()= Variable dependiente 
MX = Número de puntos 


Con un bucle de 1 a MX 


La función pide los valores 
del número de puntos útiles 
en los ejes X e Y 


y 


yr | j 
y______ 


En la rutina de los histogramas 
se ha previsto la salida 
en impresora 


La subrutina sólo es indicativa porque su desarrollo depende del tipo de 
máquina utilizado. Por tanto, hay que consultar el correspondiente listado 
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CALCULO 


La recta de regresión 
es Y=Ax*X+8B 


sino que están distribuidos a su alrededor, general- 
mente de manera aleatoria. Los métodos para deter- 
minar la distribución real son muchos y todos de una 
cierta complejidad, puesto que requieren conocimien- 
tos de estadística y, a veces, procesos muy com- 
plejos. Esta subrutina sólo constituye un ejemplo del 
método más sencillo, que presupone una relación de 
tipo rectilíneo entre las dos variables del gráfico. 

El método adoptado es el llamado «de los mínimos 
cuadrados» y proporciona la recta que mejor se apro- 
xima a la representación del fenómeno, siempre que 
su evolución pueda representarse con una recta. 

Por tanto, esta parte del programa no constituye una 


Principio bucle 


A1=A1'+X() 
A2=A2 + Y(I) 

A3 = A3 (X(1))L2 

A4 = AS + (X(1) + Y(1)) 


D=Nw*A3- A1L2 
B = (A2x* A3-A1 x A4)/D 
A =(Nx* A4- Al x A2)/D 





forma generalizada, sino sólo la solución para un de- 
terminado tipo de fenómenos. 

Sin embargo, el usuario puede construir las versiones 
necesarias para una aplicación particular: se trata de 
desarrollar una lógica distinta de cálculo que utilice los 
algoritmos precisos. 

Este tipo de implantación no se contempla en el párra- 
fo reservado al tema, puesto que no está ligado espe- 
cíficamente a los gráficos. De hecho, la presentación 
de los parámetros de la curva que mejor se aproxima 
al fenómeno presentado gráficamente, tan sólo es un 
cálculo matemático cuyo desarrollo no depende de 
ninguna manera de la parte gráfica. 
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En esta foto se muestra el menú del programa de 
gráficos en la versión DOS. Con esta primera pantalla 
puede elegirse el método de inserción de los valores a 
procesar y presentar gráficamente: en particular, 
introduciendo 1 es posible leer un fichero datos 
cualquiera en el soporte magnético. 


Ejemplo de gráfico: la presentación de los datos en 
forma de gráfico se hace por líneas, o sea cada par de 
valores consecutivos identifica dos puntos de la 
pantalla, que finalmente quedan unidos por un 
segmento. 


Una vez terminada la presentación del gráfico, el 
usuario puede pedir al programa el cálculo de la recta 
de regresión determinada por los valores introducidos. 


Ejemplo de histograma: la presentación de los valores 
procesados en forma de histograma también se hace 
en alta resolución. Las columnas no están llenas para 
no prolongar el tiempo de trazado. 
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El programa de gráficos en la versión MSX permite 
trazar histogramas o gráficos según la elección 
realizada en el menú secundario mostrado en esta foto. 
Las dos formas de presentación se realizan con 
pantalla de alta resolución. 


Ejemplo de programa: el número de datos que puede 
presentarse simultáneamente (o de columnas) está 
limitado por el espacio útil en la pantalla. 


La versión MSX de este programa permite la 
presentación de gráficos en varios colores. Para la 
elección del color con que se desea trazar el gráfico (o 
el histograma) se ha previsto el menú secundario 
mostrado en esta foto. 


Ejemplo de gráfico: después de introducir algunos 
datos, se ha pedido su gráfico. El lenguaje MSX permite 
presentar con facilidad caracteres en la pantalla de alta 
resolución, presentando cabeceras y valores 
indicativos. 


¡RES 


(a a 
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Extensiones y modificaciones 


Al ilustrar las distintas subrutinas ya se han sugerido 
algunas implantaciones de carácter secundario, por lo 
que en esta sección sólo se indicarán algunas de ca- 
rácter sustancial. El procedimiento presentado permite 
la generación de gráficos en dos formas: gráfico conti- 
nuo, también llamado gráfico X-Y, e histograma. El pri- 
mero es útil para presentar fenómenos que pueden 
asimilarse a funciones. El segundo es más adecuado 
a los casos en que, conceptualmente, no puede existir 
una función o, en el mejor de los casos, en que el valor 
de la variable independiente (eje X) sólo asume algu- 
nos valores definidos y no admite intermedios. 

Un ejemplo típico en el que debe utilizarse el segundo 
tipo de representación es la presentación de un balan- 
ce (entradas y salidas). 

Los datos están constituidos por los importes (de en- 
trada o de salida) correspondientes al intervalo de 
tiempo elegido para el muestreo. Por ejemplo, defi- 
niendo un mes como período de observación, el gráfi- 
co estará constituido por 12 valores (para los 12 me- 
ses del año) y, como tales, o sea como puntos aisla- 
dos, deberán ser presentados. 

Si se unen entre sí los 12 puntos para obtener un gráfi- 
co X-Y, se cometerá un error, puesto que inducirá a 
creer que las observaciones se han realizado con una 
frecuencia mayor que la real, por ejemplo diaria. 
Además de las dos formas de representación vistas e 
incluidas en el procedimiento, existen otras más ade- 
cuadas para mostrar algunos tipos particulares de fe- 
nómenos. 

La más utilizada, no incluida en el procedimiento y que 
puede ser objeto de implantación, es el llamado «dia- 
grama de tarta». Este tipo de gráfico es útil cuando se 
quiere mostrar la evolución de un conjunto que indique 
la influencia de distintos factores sobre el mismo fenó- 
meno. 

Por ejemplo, supongamos que se pretende analizar 
las componentes del costo de un producto. 

De manera muy simplificada son: 


m Gastos para las materias primas 30% 
u Gastos de transformación 40% 
m Transportes 5% 
m Acopios 5% 
=_ Gastos para adecuación instalaciones 20% 


Al lado de cada concepto aparece su incidencia por- 
centual sobre el costo del producto terminado. El gráfi- 
co necesario tiene la finalidad de presentar de manera 
sintética estos valores, poniendo de manifiesto su con- 
tribución sobre el total. 

Ni la forma X-Y ni los histogramas se prestan a resolver 
este problema, porque los datos no poseen los nece- 
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sarios atributos por estar constituidos por 5 valores, 
uno por concepto, en los cuales faltan los correspon- 
dientes valores de la variable independiente. 

La única forma de presentarlo consiste en construir 
una figura que represente la totalidad (en este caso el 
100%) poniendo de manifiesto en ella las distintas dis- 
tribuciones. Esta figura puede ser cualquiera, incluso 
un rectángulo, pero generalmente se utiliza el círculo. 
Suponiendo que se represente el costo de un produc- 
to con un rectángulo de base igual a 100, los concep- 
tos unitarios estarán representados por otras tantas 
subdivisiones de base 30, 40, etc. Esta representación 
no permite una interpretación inmediata porque, si 
bien la altura del rectángulo puede representar otro 
parámetro, no se utiliza y esto produce incertidumbre 
en el observador. 

Como se ha mencionado, la figura de base debe ser el 
círculo y los valores de cada variable se presentan 
con sectores de amplitud proporcional. 

Por tanto, la implantación se reduce a presentar un 
círculo de radio cualquiera, presentando en el mismo 
tantos sectores como cuantas magnitudes en obser- 
vación hay y con una apertura proporcional al valor 
correspondiente. 

En el ejemplo anterior, los valores son porcentuales y, 
por tanto, su suma vale 100 y la apertura angular del 
sector que la representa viene dada por 3.61 valor en 
grados. 

Tal y como se presenta, la implantación resuelve sólo 
los casos más sencillos. De hecho, la representación 
de un fenómeno con los diagramas «de tarta» se utili- 
za generalmente para poner de manifiesto valores re- 
lativos a comparaciones entre distintas situaciones y 
distribuciones. 

Por ejemplo, en el caso de que se trate de representar 
el balance de una sociedad, los conceptos podrían 
ser los siguientes: 


m Gastos para la producción 
" Inversiones 

m Investigación 

m Pasivo 


Representándolas en un histograma se tendría la pre- 
sentación del peso de cada uno con respecto a los 
demás, pero no tan fácilmente lo que cada concepto 
pesa sobre el total. Para esta representación es más 
adecuado el diagrama de tarta, en el que cada sector 
tiene una amplitud proporcional a la cifra. 

Utilizando esta forma se indica inmediatamente cuál 
de los conceptos tiene el importe más elevado seña- 
lando el sector que le corresponde o poniéndolo de 
manifiesto de manera diferente a los demás. 


Gráficos de ordenador/Versión Commodore 64 


10 REN 
15 REN 
23 REN E 

¿5 FUKE 92: 140:FUKE 96. 1465 

Su M=200:MyY=130 

49 ME=100:M3=20 > DIMESCMES. DECIMO, TECMZA LEAD AECA EMO RDA DA MS 
SO DIMAS MRS CMS 1 CM 

su Hli="4 1.0. "DICIONES —ORLIA. 4.%.":HOS="0J" 

85 H23=- ] Á_—_———_——— _— _ __ _»>EEErR mo AE 

7D FOrR1=1T040:5PE=5F4+" "NEXT 

20 C0TU4ga 

160 REM 4 PREPARA ElT-MAP + 

¿ 2220, 6 

















Ed. PEEK(53Z65)OR32 
TO+29376 TU TU+Z S:PURE Ko 
-21324-92004(K762243) * FOKE FK a: MEXT K . 
E SES 0PUKE K,230:MEXT K:REM 230=AZUL Y CELESTE 
PiBIACKI=2 MH 7=-K) NEXT K 











133 RETURN 

193 REM 

¿00 REM A ENCIENDE FUNTO EN 45.3 k 

201 REM 

210 PUsTU+24376+ CGR SAND 4E AS ANDA + RSANDOO9 00 
211 PR=PU-21224- IZDA CPUEZI43) 

214 25=PEEKCEKOORE AO XSAND?) PUKE PU ZS 

215 POKE FK.25 

220 RETURN 


400 REM ===--- 
402 REM -MAIN- 
404 REMO === 


493 PRINTCHE4C019> 

410 COSUE1000 

424 LUSUBLIOO 

430 COSLIE4500 

440 PRINTCHAR3(19)5 :CUSUEZOBO :=2:'Y=14 :GOSUE4150:PRINT"MECTA DE FECRESION ” 
4390 =25:COSUE4 160: PRINTUC VU MI 7 

4060 CETAS: IFAS="-"URAS="N"THENSOO 

470 IFASCO"S"ANDAFOO "0" THEN4EO 

430 CUSUESODO 

509 COSUP2000:%=11:w=14:COSUP4160:PRINT"TITS 1H CRM A 

210 DETAS: 1FAS$="-"ORAS="N"THENPR INTHOS; CHR$(142);CHR$(1540 : END 

520 IFAS<O"0"ANDAS<O HENS10 

530 FORI=1TOMR Ye 10004 100041 10=0 0110 1)=0:NEXTI:MM=SHL 7 
540 1FKW=1THENK%=9: GOTO410 

550 GUTO4Z0 






739 REN 

206 REM 4 FESTRELELIMIENTO 4 

201 REM 

310 FUKE 306376, (FEEK(S63767AND252)0k63 


215 POKE 33269, PEEKCSUOCOIANDZSS 
220 PÚUKE 53272, 21 
225 PRINTHOS;CHR$(14):FOKES3280. 14:RETURH 
1006 REM 
1010 eS LECTURA FICHERO 
(33) 


1039 COSUB2000:%=1:Y=12:COSUP41E0:FRINT"MA 1 M4 LOS DATOS ESTAN EN EL DISCO" 
1040 Y=14:COSUP4160:PRINT"R1 2 M4 LOS DATOS SE INTRODUCIRAN DEL VIDEO" 
1050 X=xX+2:Y=17:GOSUP4160:PRINT"UAL? 

1050 CETAS: IFAS<>"1"ANDAS$<>"2"THEN1060 

1070 PRINTAS; "mm" 

1029 IFA$="2"THENCOSUESSO0 : RETURN 

1059 *=1:Y=21:G0SUE4160: INPUT" L-UOMPRE DEL FICHERO MM ";NF$ 

1025 IF LENCHF$=0 THEN 1060 

1109 COSUE2000:4=7:Y=12:GOSUB4160:FRINT"EL FICHERO HA SIDO GENERADO"; 
1105 Y=14:COSUB4160:PRINT"POR LA dlito ATOM ¿AWAY RLVAA) 7 
1110 CETA$: IFA$="w"0RA$="5"THENGOSUEZ200: 16=2: SH(1>=1:P7=2:C0T01140 
1120 IFAS$<>""ANDAS<S"N"THEN1110 

1130 COSUE1S50B:SH(13=0 





TFMMOMRTHENGOSUB40D8 
LOSUP2000:%=7:=10: GUSUE4160: PRINT" INTRODUCIR EL DISCO DATOS": Y=Y+2:c05UE41 


PRINT" FULSAR UNA TECLA" 

S CETAS:1FAS= "THEN1150 

LR=P?-1:FOR K=1 TO 20:LR=LR+LC<¿Ko NEXT K 
OPEN15.8,15, "1/0" 

ÚPEN2,28,3, "0: "+NF$+".SEG,R": INPUTR1S: AD: $, CD. DD 
IF AD=64 THEN CLOSE2:GOTO 1350 


6 IF AD=52 THEN CLUSE2:CLOSE15:GOTO 1000 


COSUE 1308 

REM 

IF ShHcC15=1 THEN INFUTR2.A$:MM=VALCASI IF MMOMR THEN GOSUBE 4009 
IF SHc1>=1 THEN 1240 

IF 10=1 THEN 1246 


Y FOR I=1 TO I0-1:GOSUE 1400:MEXT:A4="" 


A=0:K1=1 


Y COSUE1400:B$(K1)=A34 


IF SH(3)=2 AND K1<mMM THEN FORI=1TOSH(4)-1:COSUB1400:NEXTI:Ag="":MM=MM=1+1 
1F =4THENA=A+1 : TFA=SH¿4)—1ANDK 1<MMTHENGOSUE1 400: A4="":A=9: MM=tMM-1 
K1=K1+1: IFK1<=MMTHEN1250 





Y LLUSE2:CLOSE1S: SH 7I=MM: RETURN 
REM 


y REM ESPERAR 
RE 


SUEZDO =15:GOSUES1E0:FRINT"B 7 e 717 - * -" RETURN 
REM 44 


32 UFENZS.2,3:NF$: INPUTH1S. AD: $. CD. DD 


+ 1F AD=82 THEN CLOSE2:CLOSE1S:COTO1008 


COSUE 13600 
REM 


O IF Shcló=1 THEN CLOSE2 :CLOSE1S:COTO100 


RC=I6-1:1F RC<1 THEN RC=1 

A=0:k1=1 

GOSUL 1350: COSUE1400: ESCK12=A4: INPUTH1S.AD.X$.CD, DD 
IFSH(23=23ANDK1<MM1 THEN EC=RC+SHi4)-1 
IFSH(3)=4THENA=A+1 : IFA=5H(4)—1ANDK1<MM THEN RC=RC+1:A=0 
ki=sk1+1:RC=RC+1:1F RE<=M11 THEN 1270 
CLOSE2:CLOSE1S: SH? =11M: RETURM 





50 REM APUNTA AL REGISTROREC 


R1=RC:R2=8 
IF R1>256 THEN R2=INT(RC/256) :Ri=R1-2954R2 
PRINTRIS. “P "CHR$(3496)CHRSURLICHRECRZICHRSC1) 





23 RETURN 


REM LECTURA REGISTRO 


63 Tl=1:CETRZ. AS: IF AS=CHARFC125 THEN A$="":TT=0 





FOR Ri=1 TO LR-TT 


2 GETRZ 14: AG=H3+C4 


HEAT. 1 


6 RETURN 
y Era IÓN FORMATO 









2 Y=10- CUSUE4 160: PRINT""INTRODUCIR EL NUMERO " 
OSU. 160 :FRINT"DEL PRIMER a UTIL Y" 
£41€0: INPUTIO: IF I0<1 THEM 
2000: X=6: =9: GUSUB4 160: ENEE Az TAN 
12: COSUE4 LEO: INPUT"EYTE DE INICIO RV PY IFFS<1THENIS30 
TOMS 
¿20 FORY=11T027: COSUE41560:PRINTLEFTECEPG) 2905 HEXTY 
a=13:=14: GOSUB4168:PRINT*SICAMPO N. "51 
TIPO (3=ALF. 1=NUM. —1=FINS 4 GTECIO 


CIS 1ANDTFC 15 3THEH15200 

%=9:Y=20: E0SUB4160: INPIT""LONGITUDA"¡LOCIO > IFLOCIO<1THENI590 
HEAT 

M2=1-1 


Y COSUEZDOD:4= =9: Y=17:G0S5UE9160: INPUT" HLIANTOS RECISTROS HAY EN EL FICHERO"; 


Mi=li+ 1-10 
RETURN 


9 REM CAEECERA 


PRINTHOS :=2:=0: COSUP4160:PRINTHIS 


2915 4=24=1 :COSU-4160: PRINTH2$ 

¿BED = 11: Y=4:COSUEG 10: PRIHT" AD E 
2029 Y=5:COSUP4160:PRINT"AI ll -t->2-Po1 

2049 Y=6: COSUB41 680: PINTA 
2050 2 





¿200 E 

2210 REN LECTURA FORMATO 

2220 REM 

2230 PRINTHOS:%=5:=7:GOSUE4160:PRINT"INTRODUCIR EL DISCO QUE CONTIENE" 






2234 Y=9:COSUE4160:PRINT"LAS DEFINICIONES DE LOS CAMPOS" 
2240 CETAS: IFAS=""THENZ240 
2250 COSUB1208 

2260 OFENZ:2,3."0:DEFG. SER" 
2270 FORI=1T0HM3 

22230 INPUTRZ.R$ 

2290 ADC =YALEMIDECAE 1.2) 
2300 YDCI:=YALCMIDECAS. 3.200 
2310 Dic =MIDSCRE,S. 105 

2320 XCCI=YALCMIDECAS. 15,29) 
2330 "OCIO =YALCMIDECAS, 17,27) 
2340 LOCO =VALCMIDECAS. 19,2) 
2230 TPC =YALCMIDICRG. 21,207 
2360 MEXTI:CLOSE2 

2370 RETURN 


REM 
2510 REM ELECCION DE LOS CAMPOS 
REN 


2530 COSUESZ00 
2340 IFKV=1THEN RETURN 
2200 PRINTHOS :4=0:=0: 605UB4160:PRINTHIS 
2550 IFSH(c17=0THEN2610 
2570 FORI=1TOM3:4=4DC 1): W=YDC IT) :GOSUE4 150: PRINTUA" ¡DECIA NEXT 
2598 FORI=1T0M3:1F TPC(1>=0THENZ600 
2390 A=ALCI) SECTO  COSUES 16: PRINT"A" STRECIO 
2500 HEXTI:50TO2630 
¿sto =1:FORY=1T0M3:COSLIB4160:PRINT"ACAMPO NY TAECIS: "ITIPO" TP 
2615 PRINTTABC25)5 "LONGITUD" ¿LOC Y: NEXTY 
220 4200 Y=22 :COSUEG 1600 PRINTLEFTS SPE, 2500 
2530 %=B:=22:COSUB4160: INPUT" NUMERO CAMPO “MA CT ARPROGRES. 2545: A=VAL CAP) 
2540 IFX$="M"ORAG=""THENCO7O 
2650 IFACIORAS>M3THENZ620 
2560 IFTPCA)=B0RTFOA+=3THENZEZO 
2670 4=0:=22:COSUP4160:PRINTLEFTS$CSP+,39)5 
2689 COSUE4150: INFUT"NUMERO CAMPO “ala "iré ASVALO YE): IFACIURAS MOTHENZ2670 
2590 IFTPCA)=BORTFOA=30RY$= $ THENZOTO 
2709 X=0:Y=22:G0SU-4160:PRINT"LOORD. “k =CAMFÓ "jx3;" COORD.” I=CAMPO ".Yé; 
2710 4=12:1=23:605UB4160:PRINT"SECURO (35H) "; 
2720 CETAS:IFAS="-"0RAS$="N"THEN2300 
2730 IFAS<O"S"ANDAS<>"e"THEH2720 
274 Ka=VALCAG) RTS ALOE) 
2750 FORJ=1T02: 1FJ=2THEMA=Kx :COTO2770 
2760 [FKs=0THEN2208 
2765 Ask 
2 P=PT:FORI=1T0A 
LaLC< 1) :P=F+L:NEXTI:P=P-L 
IF J=1THENP1=P:Li=L 
IFJ<S 1 THENP2=P:L2=L 
HEWTJ 
e FORI=1T0rHm a 
Y A2$=MIDSCERCIO Pe Le Me =WALCA2Z$> 
TFK4=BTHEHAC1)=1:G0TO2350 
2246 Alé$=MID$(PSc 10 P1.L10 212 =VALCALE> 
2250 NEXTI 
22560 IFMMO300THENCOSUE20689 : REM ACRECACIÓN 
ETURH 









REM 
2010 REM. ACREGACION 
2020 REM 
30209 COSUF2008 y 
2040 %=1:Y=12:COSUE41S0: INPUT"NUMERO VALORES EJE “X“CMAX 300",N1 
2043 IFN1>3000N1<1THENS000 
2050 K=11M,“H1 
1-8: EDOzr INOMISIERK I=I+1 
¿=B:ki= 





2110 4210=3 
3120 NEXTZ 


FORIJ=I+1 70M: J5=9: YC J5=B: HEXT 

49 MM=1 RETURN 

REM 

y REM LECTURA DATOS EN Y“IDEO 

REM 

EW=1 1M=0 : CUSUPZ000 

2=19:Y=10: COSUE4160:FRINT"AJANTOS DATOS ? (MAX 1002" 

y =13:Y=153:COSUE4 1608: INPUT" 11H 
IF IOROR NN IEnSS a 

E , OSUE4 160: PRINT"1D X= 

LEG41560:PRINT"NED A 
E4lebB-PRINT"AJAL? "; 

; 1"ANDAS<5"2"THENS600 

FOF1=1 101111: =0: FOR Y=19T021 :CUSUE4 150: PRINILEFTE: e 2305: HEXTY 

A=157 y=11: TÍ NS RICATECSTRECIOS 3 

y j E IN 

Ri T0=1-1:COTOZ560 

1E4 156: INPUT" INTRODUCIR El “ALUE DE LA « 

4=4:1=18: CUOSUE4166: INPUT" INTRODUCIR EL YPLUR DE LA Y 

HEX<TI RETURN 

REM 

010 REM SELECCION 

REM 

20 A=HMM. As=R MR A3= INTA CAME0 0  R2= INTA: TFAc<o INTL AS THEHAZ=A2+1 
COUSUP2000 0 = USUL 4150: PRINT"EL HUNERO DE FECISTRUS ES SUFERIOR" 

2 P4186:PRINT"AL MAXIMO ACEFTRELE ¿CM 

OSUE4160:PRINT"RELIJA El CRITERIO DE SELECCION: " 

4= USES ea PRINTULS DESCARTAR LUS PRIMEROS") A: "EECIS 

Y=15:COSUP4160:PRINT"22 DESCARTAR LOS ULTIMOS"; AMES "RECISTRUS" 

w=19:GOSUE4160:PRINT"2 LEER UN REGISTRO CADA": A2 

As="3": IFA2>1THENY=20:GOSUB4160:PRINT"4) DESCARTAR UN REGISTRO CADA";A3:A$= 


Y CETES: IFES<"1"ORBSASTHEN4100 
IFE+="1"THENI6=10+A-1k : Mb=14R 

"2"THENIMIMA= HR 

=YALCEL): IFSHC3 >= 2 THENSU 4 =A2 

IFSH(3=4THENSHC4)=A23 

30 RETURN 

REM POSICIONA EN Xx Y 

Bb PUKEZ11,X FUKEZ19.w 

20 55 52722: RETURN 


REN 
REM GRAFICOS 
20 EM 
g COSUP2000:%=11:Y=12:COSULG4160:PRINT"RA 1 M4 HISTOCRAMA" : 
Y=15-COSUEG ISO: PRINTUR 2 34 RAF ICO" x=14:1=24 0 GUSUES a PRINT"UALE" 
O CETAS -1FA$<>"1 "ANDAS? "2"THEN4350 
IFAS$="2"THENSHCZI=1 :C0TU4E50 
; e 
¿m1 
I=2T0MM* IF 40 10>94MTHENZM=XC 10 
70 IFC IMTHEN =D 
HEXTI s 

IF vYi=b THEN YM=1E-5 

IF XM=0 THEN XhM=1E-5 

FOF 1=1 TOM 

AD = 294 XCD R220 8H 

Ye 1 SR RLSP DO =1 SCT 

NEST 














WALOR PRUCRESIMO" 
WALOR DADO DE TECLADO" 




























16:05 ERC IO <ATHEN: 


a: IFC <OTHEH: 








=9 








































30w1=15: w2=17 1: EIA 
9S:Y1=171- 71: COSUEDODO 





+ Y1= 10 2 = LC 1410: CUSUEDEOO 





NEXT: GOTO497 

9 REM HISTOCRAMA 

L=10%14.41111 

49 A=24:FORI=1T0mma 

X1=A: 2=A:W1=170:Y2=4C 15: A 5 

Al=A:22=H+L + Y1="WC1 z S 

A1SAHL: R2=A+L:Yi= PL To: ve=t7o: GOSUESEO 

ASL+L+A ¿NEAT RETURN 

CETAS : IFAS=""THEN497D 

536 E COSUES4O : IFSH25=8THEHCUSUEST 

RETURN 





59u9 REN 
56168 REM RECTA DE RECGRESION 
REM 


5028 M=MM:A1=0:A2=0:A2=9:A4=4 
5849 FORI=1TON : : 

5059 AL=A1+X1C1) :A2=A2+Y1 CIO ¿AGAR L CRL CIO ASAS) 12 

5050 NEXTI 

5479 D=N*A2-A112: IFD=OTHENS152 

5075 E=CA24A3-A1RA4)/D 

5020 A=(NAR4-ALAAZ)/D 

5085 1F INTCA+.49)=0THENS152 

5090 X0=INT(-E/A+. 49): v8=INTCB+, 49) ] 
5109 GOSUP2900:%=1:Y=10:COSUP4168:PRINT"LA ECUACION DE LA RECTA DE REGRESIÓN"; 
5195 Y=12:COSUE4160:PRINT"ES: Ml ="sINTSA+. 4D)" AA 

5110 IF INT<B>)=0THENS120 

5112 IF INTCE>DBTHENPRINT"+"5 

5115 PRINTINTCE+.49); > 

5120 X=4:Y=16:GC0SUP4150:PRINT"TLA RECTA CORTA: " 

5130 X=4:=19:GOSUB4160:PRINT"=EL EJE % EN EL PUNTO X=";X0 

5140 X=4:Y=21:COSUP4160:PRINT"2EL EJE YMEN EL FUNTO Y="7"; 0 

5150 X=11:W=23:CUSUE4160:PRINT""PULSAR UNA TECLA"; :GOTOSI60 

5152 COSUP2000:X=2:Y=12: GOSUE4160:PRINT"LA ECUACION DE LA RECTA" 
=14:GUSUE4160:PRINT"NO ES REPRESENTRELE" 

5155 X=11:Y=20:G0SUE4160:PRINT""*PULSAR UNA TECLA" 

5160 GETAS: IFA$=""THENS160 

5170 RETURN 

5200 REM SALVA LOS VALORES ORIGINALES 

5228 FORI=1TOMM:%1(1)=xC1) Yi = Ye 1) 

HEAT: RETURN 

1 REM IMPRESION 
y COSUPZ008 





















SRAMA 
:GOSUE4160: PRINT"DESEA LA IMPRESION DEL HISTOGRAMA?" 
SUP4169:PRINT"LS/H3" 
HYORAS="./"THENRETURN 
h S'ANDASIS "e" THENS330 
K=8:Y=18: COSUEG 160: PRINT"SPOSICIONAR El PAPEL Y PULSAR UNA TECLA" 





4: y=10: COSUE4160:PRINT" INTRODUCIR LA CAPECERA DE IMPRESION" 
05UE 4160: INPUTAS 

OPENS. 4: CmMD4 

Y PRINTCHR$(142;CHR$C17):H13;CHR315):PRINT:PRINT:FRINTTAE((E0-LENCASI 205 AS 

PRINTCHR$(145):PRINT:PRINT"1":PRINT"1" 

abs FORI=1T020:54=34+ "2" ¿NEXT 

FURI=1 70m 

3 IFW<I)>17OTHEN YC =170 

PRINT"I"¿LEFTSCSS. (170-4012) 

PRINT"I"¡LEFTSCS 170-Y(172/32 

PRINT" pu EA NEXT 

3 LMD4 PRINTTRAECS 20 MAR=" Y 

PRINTH4 CLOSES: RETURN 

REM TRAZA LINEAR 

A DX=INTORESCAL-X20 5 DS INTO RES OZ 

IF DA=4ANDI=0THEM3=41:15=Y1 : COSUEZ00: RETURN 

IFDA>D7THENS628 

y FOR S="1 TOY ESTEPSCNO 2110 

, x2= 002 MIR 1 











CUSUESÓM HNEATYS 
RETURN 





RETURN 


RELACION DE LAS PRINCIPALES VARIABLES - COMMODORE 64 


MR = máx. número de registros 
aceptables por el fichero 
datos 

M3 = máx. número de campos 
para cada registro 

TP(x) =tipo de los campos 

LC(*)  =longitud de los campos 

XC(«) 

YC(«) 

el = coordenadas de las des- 

YD(«) pe 
cripciones 

D$(*)  =descripciones 

H15(*)  = cabecera 

Y (x) 

X(+) 


] = coordenadas de los cam- 
pos 


=abscisas y ordenadas mo- 
dificables para adecuarse 
al sistema de referencia 


=abscisas y ordenadas ori- 
ginales no modificables 


el 


MX = número de valores (absci- 
sas y ordenadas) modifi- 
cables durante la ejecu- 
ción del programa 


SW(7)  =valor original de MX (no 
modificable) 

KV = flag de datos introducidos 
por teclado/datos proce- 
dentes de cinta o de disco 

SW(1) =flag fichero de la Base de 
Datos/otro fichero 

10 = número del primer registro 
útil 

P7 = primer byte útil del registro 

NFS = nombre del fichero 


5d = valores para la lectura del 
fichero seleccionado 

Sw(2) =flag gráfico/histograma 

YM = máximo valor de la absci- 
sa 

XM = máximo valor de la orde- 
nada 





Gráficos de ordenador/Versión Apple Il 


10 
20 
25 
30 


40 


80 


90 


200 
210 
220 
230 
240 
250 


260 


270 


280 
290 


300 
310 


320 


350 


360 
1000 
103 


AA 
REMO GRAFICOS 
REM VERSION DOS 


AE ARAS 

Di$ = CHR$ (4): 

BF$ = CHR$ (7); 

BS <=" “ 

DR$ = "1" 

BA$ = E$ + Bó + B5 + B$: 
Eg ="" 


B$ == Aaa": 
AS$ = B$ + BG + B$ + BS: 


Eh 
MR = 130: 
M3 = 20: 


DIM BS (MR) ,D$(M3), TP (M3) ,LC(M3),X 
C (M3), YC (M3), XD (M3), YD(M3), Y (MR), 
X MA), XA (MR), YA (MA) 

H1$ = "E.G.S. EDICION 
ES FORUM,S.A." 

REM ileso 

REM_ MAIN 

REM 

GOSUB 1000 

GOSUB 2300 

GOSUB 4300 

GOSUB 2000: 

x= 1 

Y = 14: 

GOSUB 4160: 

FRINT "QUIERE VER LA RECTA DE REG 


RESION 7" 
X= 14: 
Y = 16: 


GOSUB 4140: 

PRINT "(S/N)"; 

GET A$: 

IF A$ = "N" THEN 310 

IF AS < > "S" THEN 280 

GOSUB 5000 

GOSUB 2000: 

X= 0: 

Y = 14: 

GOSUB 4160: 

FRINT "OTRO GRAFICO ? (S/N)"; 

GET A$: 

IF A$ = "N" THEN GOSUB 2000: 

PRINT BP$;: 

X= 13: 

Y = 13: 

GOSUB 4160: 

PRINT "FIN PROGRAMA": 

END 

IF AS$< > "S" THEN 320 

FOR 1 = 1 TO MR: 
Y(D =0: 
XD =0 
xD 
Y1(1) 

NEXT_: 

MX = SW(7) 

IF KV = 1 THEN KV =0: 

GOTO 230 

GOTO 240 

RENA A e 

GOSUB 2000: 

Xx =4: 

Y 2 428 

GOSUB 4160: 

FRINT "1) LOS DATOS ESTAN EN EL D 

Isco" 


.oa 


0: 
0: 


1040 


1050 


1070 


1080 


1090 


1100 


1110 


1120 
1130 


1140 
1150 
1160 


1170 


1180 
1190 
1200 


1205 
1210 


1215 


1220 
1230 
1240 


Y = 14: 

GOSUB 4160: 

PRINT "2) LOS DATOS SE ENTRARAN P 
OR VIDEO" 

XT 

Y = 17: 

GOSUB 4140: 

PRINT "CUAL 2"; 

GET A$: 

IFAS< > "1" ANDAS< > "2" 
THEN 1040 

X=X+7: 

GOSUB 4160: 

FRINT A$ 

IF A$ = "2" THEN GOSUB 3500: 

RETURN 

X= 12 

Y = 21: 

GOSUB 4140: 

PRINT "* NOMBRE DEL FICHERO *"3: 
INPUT FF$ 

GOSUB 2000: 

Xx =7 

Y = : 

GOSUB 4140: 

FPRINT "EL FICHERO LO HA GENERADO" 

3 CHR$ (10);" LA <B 

ASE DE DATOS>? (S/N)": 

GET A$ 
IF As 

10 = 2 

Sw (1) 

P7 = 23 

LR = 128: 

GOTO 1140 

IF A$< > "N" THEN 1110 

GOSUB 1500: 

SW(1) = 0 

IF MX > MR THEN GOSUB 4000 

REM_ --- LEE DISCO --- 

GOSUB 2000: 

Xx =9: 

Y = 12: 

GOSUB 4160: 

FRINT "INTRODUCIR DISCO DATOS" 

X= 9 

Y = 20: 

GOSUB 4160: 

PRINT "DESPUES PULSAR UNA TECLA"; 


pe 








"S" THEN GOSUB 2200: 


1: 


GET A$ 

GOSUB 1300 

NFS = FFS: 

GOSUB £000 

IF SW(1) = O THEN 1215 
NR = 1: 

GOSUB 6200: 

MX = VAL (AA$): 
IF MX > MR THEN GOSUB 4000 
A=0:2 

K1 1: 

NR = 10 

GOSUB 5200 

B$(K1) = AMS 

IF SW(3) = 3 AND Ki < MX THEN NR 
= NR + SW(4) - 1 

IF SW(3) = 4 THENA=A+ 1: 
IF A = SW(4) — 1 AND Ki < MX 
THEN NR = NR + d: 

A=0 

Ki = Ki + 1: 








1300 
1310 


1500 


1510 


1525 


1530 


1540 


1560 


1570 


1580 


1585 


1390 


1500 
1610 
1615 


NR = NR + 1: 

IF NR < = MX THEN 1220 
GOSUB 6600: 

SW(7) = MX: 

RETURN 

REM_-— ESPERAR --- 
GOSUB 2000: 

X = 14: 

Y = 15; 


GOSUB 4160: 
FRINT "ESPERAR": 
RETURN 
REM -—- INTROD. FORM. --—— 
GOSUB 2000: 
Xx =0: 
Y = 10: 
GOSUB 4160: 
PRINT "INTRODUCIR EL NUMERO DEL FP 
RIMER REG.UTIL" 
X = 14: 
Y = 14: 
GOSUB 4160: 
INPUT 10: 
IF 10 < 1 THEN 1510 
GOSUB 2000: 
X= 6: 
Y =9: 
GOSUB 4160: 
PRINT "INTRODUCIR EL FORMATO REGI 
STRO." 
X= 3: 
Y = 18: 
GOSUB 41£0: 
PRINT "BYTE PRINCIFIO";: 
INPUT P7: 
IF P7 < 1 THEN 1530 
FOR 1 = 1 TO M3: 
X= 0: 


FOR Y. = 11 TO 23: 

GOSUB 4160: 

PRINT— SPC( 39)5: 
NEXT Y 
X= 131 
y 148 
GOSUB 4140: 
FRINT "CAMPO N. ";1 
Y = 15: 
GOSUB 4160: 
PRINTS 
X= 1: 
Y = 18: 
GOSUB 4160: 
PRINT "TIPO (3=ALF. 1=NUM. -1= 
FIN"; 
INPUT TP(1): 
IF TP(1I) = - 1 THEN 1610 
IF TD < > 1 AND TP(D) 
< > 3 THEN 1580 





Y a 
GOSUB 4160: 

PRINT "LONGITUD";: 

INPUT LC(1): 

IF LC(1) < 1 THEN 1590 
NEXT 
M3 =1T-1 
LR = 0: 

FOR 1 = 1 TO M3: 

LR =1R + LC(1): 
NEXT 
LR = LR +P7-1 





1520 


1630 
2000 
2010 


2020 


2030 


2040 


2050 
2200 
2230 


2240 


2250 


2260 


2270 


2280 
2290 


2560 
2370 


2375 


E 
3 


GOSUB 2000: 

X=0: 

Y = 13: 

GOSUB 4140: 

FRINT "CUANTOS REGISTROS CONTIENE 
EL FICHERO "5: 

INFUT MX: 

MX = MX + 1 - 10 

RETURN 

REN: --- 1NT.--- 

TEXT: 

HOME : 

Xx =0: 

Y =0: a 

GOSUB 41650: 

PRINT H1$ 

Xx = 10: 

you de 

GOSUB 4160: 

PRINT dada nido niconat" 

Y =5: 

GOSUR 4160: 

PRINT "*GRAFICOSK" 
Y =6 

GOSUB 4160: 

PRINT addon" 

RETURN 

REM__-—— LET FORM.--- 

HOME : 

X= 8: 

Y = 10: 

GOSUB 4160: 

PRINT "INTRODUCIR EL DISCO DATOS" 


x= 


Y = 20: 

GOSUB 4160: 

PRINT "DESPUES PULSAR UNA TECLA" 

GET AS 

GOSUB 1300: 

NF$ = "DEFC": 

LR = 26: 

GOSUB 4000 

FOR 1 = 1 TO M3: 
NR = 1: 
GOSUB 6200 
XD(1) = VAL ( MID$ (AA$,1,2)) 
YD(I) = VAL ( MIDS (AA$,3,2)) 
D$(I) = MIDS (AA$,S5,10) 
XC(1) = VAL ( MID$ (AA$, 15,2) 
» 
YC(I) = VAL ( MID$ (AA$,17,2) 
z 
LC(1) = VAL ( MID$ (AA$, 19,2) 
) 
TP(1) = VAL ( MID$ (AA$,21,2) 
) 

NEXT 1: 

GOSUB 6600 

RETURN 

REM -—- ELIGE CAMFO --- 


GOSUB 3200 
IF KV = 1 THEN RETURN 
HOME : 
X= 0: 
Y =02 
GOSUB 4140: 
PRINT H1$ 
IF SW(1) = O THEN 2610 
FOR 1 = 1 TO M3: 
IF D$(I) = LEFT$ (BAS, 10) 
OR D$(1) = "" THEN 2577 
X = XD(1): 
Y = YD(1): 
GOSUB 4150: 
PRINT D$(1) 
NEXT 1 


2590 


2400 


2610 


2620 


2630 


2640 
2650 
2660 


2670 


2680 


2690 


2700 


2710 


2720 


2730 
2740 


2760 
2765 
2770 


2780 


2790 


2793 


2800 
2610 


2820 


2830 


FOR 1 = 1 TO M3: 
1F TP(1) = O THEN 2500 
X = XC(1):2 
Y = YC(1): 
GOSUB 4160: 
PRINT " "sl 
NEXT I: 
GOTO 2630 
x= 1: 
FOR Y = 1 TO M3: 
GOSUB 4140: 
PRINT "CAMPO N. ";Y; TAB( 15); 
"TIPO "¡TP(Y); TAB( 26); "LONGI 
TUD"¿LC(Y): 
NEXT Y 
Xx =0: 
Y = 22: 
GOSUB 4160: 
PRINT  SPC( 39); 
X =0: 
Y = 22: 
GOSUB 4160: 
PRINT "NUMERO CAMPO ”X” (N=PROGRES 
.) "98 
INPUT X$: 
A = VAL (X$) 
IF X$ = "N" THEN 2670 
IFA< 1 0RA > M3 THEN 2620 
IF TP(A) = O OR TP(A) = 3 THEN 26 
20 
x=0: 
Y = 22: 
GOSUB 4160: 
PRINT  SPC( 39); 
Xx =0: 
Y = 22: 
GOSUB 4160: 
PRINT "NUMERO CAMPO "Y? "zz 
INPUT Y$: 
A= VAL (YS): 
IF A< 1 0R A > M3 THEN 2670 
IF TP(A) = 0 OR TP(A) = 3 0R Y$ 
= X$ THEN 2670 
Xx =0: 
Y = 22: 
GOSUB 4160: 
PRINT "COORD.”X”=CAMPO ";X$;"  C 
DORD. ? Y? =CAMPO ";Y$ 
X= 12: 
Y = 23: 
GO0SUB 4160: 
PRINT "SEGURO? (S/N) "; 
GET A$: 
IF A$ = "N" THEN 2500 


IF AS > "S" THEN 2720 
KX = VAL (X$): 
KY = VAL (YS) 
FOR J = 1 TO 2: 
IF J = 2 THEN A = KY: 
GOTO 2770 
IF KX = O THEN 2800 


" 
. 


ona 


GUBIATR 


NEXT J 

FOR 1 = 1 TO MX 
A2$ = MIDS (B$(1),P2,L2): 
Y(I) = VAL (A2$) 
IF KX = 0 THEN X(1) = 1: 
6oTo 2850 


2840 


2860 


2870 
3000 


3050 


3070 


3080 
3090 


3100 
3110 


3120 
3130 


3140 


3500 
3530 


3550 


3570 


3580 


3590 


3600 


3610 


3630 


A1$ = MIDS (B$(1),P1,L1): 
X(1) = VAL (A1$) 
NEXT 1 
IF MX > 200 THEN GOSUB 3000: 
REM —— AGREGACION --—— 


RETURN 

REM —- COMPRESOR --— 

GO0SUB 2000: 

PRINT BF$ 

X=1: 

Y = 12: 

GOSUB 4160: 

PRINT "NUMERO VALORES EJES ”X” (MA 
X 200)"3: 

INPUT Ni: 

IF Ni > 200 OR Ni < 1 THEN 3000 


K 
1 
F 


=2T10Z7+K 

= S1 + X(V): 
S2 = S2 + Y(V): 

=K1+1 


X(I) = S1 / Kl: 

Y(1) = 32 / Kl 
NEXT 2 
FOR J= 1 +4 TC MX: 

X(Y) = 0: 

Y(J) = 0: 
NEXT 
MX = 1: 
RETURN 
REM --- LECT.DATOS VIDEO --- 
KV = 1: 
MX =0: 
GOSUB 2000 
X= 13 
Y = 10: 
GOSUB 4160: 
PRINT "CUANTOS DATOS DESEA INTROD 
.? (MAX 130)" 
X = 13: 
Y = 13: 
GOSUB 4160: 
INPUT MX: 
IF MX > MR OR MX < 2 THEN 3500 
X= 4: 
Y = 15: 
GOSUB 4160: 
PRINT "1) X 
Y =17: 
GOSUB 4160: 
PRINT "2) X 
Do" 
X= 11: 
Y = 20: 
GOSUB 41640: 
PRINT "CUAL 7"; 
GET A$: 
IFAS< > "1" ANDAS < > "2" 
THEN 3400 
FOR I = 1 TO MX: 

Xx =0: 

FOR Y = 10 TO 21: 

GOSUB 4150: 
PRINT— SPC( 39);: 

NEXT Y 

X = 15: 

Y 118 

GOSUB 4160: 

PRINT "DATO N."; RIGHTS (" " 

+ STR$ (1),3) 

Y = 12: 


VALOR PROGRESIVO" 


VALOR DATO DE TECLA 


3660 


3670 


4000 
4030 


4040 


4050 


4060 


4070 
4080 


4090 


4100 


4110 


4120 
4130 


4140 
4150 
4160 
4170 


4500 
4330 


GOSUB 4140: 

PRINT "===> Ml 

IF AS = "1" THEN X(D = 1 
En 


GOTO 3640 
X= 4: 
Y = 16: 


GOSUB 4160: 

PRINT "INTRODUCIR EL VALOR DE 
LA X"z: 

INPUT X(1)5 


IF X(1) < 0 THEN 3650 
X= 4: 
Y = 18: 


GOSUB 4160: 
PRINT "INTRODUCIR EL VALOR DE 
LA. Y"y: 
INPUT Y(1): 
IF Y(D < 0 THEN 34660 
NEXT 1: 
RETURN 
REM_ --- SELECCION --- 
A = MX: 
A = AM: 
A3 INT (A / (A - MR)):2 
A2 INT (46): 
IF <-> INT (A6) THEN A2 
= E: 4 
2000: 


CDD04u As 
a aa 


o 
o 
" 


Xx 
Y = 9: 
GOSUE 4160: 
PRINT "EL NUMERO DE REGISTROS ES 
SUPERIOR "; CHR$ (10);" AL M 
AXIMO ACEPTABLE ("¿MR¿")" 
X= 5 
Y = 15: 
GOSUB 4140: 
FRINT "ELIJA EL CRITERIO DE SELEC 
CION, " 
X=d: 
Y = 171 
GOSUB 4160: 
FRINT "1) DESC.LOS PRIMEROS ";¿A 
- MR;" REGISTROS UTILES" 
Y = 18: 
GOSUB 4140: 
FRINT "2) DESC.LOS ULTIMOS "¿A 
- MR" REGISTROS" 
Y = 19: 
GOSUB 4160: 
FRINT "3) LEER UN REGISTRO CADA " 
¿02 
As = "3": 
IF A3 > 1 THEN Y = 20: 
GOSUB 4140: 
PRINT "4) DESC.UN REGISTRO CADA " 
¿A3: 
AS = "qu 
GET B$: 
IF B$ < "1" OR B$ > A$ THEN 4100 
IF B$ = "1" TREN 10 = 10+A 





IF B$ = "2" THEN MX 
SW(3) = VAL (B$): 
IF SW(3) = 3 THEN SW(4) 
IF SW(3) = 4 THEN SW(4) 
RETURN 

REM_ -—— POSICIONA CURSOR --—— 
HTAB X + 1: 

VTAB Y + 1: 

RETURN 

REM GRAFICI 

G0sUB 2000: 

X= 11: 

Y = 123 

GOSUB 4150: 

PRINT "1) HISTOGRAMA" 


MR 


" 


5 


4540 Y = 152 
GOSUB 41640: 
FPRINT "2) GRAFICO": 
X 
> y: 
GOSUE 4140: 
FRINT "CUAL 2"; 
4350 GET AS: 
IF AS$< > "1" ANDAS< > "2" 
THEN 4550 
4630 IF A$ = "2" THEN SW(2) = 1: 
GOTO 4630 
4540  SW(2) = 0: 
IF MX > 14 THEN Ni = 14: 
GOSUB 1300: 
GOSUB 3050 
4630 XM= X(1):2 
YM = Y(1) 
4660 FOR I = 2 TO MX: 





IF X(1) > XM THEN XM = X(1) 
4670 IF Y(D) > YM THEN YM = Y(1 
4590 NEXT 1 
4690 FOR I = 1 TO MX: 

X(I) = 24 + X(I) Y 180 / xM 
4700 Y(D) = 15 + Y(1) Y 155 / YM: 

Y(1) = 185 - Y(D) 
4710 NEXT 1 
4720 HGR2 : 

HCOLOR= 3 


4730 A= 171; 
HPLOT 23,15 TO 23,A 
47560 D=0: 
IF SW(2) = O THEN D = 10 
4770 HPLOT 23,A TO 205 + D,A 
4780 HPLOT 19,15 TO 22,15 
4790 HPLOT 19,4 + 2 TO 22, 
4840 IF ShH(2) = O THEN GOSUB 4920: 
GOTO 4970 
4850 HPLOT 205,4 + 1 TO 205,A + 3 
4880 FOR 1 = 1 TO MX - 1 
4890 HPLOT X(1),Y(1) TO X(1 + 1),Y1 
214 1) 
4900 NEXT 
4910 GOTO 4970 
4920 REM --- HISTOGRAMA --- 
4930 L=7k 14 / MX 
4740 A = 24: 
FOR 1 = 1 TO MX 
4943 IF Y(I) < O THEN Y(D =0 
4947 IF Y(1) > 191 THEN Y(1) 
= 191 
4950 HPLOT A,170 TO A,Y(D) TOA 
+ L,Y(I) TO A + L,170 
4960 A=A+L+L: 
NEXT : 
RETURN 
4970 GET AS 
4980 TEXT : 
IF SW(2) = 0 THEN GOSUB 5300 
4990 RETURN 


5000 REM --- RECTA REGRESION --- 
5030 MN 
Al = 
82 
A3 
pl = 
5040 FOR I O N: 
E XNUIES 
+ Y1(1): 
2 XI) € VICIOS 
ETAIES 2 
NEXT 1 
ERES 





= O THEN 3230 

(42 + A3- A1 04 /D 

A IN 1 84 - Al x 62) / D: 

IF. INT (A + .49) = O THEN 5250 
X -B/Az 





YO = B 


5100 


s110 
3112 
s115 


5120 


5130 


5140 


5160 
s170 


3200 


5210 


5220 


3250 


5300 


5310 


5320 


5330 


3340 
5350 


3360 


5370 


5390 


GOSUB 2000: 
X =1: 
Y = 10: 


GOSUE 4160: 
PRINT "LA ECUACION DE LA RECTA DE 
REGRESION "; R$ (10)5" ES. Y 







IF B= 0 THEN 
IF B > 0 THEN PRINT "+ "; 

FPRINT INT (B + 0.49); 

x=4: 

Y = 16: 

GOSUB 4160: 

FRINT "LA RECTA CORTA. "; 

X= 4: 

ie 198 

GOSUB 4160: 

FRINT "EL EJE X EN EL FUNTO X="; 
INT (X0 + 0.49); 

Y = 211 

GOSUB 4160: 

FRINT "EL EJE Y EN EL FUNTO Y="; 
INT (YO + 0.49) 


Y = 23: 


Xx =-123 

GOSUB 4160: 

FRINT "PULSAR UNA TECLA"; 

GET AS 

RETURN 

REM_ --—- SALV.VALOR ORIGINAL --- 


FOR I = 1 TO MX: 
X1(1) XD: 
Y1(D) Y(D) 
NEXT 1: 
RETURN 
HOME : 
HTAB S: 
VTAB 13: 
FRINT "ECUACION NO REPRESENTABLE" 


HTAB 10: 

VTAB 20: 

FRINT "PULSAR UNA TECLA ";: 

GET A$: 

RETURN 

REM -——. IMPRESION HISTOGRAMA —- 


GOSUB 2000: 

X = 1: 

VELAS 

GOSUB 4160: 

PRINT "DESEA LA IMPRESION DEL HIS 
TOGRAMA 2" 

X= 15: 

Y = 152 

GOSUB 4160: 

PRINT "(S/N)"; 


= "N" THEN RETURN 
<> "S" THEN 3330 


GOSUB 4160: 

FRINT "POSICIONAR EL PAPEL Y PULS 
AR UNA TECLA"; BP$; 

GET AS 

GOSUB 2000: 

Xx =4: 

Y = 10: 

GOSUB 4160: 

PRINT "INTRODUCIR LA CABECERA DE 
IMPRESION" 

X= 0: 

Y = 13: 

GOSUB 4160: 

INPUT A$ 

FPRINT Di$: 

PRINT D1$;"PRH1": 


FRINT 
PRINT 
FRINT 


Di$: 
CHR$ (9); "80N": 
CHR$ (14);H1$5 CHR$ (18): 


PRINT : 


FRINT 
PRINT 
EZ 


5400 
5405 


5410 


5420 


: 
TAB( (80 — LEN (As)) 


A: 


PRINT : 
PRINT : 
PRINT "1": 
PRINT "1" 
FOR 1 = 1 TO MX 
IF Y(D) > 170 THEN Y(D) 
= 170 
PRINT "1"; MID$ (AS$,1, (170 
- YD) / 3) 
PRINT "1"; MIDS (AS$,1, (170 
- YD) / 3) 
PRINT "1%: 
PRINT "1": 


NEXT 


5440 
5450 


$000 
6030 
6040 


$050 
£060 
6200 
6230 
6240 
62530 
6240 
6400 
$430 
6440 
6450 
6460 
6470 
6600 
6630 
6640 
66530 


6660 


PRINT_ TAB( 52) "MAX="¿YM 

PRINT D1$: 

FRINT D1$;"PRHO": 

PRINT Di$: 

RETURN 

REM XOPENA 

PRINT D1$ 

PRINT D1$; "OPEN"¿NF$ + ",D" 
+ DR$¿",LUGLR + 2 

FRINT D1$ 

RETURN 

REM *GETA 

PRINT D1$ 

PRINT Di$; "READ"¿NFS:".R":NR 
INFUT ARS 

FRINT D1S 

RETURN 

REM XPUTK 

FRINT D1$ 

PRINT Di$; "URITE"¿NFS;".RUGNR 
FRINT_CHR$ (34) + A0$ 

PRINT D1$ 

RETURN 

REM 4CLOSEA 

FRINT D1$ 

FRINT D1$: "CLOSE"¿NFS 
FRINT D1$ 

RETURN 


RELACION DE LAS PRINCIPALES 
VARIABLES - APPLE ll 


MR = máx. número de registros 
aceptables por el fichero 
datos 

M3 = máx. número de campos 
para cada registro 

TP(«) =tipo de los campos 

LC(«*) =longitud de los campos 

XC(«) 

YC(«) 


Dn ] =coordenadas de las des- 
cripciones 
D$(+*)  =descripciones 
= Cabecera 


] =coordenadas de los cam- 
pos 


= abscisas y ordenadas mo- 
dificables para adecuarse 
al sistema de referencia 


=abscisas y ordenadas ori- 


ginales no modificables 

= número de valores (absci- 
sas y ordenadas) modifi- 
cables durante la ejecu- 
ción del programa 


SW(7)  =valor original de MX (no 
modificable) 

KV = flag de datos introducidos 
por teclado/datos proce- 
dentes de cinta o de disco 

SW(1)  =flag de fichero de la Base 
de Datos/otro fichero 

10 = número del primer registro 
útil 

P7 = primer byte útil del registro 

NFS = nombre del fichero 


wal = valores para la lectura del 
SW(4) fichero seleccionado 
Sw(2) =flag gráfico/histograma 
YM = máximo valor abscisa 

XM = máximo valor ordenada 


RELACION DE LAS PRINCIPALES 
VARIABLES - PHILIPS VG 8010 


MR = máx. número de registros 
aceptables por el fichero 
datos 

M3 =máx. número de campos 
para cada registro 

TP(«*)  =tipo de los campos 

LC(*)  =longitud de los campos 

XC(«) 

YC(«) 


Do ] =coordenadas de las des- 
cripciones 

D$(*)  =descripciones 

H15(«)  =cabecera 

V(+) ] 

X(+) 


] =coordenadas de los cam- 
pos 


=abscisas y ordenadas mo- 
dificables para adecuarse 
al sistema de referencia 


xi ] =abscisas y ordenadas ori- 
ginales no modificables 

MX = número de valores (absci- 
sas y ordenadas) modifi- 
cables durante la ejecu- 
ción del programa 


SW(7)  =valor original de MX (no 
modificable) 

KV =flag de datos introducidos 
por teclado/datos proce- 
dentes de cinta o de disco 

SW(1) =flag fichero de la Base de 
Datos/otro fichero 

10 = número del primer registro 
útil 

P7 = primer byte útil del registro 

NFS = nombre del fichero 


MN =valores para la lectura fi- 
chero seleccionado 

Sw(2) =flag gráfico/histograma 

YM = máximo valor abscisa 

XM = máximo valor ordenada 





Gráficos de ordenador/Versión Philips VG 8010 


10 REMESAS 

20 REM GRAFICOS 

23 REM Version MSX 

30 REN ———————== 

SO  MAXFILES=2 

60  SCREENO:COLORIS, 4: CLEAR 8000: DEFINTI,J 

70 KEYOFF:WIDTH40 z 

80 — MR=130:M3=20:DIMB$ (MR), D$(M3),TP(M3),LC (M3), XC(M3) ¿YC (M3), XD (M3), YD (M3) , Y (MR), X (MR), X1 (ME), 
Y1 (MR) 

90  Hi$="E.G.S. Ediciones Forum, S.A." 

100 BP$="D6L32CDER15E" 

200: REM: =-=== 

210 REMMAIN 

220 REN -———— 

230 GOSUB 1000 

240 GOSUB 2500 

250 GOSUB 4500 

260  GOSUB 2000:X=2:Y=14:GOSUB 4160:PRINT"QUIERE VER LA RECTA DE REGRESION ?" 

270  X=14:Y=16:GOSUB 4160:PRINT"( SoN) 

280  A$=INKEYS:IF A$="N" OR A$="n" THEN 310 

290 IF A$<>"s" AND A$<>"S" THEN 280 

300  GOSUB 5000 

310 GOSUB 2000: X=9:Y=14:GOSUB 4150:PRINT"OTRO GRAFICO ? (S o N)" 

320 A$=INKEY$:1F A$="N" OR A$="n"THEN GOSUB2000: FLAYBP$+BP$:LOCATE12, 13:PRINT"FIN PROGRAMA": END 
330 IF A$<>"s" AND A$<>"S" THEN 320 

340 FOR I=1 TO MR:Y(1)=0:X(1)=0: X1(1)=0: Y1 (1)=0:NEXT:MX=SW (7) 

350 IF KV=1 THEN KV=0:GOTO 230 d 

360 GOTO 240 

1000 REM ——————— 

1010 REM LECTURA FICHERO 

1020 REM AAA AAA 

1030 GOSUB 2000: X=1:Y=12:GOSUB 4160:PRINT"1) Los datos estan en la cinta." 

1040 Y=14:GOSUB4150:PRINT"2) Los datos se introduciran por video." 

1050 X=7:Y=17:GOSUB 4160:PRINT"CUAL ? _" 

1060 A$=INKEY$: IF A$<>"1" AND A$<>"2" THEN 1060 

1070 X=X+7:GOSUB 4160:PRINT A$: 

1080 IF A$="2" THEN GOSUB 3500: RETURN 

1090 X=1:Y=21:GOSUB 4160: INPUT"* NOMBRE DEL FICHERO * "¿NFS 

1100 GOSUB 2000:X=7:Y=12:GOSUB 4160:PRINT"El fichero ha sido generado";CHR$(31);" por 1 
a «BASE DE DATOS/ ? (S o N)" . 

1110 A$=INKEYS:IF A$="S" OR A$="s" THEN GOSUB 2200: 10=2:SW(1)=1:P7=2:GOTO 1140 
1120 IF A$<>"n" AND AS<>"N" THEN 1110 

1130 GOSUB 1500:SW(1)=0 

1140 IF MX>MR THEN GOSUB 4000 

1150 REM --- lee cinta --- 

1160 GOSUB 2000:X=7:Y=10:GOSUB 4160:PRINT"Posicionar la cinta DATOS":PLAYBP$ 

1170 X=12:Y=13:GOSUB 4160:PRINT"y apretar PLAY. ":X=10:Y=20:G0SUB4160:PRINT"Despues pulsar una te 
cla" 

1180 IF INKEY$="" THEN 1180 

1190 GOSUB 1300:FOR I=1 TO 300:NEXT 

1200 OPEN"CAS: "+NF$ FORINPUTASH1 

1210 IF SW(1)=1 THEN INPUTHH1,A$:MX=VAL (A$) : IF MX>MR THEN GOSUB 4000:GOTO 1240 ELSE GOTO 1240 
1220 IF IO=1 THEN 1240 

1230 FOR I=i TO 10-1: INPUTH1,A$:NEXT:A$="" 

1240 A=0:K1=1 

1250 INPUTH1,B$(K1) 

1260 IF SW(3)=3 AND Ki<MX THEN FOR I=1 TO SW(4)-1: INPUTH1,AS:NEXT 1:A$="":MX=MX-1+1 
1270 IF SW(3)=4 THEN A=A+1: IF A=SW(4)-1 AND K1<MX THEN INPUTH1,AS$:A$="":A=0: MX=MX-1 
1280 K1=K1+1: IF Ki<=MX THEN 1250 

1290 CLOSER: SW (7) =MX: RETURN 

1300 REM 

1310 REM ESPERAR 

y a 

1330 GOSUB 2000: X=14:Y=15:GOSUB 4160:PRINT"E S P E R A R":RETURN 

1500 REM --- introduccion formato --- 

1510 GOSUB 2000:X=1:Y=10:GOSUB 4160:PRINT"INTRODUCIR NUMERO DEL 1";CHR$(£HF8);" REGISTRO UTIL": 
X=14:Y=14:GOSUB 41650: INPUT 10:1F 10<1 THEN 1510 ES 

1520 GOSUB 2000: X=5:Y=9:GOSUB 4160:PRINT"INTRODUCIR EL FORMATO REGISTRO: " 

1530 X=3:Y=18:GOSUB 4160: INPUT"BYTE principio";P7:1F P7<1 THEN 1530 

1540 FOR I=1 TO M3 

1550 X=0:FOR Y=11 TO 23:GOSUB 4150:PRINTSPACES (39); :NEXT Y 


1560 X=13:Y=14:GOSUB 4160:PRINT"CAMPO n.";1 

1570 Y=15:GOSUB 4160:PRINT" > 

Y=18:GO0SUB4160: INPUT"TIPO (3=a1f. 1i=num. -1=FIN )"¿TP(1):1F TP(1)=-1 THEN 1610 ELSE 1F 
TP(1)<>1 AND TP(I)<>3 THEN 1580 

1590 X=9:Y=20:G0SUB 4160: INPUT"LONGITUD"¿LC(1):1F LC(1)<1 THEN 1590 
1600 NEXT 

1610 M3=1-1 

1620 GOSUB 2000: X=0: Y=13:GOSUB 4160: INPUT"CUANTOS REGISTROS CONTIENE EL FICHERO";MX:MX=MX+1-10 
1630 RETURN 

2000 REM -—- cabecera --—- 

2010 CLS:X=0:Y=0:GOSUB 4160:PRINTH1$ 

2020 X=11:Y=4:GOSUB 4160: PRINT“——————__" 

2030 Y=5:GOSUB 4160:PRINT"| GRAFICOS Il" 

2040 Y=6:GOSUB 4160: PRINT"——————_—_—_—_—_—_—_—_—_—_—— " 

2050 RETURN 

2200. REM. ———— on 

2210 REM lectura FORMATO 

2220 REN ———_—_— 

2230 CLS:LOCATE 3,8:PRINT"Rebobinar la cinta DEFINICIONES":LOCATE11,11:PRINT"y apretar PLAY. ":LO 
CATE8,20:PRINT"Despues pulsar una tecla." 

2240 IF INKEY$="" THEN 2240 

2250 GOSUB 1300 

22650 OPEN"CAS: DEFC"FORINPUTASH1 

2270 FOR I=1 TO M3 

2280 INPUTH1,R$ 

2290 XD(I)=VAL (MIDS(R$,1,2)) 

2300 YD(1)=VAL (MIDS(R$,3,2)) 

2310 D$(1)=MID$(R$,5,10) 

2320 XC(1)=VAL (MID$(R$,15,2)) 

2330 YC(1)=VAL (MIDS (R$, 17,2)) 

2340 LC(1)=VAL (MIDS (R$, 19,2)) 

2350 TP(1I)=VAL (MID$(R$,21,2)) 

2360 NEXT I:CLOSER1 

2370 RETURN 





2530 GOSUB 5200 

2540 IF KV=1 THEN RETURN 

2550 CLS: X=0: Y=0:GOSUB 4160: PRINTH1$ 

2560 IF SW(1)=0 THEN 2610 

2570 FOR I=1 TO M3: X=XD(1):Y=YD(I):GOSUB 4160:PRINT D$(1):NEXT 

2580 FOR I=1 TO M3:IF TP(1)=0 THEN 2600 

2390 X=XC(1):Y=YC(1):GOSUB 4160:FPRINT STR$(1) 

2600 NEXT 1:GOTO 2630 

2610 X=1:FORY=1T0M3: GOSUB4160:PRINT"CAMPO n.";Y;TAB(15) "TIPO "¿TP(Y);TAB(25) "LONGITUD "¿LC(Y):NE 







X=0:Y=22:GOSUB 4160:PRINT SPACES (39) ; 

:GOSUB 4160: INFUT"NUMERO CAMPO ?X*(N=progres.)";X$:A=VAL (X$) 
" OR X$="N" THEN 2670 

2650 IF AX1 OR A>M3 THEN 2620 

2660 IFTP(A)=00RTP (A) =3THEN2620 

2670 X=0:Y=22: G0SUB4160: PRINTSPACES$ (39); 

2680 X=0:Y=22:GOSUB 4160: INPUT"NUMERO CAMPO *Y* ";YS:A=VAL(YS): IF A<1 OR A>M3 THEN 2670 
2690 IFTP(A)=00RTP (A) =30RY$=X$THEN2670 

2700 X=0:Y=22:GOSUB 4160:PRINT"COORD.”X“=CAMPO ";X$;"  COORD.”Y*=CAMPO ";Y$ 
2710 X=12:Y=23:GOSUB 4160:PRINT"SEGURO (S o N)"; 

2720 A$=INKEYS: IF A$="N" OR A$="n" THEN 2500 

2730 IF A$<>"s" AND A$<>"S" THEN 2720 

2740 KX=VAL (X$) : KY=VAL (Y$) 

2750 FORJ=1T02: IFJ=2THENA=KY: 60102770 

2760 IF KX=0 THEN 2800 ELSE A=KX 

2770 P=P7:FOR I=1 TO A 

2780 L=LC(1):P=P+L:NEXTI:P=P-L 

2790 1FJ=1THENP1=P:Li=L ELSEP2=P:L2=L 

2800 NEXT J 

2810 FOR I=1 TO MX 

2820 A2$=MIDS$ (B$(1),P2,L2) :Y(1)=VAL (A2$) 

2830 IFKX=OTHENX (1)=1:G0TO2850 

2840 A1$=MID$(B$(1),P1,L1):X(1)=VAL (A1$) 

2850 NEXT I 





3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
4000 
4010 
4020 
4030 
4040 


IF MX>200 THEN GOSUB 3000:REM -— AGREGACION --- 
RETURN 


GOSUB 2000: PLAYBP$ 

X=1:Y=12:GOSUB 4160: INPUT"NUMERO VALORES EJE *X*(max 200)";N1:IF N1> 200 OR Ni<1 THEN 3000 
K=MX/N1 

I=0:FOR Z=1 TO MX STEP K:I=1+1 

S1=0:82=0:K1=0 

FOR V=Z TO Z+K 






S1=S1+X (V) : S2=52+Y (V) :K1=K1+1 

NEXT Y 

X(1)=S1/K1:Y(1)=52/K1 

NEXT Z 

FOR J=1+1 TO MX:X(J)=0:Y(J)=0:NEXT 
MX=1: RETURN 

REN >————————_—_—_—___ 

REM lectura datos de video 

REM — - 
KV=1:MX=0:GOSUB 2000 


X=1:Y=10:GOSUB 4160:PRINT"Cuantos datos desea introd.? (max 130)" 

X=13: Y=13: GOSUB4160: INPUTMX 

IF MX>130 OR MX<2 THEN 3500 

X=4:Y=15:GOSUB 4160:PRINT"1) X = valor progresivo" 

X=4:Y=17:GOSUB 4160:PRINT"2) X = valor dato de teclado" 

X=11:Y=20:GOSUB 4160:PRINT"CUAL ? _"; 

A$=INKEYS: IF A$<>"1" AND A$<>"2" THEN 3600 

FOR I=1 TO MX:X=0:FOR Y=10 TO 21:GOSUB 4160:PRINT SPACE$(39);:NEXT Y 
X=15:Y=11:GOSUB 4160:PRINT"DATO n."¡RIGHTS(STR$(1),3) 

Y=12:GOSUB 4160:PRINT" —————" 

IF A$="1" THEN X(I)=I-1:GOTO 3460 

X=2:Y=16:GO0SUB 4160: INPUT"introducir el valor de la X "¿X(I):1F X(1)<0 THEN 3650 
X=2:Y=18:GOSUB 4160: INPUT"introducir el valor de la Y "¿Y(1):IF Y(1)<0 THEN 3660 
NEXT I:RETURN 

REM_======== 

REM seleccion 

AA 

A=MX: A6H=0/MR:A3=INT (A/ (A-MR)):1F AGR >INT(AGH) THEN A2=INT(A64)+1 ELSE A2=INT (A6H) 
GOSUB 2000: X=3: Y=9:GOSUB4160:PRINT"EL NUMERO DE REGISTROS ES SUPERIOR"; CHR$(31);" AL MAX 


IMO ACEPTABLE ("¿MR3'")" 


4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4500 
4510 
4520 
4530 
4540 
4550 
4540 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4440 
4650 
4650 
4670 
4480 
4684 
4686 
4690 
4700 
4710 
4720 


X=5: Y=15:GOSUB4160:PRINT"ELIJA EL CRITERIO DE SELECCION: " 
X=1:Y=17:GOSUB 4160:PRINT"1) Descartar los primeros "¡A-MR;" registros utiles" 
Y=18:GOSUB 4160:PRINT"2) Descartar los ultimos ";A-MR; "registros" 
Y=19:GOSUB 4160:PRINT"3) Leer un registro cada "¡A2 

A$="3": 1F A3>1 THENY=20:GOSUB 4160:PRINT"4) Descartar un registro cada "¡A3:A$="4" 
B$=INKEY$: 1F B$<"1" OR B$>A$ THEN 4100 

IF B$="1" THEN 10=10+A-MR:MX=MR 

IF B$="2" THEN MX=MR 

SW (3)=VAL (B$) : IF SW(3)=3 THEN SW(4)=A2 

IF SW(3)=4 THEN SW(4)=A3 

RETURN 

REM --- posiciona cursor --- 

LOCATEX, Y: RETURN 

REM amame 

REM graficos 

REM 

GOSUB 2000: X=11:Y=12:GOSUB 4160:PRINT"1) HISTOGRAMA" 

Y=15:GOSUB 4140:PRINT"2) GRAFICO": X=14:Y=20:GOSUB 4160:PRINT"cual ? _" 
A$=INKEY$: IFA$<>"1"ANDA$<>"2"THENASSO 

GOSUB 2000: X=11:Y=10:GOSUB4160:PRINT"ELIJA EL COLOR: " 
X=15:Y=14:GOSUB 4160:PRINT"1) NEGRO" 

Y=16:GOSUB 41460:PRINT"2) BLANCO" 

Y=18:GOSUB 4160:PRINT"3) ROJO" 

Y=20:GOSUB 4160:PRINT"4) AZUL" 

C$=INKEY$: IFC$<"1"0RC$>"4"ORC$=""THENAG610 

CC=VAL (C$) : IFCC=2THENCC=1SELSEIFCO=3THENCO=6 
IFA$="2"THENSW (2) =1:GOTO4£650 

SW(2)=0: IFMX>14THENN1=14: GOSUB1300: GOSUB3O5O 

XM=X (1) : YM=Y (1) 

FORI=2T0MX: IFX (1) >XMTHENXM=X (1) 

IFY (1) >YMTHENYM=Y (1) 

NEXTI 

IF YM=0 THEN YM=1E-05 

IF XM=0 THEN XM=1E-05 

FOR I=1 TO MX 

X(1)=24+X (1) £180/XM 

Y (1) =15+Y (1) £135/YM: Y (1) =185-Y (1) 

NEXT 






4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5075 
5080 
5085 
5090 
5100 


SCREEN2: COLOR1, 14,5:0LS 

OPEN"GRP: "FOROUTPUTAS$2 

A=171:LINE (23, 15)-(23,A),15 

D=0: IFSW (2) =OTHEND=10 

LINE (23, A)-(205+D,A),15 

LINE (19,15)-(22,15),15 

LINE(19,4+2)-(22,4),15 

PRESET (10,173): PRINTH2, "0"; 

PRESET (0, 6) :PRINTé2, INT (YM+.5)5 
COLOR12:PRESET (90, 1): PRINTR2, "Ediciones Forum,S.A." 
PRESET (30, 184) :PRINTH2, "E.G.S. 11/85": COLOR1 
IF SW(2)=0 THEN GOSUB 4920:GOTO 4970 

LINE (205, 4+1)-(205,4+3),15 

XM$=STR$ (INT (XM+.5)) :L=LEN(XM$) :A=190: 1F L>8 THEN A=A-(L-B) 18 
PRESET(A, 176) :PRINTH2, XM$ 

FOR I=1 TO MX-1 

LINE (X (1D), Y (1))-(((1+1),Y(1+1)),CC 

NEXT: COLOR15, 4 

60704970 

REM -— histograma -— 

L=7x14/MX 

A=24:FOR I=1 TO MX 

LINE (A, Y(1))-(4+L,170),CC,BF 

A=SA+L+L: NEXT: RETURN 

IF INKEYS$="" THEN 4970 

CLOSE42: SCREENO: COLOR1S, 4: IFSW(2)=0 THEN GOSUB 5300 
RETURN 

REN 

REM RECTA DE REGRESION 

RNA —=_—____ AS 

N=MX: A1=0:A2=0: A3=0: A4=0 

FOR I=1 TON 

A1=A1+X1 (1) :42=42+Y1 (1) :A4=04+X1 (1) XY1 (1) :A3=03+X1(1)72 
NEXT 1 

D=NXA3-A1”2: IFD=0THENS152 

B=(AZ4A3-A11A4) /D 

A= (NKAA-A1XA2) /D 

IF AX.1 AND A>-.1 THEN 5152 

X0=-B/A: YO=B 6 

GOSUB 2000: X=0: Y=10:GOSUB4160:PRINT"LA ECUACION DE LA RECTA DE REGRESION";CHR$(31);" ES: 






Y =";:A$=STR$(INT(A)):L=LEN(AS) :AS=STRINGS (L, "4'")+",4":PRINTUSINGAS; As: PRINT" *k X"; 


5110 
5120 


IFB< >OTHENA$=STRS (INT (B)) :L=LEN(A$) :A$="+"+STRINGS (L, "4")+",4":PRINTUSINGAS; B 
X=4:Y=16:GOSUB 4160:PRINT"LA RECTA CORTA: " 





5130 X=4:Y=19:G0SUB 4160:PRINT"EL EJE X EN EL FUNTO X=";:A$=STRINGS (LEN(STRS(INT(XO))) "449,40 
:PRINT USING A$;XO - 


5140 


X=4:Y=21:GOSUB4160:PRINT"EL EJE Y EN EL PUNTO Y=";:A$=STRINGS (LEN(STRS(INT(VO))) "RUDA 


PRINT USING A$;YO 


5150 
5152 


X=12:Y=23:G0SUB4160:PRINT"pulse una tecla";:GOTO 5160 
GOSUB 2000: X=8: Y=12:G0SUB 4160:PRINT"LA ECUACION DE LA RECTA";CHR$(31);" NO 


ES REPRESENTABLE" 


5155 
5160 
5170 
3200 
5210 
5220 
5230 
5240 
5300 
5310 
5320 
5330 
5340 
3350 
5360 
5370 
5380 
5390 


X=12:Y=20:GOSUB 4160:PRINT"Pulse una tecla": PLAYBP$+BP$ 

IF INKEY$="" THEN 5160 

RETURN E p 

SS 

REM SALVA VALORES ORIGINALES 

AA ———— == 

FOR 1=1 TO MX:X1(1)=X(D):Y1(1)=Y(D> 

NEXT: RETURN 

REM -—- IMPRESION HISTOGRAMA --- 

GOSUB 2000: X=1:Y=12:GOSUB 4160:PRINT"SE DESEA LA IMPRESION DEL HISTOGRAMA ?" 
X=13:Y=15:GOSUB 4160:PRINT"(S o N)" 

A$=INKEYS: IF A$="N" OR A$="n" THEN RETURN 

IF A$<>"s" AND A$<>"S" THEN 5330 

X=0:Y=18:GOSUB 4160:PRINT"POSICIONAR EL PAPEL Y PULSAR UNA TECLA": PLAYBP$ 
IF INKEY$="" THEN 5360 a 

GOSUB 2000: X=4:Y=10:GOSUB 4160:PRINT"INTRODUCIR LA CABECERA DE IMPRESION" 
X=0:Y=13:G0SUB 4160: INPUTA$ 

LPRINT CHR$(14) ;H1$;CHR$ (15) :LPRINT:LPRINT:LPRINTTAB ( (80-LEN(4$))/2)3A$:LPRINT:LPRINT:LPRIN. 


TCHR$(27)5CHR$ (66) :LPRINT" I":LPRINT" |" 


5400 


FOR I=1 TO MX 


5405 1F Y(1)>170 THEN Y(1)=170 


5410 


LPRINT" |";STRING$ ((170-Y(1))/3,"B") 


5420 LPRINT" |";STRING$((170-Y(1))/3,"8") x 


5430 
5440 
35450 


LPRINT" |"¿LPRINT" |":¿NEXT 
LPRINT TAB(52);"MAX=";YM 
LPRINT CHR$ (27) ¡CHR$ (65) : RETURN 


El tratamiento de textos 


La posibilidad de preparar textos de manera rápida, 
con facilidad de corrección, es una necesidad cada 
vez más apremiante en cualquier actividad. El uso de 
la máquina de escribir impone muchas limitaciones, 
como la dificultad de las correcciones (la mayoría de 
veces, la sustitución de una sola palabra implica reha- 
cer toda una página), imposibilidad de obtener copias 
al cabo de un tiempo, sustituir o insertar párrafos y mu- 
chas otras. 

Todas estas limitaciones desaparecen utilizando un 
ordenador. Con éste, un texto cualquiera puede me- 


Uso del programa 


El programa para el tratamiento de textos permite utili- 
zar el ordenador como una máquina de escribir con 
todas las posibilidades de corrección, búsqueda y 
sustitución propias de un ordenador. 

La estructura básica del software es muy sencilla: se 
trata de una versión diferente de la data entry, poten- 
ciada o implantada con algunas funciones nuevas. 
Las principales son: 


m Posibilidad de escribir en toda la pantalla y de en- 
viar a impresión con líneas de 80 columnas (la pan- 
talla prevé 40) 

m Memorizaciór en diskette (o cinta) del texto 

=m Fusión de un texto con datos memorizados en otro 
fichero, por ejemplo una lista de direcciones 


Por tanto, la data entry debe modificarse como sigue: 


m Todos los campos son alfanuméricos y de 40 bytes 
de longitud 

m_ No hay que utilizar la subrutina de presentación de 
máscara 


Menú del programa de escritura de textos. Tecleando 
el número correspondiente (1, 2, 3) se activará la 
función deseada. 
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morizarse y, por tanto, variarse como se desee y vol- 
verse a imprimir cada vez que sea necesario. Además, 
la posibilidad de utilizar datos procedentes de otros 
programas permite reunir en una impresión única tex- 
tos distintos, confiriendo a la aplicación una elastici- 
dad de empleo que es absolutamente imposible con 
la máquina de escribir. 

El programa presentado permite transformar el propio 
ordenador en una máquina de escribir con memoria, 
capaz de ofrecer prestaciones análogas a las de dis- 
positivos mucho más caros. 


m Eltexto debe memorizarse en un buffer separado y 
transferido a BS(*) sólo para la parte correspon- 
diente a la pantalla durante el proceso 


Finalmente, a causa de la diferencia de anchura entre 
la pantalla y la impresora, hay que insertar un código 
de control (tecla RETURN) que indique cuándo se pi- 
de un cambio de línea, por lo que la tecla RETURN 
sólo debe utilizarse cuando se quiere que la impresora 
vaya «al principio» y debe incluirse en el buffer (la data 
entry de la primera versión descarta un código así). 
Para poner de manifiesto la presencia del comando 
RETURN (al principio), en algunas versiones aparece 
en la pantalla el signo "<”. Durante las primeras fases 
de utilización del programa deberá prestarse mucha 
atención a este símbolo, porque cuando el sistema lo 
encuentra, realiza la unión de dos líneas de 40 (de 
pantalla) para formar la cadena de impresión de 80. 
También deberá prestarse atención en la escritura de 
líneas con palabras cortadas, porque la función de 
justificación puede producir diferencias con respecto 
al resultado deseado. 


INTRODUCIR EL MUMERO CORRESPONDIENTE 
AL PROGRAMA DESEADO 


C1> GEMERACION ARCHIVOS 


FAA 


EA AA A] 


ELECCION 


Main. El procedimiento Tratamiento de Textos en la 
versión C-64 está compuesto por dos programas 
separados, activados por el módulo cargador. Con el 
primero es posible escribir y grabar los textos en el 
disco de datos. 


Gestión de disco. Esta función está compuesta por 
varias opciones, por lo que existe un menú secundario: 
la voz 2 permite grabar en el disco de datos el texto que 
hay en la memoria; la 3 permite cargar un texto grabado 
anteriormente en el disco; tecleando la 4 se puede 
volver al menú principal (foto anterior). 


Creación del fichero datos. Del menú secundario 
Gestión de disco se ha activado la voz 1 (Creación 
fichero): la primera petición del programa es el nombre 
del fichero datos en el que se grabará el texto. A 
continuación habrá que implantar el número de páginas 
y el de líneas por página deseados. 


Escritura. Se ha activado la voz 2 del menú principal: 
se dispone ahora de la pantalla vídeo para la redacción 
del texto. En esta fase, los comandos disponibles son: 
F1 = salta a la página siguiente 

F2 = salta a la página anterior 

F3 = inserta un carácter 

F4 = borra un carácter 

F5 = inserta una línea 

F6 = borra una línea 

F7 = busca una palabra 

F8 = introduce y vuelve al menú 

Para el desplazamiento del cursor, las teclas son: 


CRSR UP = arriba 
CRSR DOWN = abajo 
CRSRLEFT  = alaizquierda 
CRSRRIGHT = ala derecha 
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Durante la escritura del texto, la última línea de la 
pantalla contiene mensajes útiles para el usuario, como 


la indicación de la página actual y de la función de HE) pu AA 
4 ” — de demostracion e US DOrPam 
| ayuda. Ex AA PS Ur Ys pr ¡grnamac 


A 


Inserción. Esta función permite la inserción de un 
carácter cada vez en la posición en que se encuentra el 
cursor; los caracteres que hay a la derecha de éste se 
desplazan automáticamente. 


Búsqueda de una palabra. Se ha activado la tecla F7 y 
el programa espera la introducción (última línea de la 
parte inferior de la pantalla) de la palabra a identificar 
en el texto que hay en pantalla. 

Una vez hallada la palabra pedida (máx. 15 caracteres), 
el cursor se posicionará encima de ella. 


Inserción de una línea. El cursor está en la línea 6 y se 
activa el comando mediante la tecla F5. 
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Entre las líneas cuatro y seis se ha insertado una nueva 
línea: todo el texto que hay debajo del cursor se 
desplaza hacia abajo y, eventualmente, una parte del 


mismo pasa a la página siguiente. 


En el texto anterior se activará el comando de borrado 
de línea (tecla F6). El cursor está en la línea ocho. 


Con el comando de borrado de línea, el texto se 
traslada una posición hacia arriba y en la memoria se 
borra el texto que había en la línea borrada. 


Programa de impresión. Apenas activado este 
programa, se pide al usuario el nombre del fichero 
datos (máx. 6 caracteres) en el que hay grabado el 


texto a imprimir. 


EEES 


A 


LENTES 


pl 














ETS TE 
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Una vez leído e introducido en memoria el texto a 
imprimir, se pasa al menú principal del programa, que 
permite activar la función deseada entre las indicadas 
en esta foto. 


Justificación. Al activar esta función es necesario 
introducir los parámetros de impresión, o sea: número 
de columnas (40/80), número de líneas por página y si 
se desea la numeración de las páginas o no. 


Impresión. Antes de pasar a la impresión, el programa 
avisa al usuario que debe colocar el papel de acuerdo 
con el modo deseado. La impresión empezará con la 
pulsación de una tecla. 


Impresión con fusión. Esta opción permite la 
impresión de un texto unido a los datos preparados cor 
la Base de Datos; para ello hay que leer del 
correspondiente disco los parámetros de la máscara 
creada con el programa de archivado (Base de Datos). 
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La lógica del programa 


Abajo se ha representado el diagrama general. Las 
funciones realizadas por las subrutinas son: 


"= Gestión del disco: permite la memorización de un 
documento y su carga en la memoria 

m Escritura: activa la data entry para la introducción 
del texto 

"= Impresión: permite la impresión del documento que 
hay en la memoria 


En la misma figura se ha representado la estructura de 
fichero utilizada que se prevé en un registro de 80 by- 
tes, o sea una línea de impresión. Además, el progra- 
ma permite una estructuración por página de longitud, 
en número de líneas, parametrizada. Con la activación 
del programa, la primera función a realizar es la crea- 
cióan del fichero que deberá contener el documento 
(mediante la subrutina 2000). Si no, el texto introducido 
en sucesión se perderá. Sin embargo, el programa 
puede utilizarse sin fichero. 


Gestión disco 
2000 


y 


- | 


ESTRUCTURA FICHERO 
QUE CONTIENE EL TEXTO 


1 2 3 
directorio línea 1 línea 2 


A 


Al cargar el registro 1, en la memoria se tiene: 
MX = bytes 1, 2 y 3 = último byte escrito 
PG = bytes 4 y 5 = líneas por página 


Para determinar el registro de principio de una página, el puntero es 


(suponiendo la página N): RO = 2 + PG x(N — 1) 





3 bytes contienen el número del último byte escrito 
2 bytes contienen el número de líneas por página 


En la fase de creación se pide la longitud máxima del 
texto en número de páginas, que no es necesario res- 
ponder de manera exacta, sino que basta un valor 
aproximado por exceso. 

Terminada esta fase, puede activarse la introducción 
del texto, o sea la subrutina de escritura (3000) y des- 
pués la de impresión (4000). Finalmente, si se desea 
memorizar el documento, hay que llamar nuevamente 
la gestión de disco. 

Para terminar, hay que tener en cuenta que en el dia- 
grama no se ha indicado la subrutina de inicialización 
que, en cambio, está en los listados y que algunas 
subrutinas utilizadas a continuación son modificacio- 
nes de las que ya se han presentado, por lo que no se 
da su descripción. 


Gestión disco (subrutina 2000). Las funciones pre- 
vistas en esta subrutina son: 


1 / Creación del fichero 


Formato registro = 40 bytes 


n 
línea n + 1 
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2 / Memorización de un documento 
3 / Transferencia a la memoria de un documento me- 
morizado 


Las tres funciones están incluidas en un menú secun- 
dario que se presenta activando la 2000. 

Como se ha indicado anteriormente, la cantidad de 
datos (o sea de las líneas de texto) que hay en la me- 
moria es superior a las 20 indicadas en la pantalla, por 
lo que hay que utilizar dos buffers: 


B$(20) = buffer vídeo, que contiene las líneas (de ví- 
deo) presentadas y permite la modificación 
(o la introducción) vía la data entry 

B1$(*) = buffer total, contiene todo el documento 


Por tanto, las operaciones de l/O con el disco deben 
gestionar el segundo buffer (B1$(+x)). 

En la página siguiente se ha representado el diagrama 
de la subrutina 2000: como puede verse, está consti- 
tuida esencialmente por un menú secundario que, en 
función de la opción elegida, activa las funciones: 


" Generación fichero 
m Escritura fichero 
m Lectura fichero 


Obsérvese que, en esta versión, el formato de registro 
es fijo a 80 caracteres, lo que significa que si algunas 
líneas no son completas, ocupan el mismo espacio (en 
el disco y en la memoria) que las enteras. 

Una alternativa podría ser la de utilizar ficheros se- 
cuenciales en los que cada registro ocupa un número 
de bytes igual a los caracteres contenidos. En este 
caso se tendría un ahorro de espacio pero, en cambio, 
los datos no serían direccionables, impidiendo así to- 
da implantación. 

Como se ha indicado, si se desea la memorización 
sucesiva de los datos, hay que activar en primer lugar 
la generación del fichero. Para esta función, el progra- 
ma pide al usuario la introducción de: 


1 / Nombre del fichero, en la variable de cadena NM$ 
2 / Número de páginas previstas en NP 
3 / Líneas por página (en impresión) en la variable PG 


En la versión presentada, la matriz B1$(*), que deberá 
contener el texto, se inicializa durante la fase de gene- 
ración del fichero y, por tanto, dicha función debe acti- 
varse forzosamente, incluso si no se prevé la memori- 
zación de los datos. Sin embargo, es posible la extrac- 
ción de esta subrutina para no ligar las dos funciones: 
generación del fichero e inicialización del buffer. En el 
listado propuesto se ha preferido esta solución porque 
se presta más fácilmente a implantaciones. 

Además, como ya se ha indicado, tanto el fichero co- 
mo la ocupación de memoria (es decir, la inicialización 
de B1$(x)) están estructurados para el valor N, igual al 
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máximo previsto. Esto implica una mayor ocupación 
de memoria que lo estrictamente necesario, pero ofre- 
ce una mayor elasticidad porque contempla la utiliza- 
ción de ficheros secuenciales, solución que siempre 
puede adoptarse con pocas modificaciones. 
Finalmente, obsérvese que el diagnóstico obtenido 
comprobando que el número de registros no supere el 
valor 998 sólo es formal y no asegura que la memoria 
disponible pueda realmente contenerlos todos; efecti- 
vamente, 998 registros de 40 bytes de longitud ocu- 
pan 998 x 40 = 39920 bytes totales, valor muy supe- 
rior a la capacidad de la memoria. 

Para obtener un diagnóstico más exacto hay que mo- 
dificar el valor límite en base a la capacidad de memo- 
ria de la máquina utilizada. 

Un método aproximado, pero sin embargo válido, con- 
siste en comprobar cuántos bytes quedan después de 
haber cargado et programa, calculándo con este valor 
el número máximo de registros (dado por el cociente 
bytes libres/40). Por ejemplo, con una máquina de 32 
Kbytes de memoria central, una vez descontados 
aproximadamente 18 Kbytes de programa, quedan 14 
Kbytes disponibles para datos, lo que equivale a 
14000/40 = 175 registros. 

Para aumentar este valor, además de la obvia solución 
de expandir la memoria, se puede trabajar de modo 
segmentado cargando y procesando grupos de 175 
registros cada vez. Esta solución puede obtenerse 
bien modificando la lógica del programa, bien mucho 
más sencillamente utilizando varios ficheros para el 
mismo tema. 

Esta ultima solución, prácticamente apta sólo para las 
versiones disco, no requiere ninguna modificación del 
programa, puesto que sólo implica un aumento de las 
instrucciones que debe proporcionar el usuario. 


Escritura del documento. Las funciones realizadas 
por esta subrutina son: 


m Selección de la página vídeo a procesar 

m Transferencia de los datos correspondientes a la 
página seleccionada por el buffer total al de trabajo 
gestioríado por la data entry 

m Desplazamiento de la página para los siguientes 
procesados 


Antes de entrar en el detalle de cómo se realizan las 
funciones indicadas es necesario analizar las modifi- 
caciones aportadas a la data entry para hacerla com- 
patible con esta aplicación. Las implantaciones nece- 
sarias son: 


"m Nueva lógica de gestión de la tecla RETURN 
"m Introducción de otras dos teclas funcionales (des- 
plazamiento) 


Y la eliminación de las partes que ya no son necesa- 
rias como: 


SUBRUTINA GESTION DISCO 


En la variable NM$ 


— Generación 

- Escritura fichero 
— Lectura fichero 
— Retorno al menú 


Generación 1 Lectura 
Escritura 


NP = Número de páginas 
PG = Líneas/página 


En 4) 
e e Escribe MX =N y | 
€ > PG en el registro 1 
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ESCRITURA DE UN DOCUMENTO 


Si el nombre del fiche; El programa puede empezar 
(NMS) está en el proceso en un punto 
blanco, se pone cualquiera del texto 


PG = 20 
[ Y Puntero al área de trabajo 


El valor está en NP O en B1$(+) 


Coloca los datos en el área 
de trabajo (B$(*)) tomándolos 
del buffer total (B15(w)) 


La data entry es modificada para 
tener en cuenta algunos 
comandos nuevos 


Los cálculos NP = NP — 1 y NP = NP + 1 Este diagrama sólo es válido a nivel de 
están subordinados al control principio y faltan algunas funciones, como 
sobre NP. En el primer caso debe ser por ejemplo la salida: para la estructura 


NP > = 2 y, en el segundo, exacta es necesario consultar los listados 
NP < el máximo previsto 


Transfiere desde el área de trabajo 
a la memoria total 


Según la opción elegida en la 
data entry se activa una 
de las tres nuevas funciones 


Desplaza hacia delante í 1 Desplaza hacia atrás 
Otras funciones 
"e [E 


A Ds 
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m Subrutina de cálculo y su gestión 

m Partes correspondientes a la gestión de los campos 
numéricos 

m Alineados 


La tecla RETURN, como se ha indicado, debe gestio- 
narse de manera completamente diferente, puesto 
que ya no debe llamar la subrutina de alineado, sino 
que debe estar incluida en el buffer para controlar el 
retorno al principio del carro de la impresora. 

En esta gestión de la data entry, los desplazamientos 
de una línea a otra pierden su significado de «termina- 
dores de campos» y, por tanto, deben efectuarse úni- 
camente con las teclas de desplazamiento. Y vicever- 
sa, la tecla RETURN adquiere el significado de coman- 
do para la impresora. En cambio, en lo referente a los 
desplazamientos, se trata de una función completa- 
mente nueva, que consiste en presentar partes ante- 
cedentes o siguientes a la que está en gestión. Es de- 
cir, se trata de activar dos teclas funcionales dedica- 
das a la transferencia entre el buffer B1$(+*) y el de 
trabajo. Esta transferencia se realiza en grupos de 20 
líneas: así se tiene la subdivisión de todo el documen- 
to en páginas «lógicas» de 20 líneas cada una (este 
valor, sin embargo, no tiene nada que ver con el núme- 
ro de líneas por página durante la impresión). 

Las funciones y las modificaciones descritas consti- 
tuyen los principales elementos de esta nueva versión 
de la data entry, pero no incluyen todas las necesida- 
des que pueden producirse durante la preparación de 
un texto: por tanto, hay que prever un mayor número 
de teclas funcionales, cada una dedicada a una activi- 
dad específica, indicadas en el diagrama con la línea 
de trazos (otras funciones). 


Como el desarrollo de nuevas funciones requiere la 
correspondiente presencia de subrutinas, a continua- 
ción se relacionan todas las previstas en principio, 
mientras que las activadas realmente dependen de la 
capacidad de memoria de la máquina utilizada; ade- 
más, el enfoque anterior, basado en la modificación de 
la data entry indicada, no es conveniente porque las 
modificaciones necesarias hacen más farragosa su 
adaptación que su nueva escritura completa. En reali- 
dad, en los listados se ha seguido este segundo pro- 
cedimiento y todo lo que se ha indicado anteriormente 
debe considerarse sólo como una posibilidad. 

Las funciones a incluir en la data entry son: 


m Comando de transferencia al buffer total (equivalen- 
te al anterior comando de introducción) 
Desplazamiento hacia adelante 

Desplazamiento hacia atrás 

Inserción de un carácter 

Borrado de un carácter 

Inserción de una línea 

Borrado de una línea 

Búsqueda de una palabra 

Ayuda 


Además de las teclas normales de desplazamiento del 
cursor (ver la tabla:de abajo), cuyos códigos se-me- 
morizan por separado para una mayor claridad, TF(10) 
contiene los códigos correspondientes a las 9 teclas 
funcionales (más una disponible), mientras que una 
nueva matriz, TS(4), se dedica a la realización de los 
desplazamientos. 

En la página siguiente se ha representado el diagrama 
de esta nueva versión de la data entry. 


POSICIONES Y CODIGOS UTILIZADOS EN LA DATA ENTRY 


Desplazamientos 


C-64 
Código 


145 
17 
29 

157 


Función 


Posición 
en TF(10) 


Función 


CTRL + W 
CTRL + Z 
CTRL + S 
CTRL + A 


Desplaza arriba 
Desplaza abajo 
Desplaza a derecha 
Desplaza a izquierda 


Apple 


Código Tecla Función 


CTRL + E | Vuelve a menú 
+ Introducción 
CTRL + P | Página adelante 
CTRL + O | Página atrás 
CTRL +1 | Inserta 

1 carácter 
CTRL + D | Borra 
1 carácter 
Inserta 1 línea 
Borra 1 línea 
Busca palabra 


CTRL + L 
CTRL + K 
CTRL +R 
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DATA ENTRY 


En llamada: 

B$(+)= líneas en curso de proceso 

TF(*) = códigos de las teclas funcionales 
TS(*)= códigos de las teclas de desplazamiento 


Búsqueda en el contenido 
de TF(x) 


En salida: 

BS5(+) actualización 

F1  : flag de la tecla funcional activado 
KX- : flag de comando ON/OFF 


Línea = L 
Columna = C 


El desplazamiento es reconocido 
mediante la comparación con el 
contenido de TS(4) 


Los códigos que producen la salida 
de la rutina son de 1 a 4 
(ver texto) 


(*) Los dos bloques resumen respectivamente un bucle sobre TS(4) y TF(10), con índice KS (la variable KS se emplea en las subrutinas 6400 y 6600) ó 


Data entry. Arriba se ha representado el diagrama de 
principio. A nivel sintético es análogo al de la data 
entry precedente y las diferencias residen en las tres 
subrutinas de gestión (6200, 6400 y 6600). 

En particular, se han eliminado los controles sobre el 
tipo de los campos y sobre las longitudes, puesto que 
todos los campos son alfanuméricos y de 40 caracte- 
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res de longitud. Se han implantado algunas funciones, 
como la inserción y el borrado de una línea. 
Obsérvese que la salida de la subrutina sólo se realiza 
con una de las 3 primeras teclas funcionales, o sea: 


1 / Introducción: el contenido de la pantalla se transfie- 
re al buffer total 


2 / Desplazamiento hacia ade- 
lante: el contenido de la 
pantalla es sustituido por las 
20 líneas que siguen 


3 / Desplazamiento hacia atrás: 
el contenido de la pantalla 
es sustituido por las 20 lí- 
neas precedentes. Los da- 
tos ofrecidos por la primera 
pantalla se pierden 


4 / Salida: el programa vuelve 
al menú principal. 


La lógica asociada a estas te- 
clas implica la necesidad de 
confirmar cada introducción o 
modificación (tecla 1) antes de 
continuar; por tanto, antes de 
activar una cualquiera de las 
funciones, hay que acordarse 
de confirmar la introducción 
mediante la tecla 1. 


Transferencia al buffer. El dia- 
grama es similar al utilizado en 
la data entry anterior y sólo se 
presenta como indicación. 

La diferencia con respecto al 
otro consiste en el empleo de 
una longitud de buffer no, para- 
metrizada, sino implantada por 
programa igual a 40 caracte- 
res, que representa la anchura 
estándar de la pantalla en este 
tipo de máquina. 

Para adecuar el programa en 
los casos en que se han previs- 
to 80 columnas, basta con sus- 
tituir este valor con el que hay 
en los listados (40). 


Comprobación del posicio- 
nado. Con cada introducción o 
desplazamiento del cursor hay 
que calcular los nuevos valores 
de L,C y X,Y. Para evitar la re- 
petición en varios puntos del 
programa de las mismas ins- 
trucciones, se ha previsto esta 
subrutina que, dada la posición 
actual, calcula la de la futura te- 
niendo en cuenta los posicio- 
nados al principio de la línea si 
la actual está completa y al 
principio de la pantalla si la lí- 
nea es la última. 


TRANSFERENCIA AL BUFFER 


En llamada: 

A$ = carácter a insertar 

L = contador de línea (identifica el buffer B$(+) 
C  = contador de carácter 

X,Y = posición del cursor 


En las coordenadas X, Y 


Del buffer B$(R) 
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COMPROBACION DEL POSICIONADO 


En llamada: 

= posición actual correspondiente al buffer 

= posición actual correspondiente a la pantalla 
XO, YO = coordenadas de principio pantalla útil 


DESPLAZAMIENTO DEL CURSOR 


KS = contiene el puntero al tipo de desplazamiento deseado, o sea la posición en la que 


En llamada: 


se ha encontrado el código de la tecla en la matriz TS(+) 


A 





Obsérvese que las comprobaciones sobre L y C in- 
cluyen el caso ">” para que la subrutina pueda utili- 
zarse también para la gestión de las teclas de despla- 
zamiento: efectivamente, para esta última función hay 
que incrementar la línea o la columna (en base al des- 
plazamiento que se haya solicitado), y en este caso el 
valor de salida puede ser superior al máximo que se ha 
previsto. 
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Gestión comandos. En la página siguiente se ha re- 
presentado el diagrama de principio de la subrutina 
de gestión comandos. La función es simplemente un 
test sobre el valor del indicador KS, con la consiguien- 
te llamada a la subrutina de desarrollo. 

En la data entry, el flag KS se implanta a un valor corre- 
lacionado con una DATA a la función prevista, por lo 
que la subrutina no necesita control. 


Obsérvese que los valores de KS de 1 a 4 son gestio- 
nados en otro punto del programa y, por tanto, el pri- 
mer nivel de selección genera un RETURN para valo- 
res inferiores a 4 de KS. 

Como en el proceso de la subrutina se entra con KS a 
partir del valor 5, para utilizar de manera sencilla la 
instrucción ON KS GOSUB..., hay que indicar antes el 
contenido de la variable a valores que empiezan por 1. 
Esta traslación se obtiene restando el valor 4 de KS y 
utilizando esta nueva variable (N) en la instrucción de 
salto. 


Inserción de un carácter. El diagrama de la página 
siguiente muestra con detalle el desarrollo de la fun- 
ción de inserción de un carácter. 

La lógica seguida consiste en activar el flag KX para 
que la función permanezca inactiva hasta un comando 
sucesivo, por lo que KX tiene funciones de «interrup- 
tor» que, una vez activado, genera un bucle sobre la 
rutina 3000 y permite, sin otros comandos, la introduc- 
ción de una serie de caracteres. Para desactivar el 
flag, y por tanto terminar la fase de inserción, hay que 
pulsar la misma tecla empleada para su activación. 


Por este motivo (funcionamiento como «interruptor»), 
el flag KX se ha indicado como de tipo ON/OFF en la 
subrutina 6000. 

La funcionalidad descrita implica una repetición de al- 
gunas líneas de programa; efectivamente, en la 3000 
hay que insertar parte de la lógica utilizada en la 3400 
(transferencia al buffer). 

Como alternativa se podría parametrizar la 3400, redu- 
ciendo así el número de instrucciones duplicadas, 
aunque generando una lógica menos sencilla de se- 
guir. Además, hay que tener en cuenta que en la 3000 
se utiliza la línea reservada al coloquio. 

El número de líneas útiles en la pantalla es superior a 
las 20 previstas para la introducción. Esta diferencia 
se debe a la necesidad de conservar espacio disponi- 
ble para los coloquios con el usuario y en esta subruti- 
na se ha mostrado un primer ejemplo. Utilizando una 
función (en el caso específico de la inserción de un 
carácter) con lógica de tipo ON/OFF, si no aparece un 
mensaje que ponga de manifiesto la activación, el 
usuario no puede recordar si la función aún es operati- 
va o se ha «apagado». Por este motivo se han previsto 
algunas líneas en la parte inferior de la pantalla en la 


GESTION COMANDOS 


En llamada: 


KS = indica el comando pedido. Su valor se determina con un bucle en la 


subrutina 6000 


Los códigos de 1 a 4 no 
necesitan procesos en 
esta rutina 


La subrutina 8800, correspondiente a la tecla funcional n. 10, no se activa y permanece disponible para implantaciones 
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INSERCION DE UN CARACTER 


En llamada: 
L,C = punteros al buffer y al carácter 
X,Y = coordenadas del cursor 


La primera línea de la pantalla se 
reserva para los mensajes 


Avisa que se ha activado la 
función de inserción 


Vuelve el cursor a la 
posición de introducción 





En A1$ (ver subrutina 6200) 


Del buffer B$(R) 
En A25 


Deja a A2$ en la longitud 
justa borrando el último 
carácter 


: EN y 00) d+ 
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Fin inserción 


que aparecen las distintas leyendas. Estas líneas tam- 
bién se utilizan en otras subrutinas para la introducción 
de algunos parámetros. 

En lo referente a la función opuesta, borrado de un 
carácter, la subrutina se desarrolla con una lógica aná- 
loga. Naturalmente, no se activa el flag ON/OFF y, por 
tanto, no se emite ningún mensaje. El diagrama co- 
rrespondiente se ha representado en la página si- 
guiente. 


Introducción y borrado de una línea. Las funciones 
de introducción siguen una misma lógica de base: el 
borrado, o sea la eliminación de la línea L en la que 
está posicionado el cursor, y la inserción de una línea 
vacía encima de la posición del cursor, se realizan en 
el buffer B1$(x*) y al final se vuelve a realizar un ciclo 
completo de la subrutina de escritura. 

Es decir, la variación se realiza primero en el buffer 
total (B1$(+*)) y después se presenta en la pantalla 
(buffer B$(*)) como una gestión normal. 

Como las funciones se realizan con un desplazamien- 
to en el interior del buffer B1$(x), la rutina que sigue a 
los dos comandos es única, por lo que en la 3000 se 
implanta el flag KK que será utilizado en la 3400. 
Esta última subrutina, cuyo diagrama se muestra en la 
página 2551, utiliza el flag KK para activar la función 
requerida de la siguiente manera: 


m Si el flag vale 1 (inserción), el contenido de B1$(x) 
se traslada hacia abajo para dejar una línea vacía 
en la posición indicada por el cursor 

"m Enel caso opuesto (KK = 2, borrado), el contenido 
de B1$(x) se traslada hacia arriba para recubrir la 
línea a borrar con el contenido de la siguiente. 





En cada caso, la subrutina prevé el desplazamiento 
hasta la última línea prevista (dimensión de B1$(x), 
memorizada en la variable MX). Esto puede comportar 
pérdidas de tiempo si el buffer no está lleno. Para eli- 
minar este inconveniente puede memorizarse el núme- 
ro más alto de línea escrita y emplear a continuación 
este valor como límite del bucle. Por motivos de senci- 
llez exclusivamente, en esta versión se ha conservado 
la lógica descrita. 


Búsqueda de una palabra. La subrutina de búsqueda 
de una palabra en el texto lleva a cabo las siguientes 
funciones: 

"= Introducción en W$ (este nombre de variable sólo 
se considera como ejemplo, por lo que no se en- 
cuentra en los listados) de la palabra a buscar 

= Búsqueda, en el texto que hay en pantalla, compro- 
bando la coincidencia entre el contenido de B$(x) y 
WS$ 


En caso de solución positiva, el cursor se detiene al 
principio de la palabra (del texto) y, en caso contrario, 
se posiciona en el primer carácter de la primera línea. 
En ambos casos, la subrutina vuelve al bloque de in- 
troducción para ulteriores comandos. 

En esta versión, la búsqueda se explica sólo en el ám- 
bito del contenido de la pantalla; para explorar todo el 
texto es necesario que el usuario active el desplaza- 
miento. 

Sin embargo, la activación de esta función es muy 
sencilla, puesto que basta con modificar el contenido 
de NS en caso de solución negativa. De esta manera 
se obtendrá la presentación de las líneas sucesivas (o 
precedentes). 
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Subrutina de impresión. En la versión disco, como se 
verá más adelante, hay implantada la fusión del fichero 
texto, creado con el programa de Tratamiento de tex- 
tos, con un fichero datos (generado por la Base de 
Datos). 

Esta implantación ocupa un importante espacio de 
memoria, por lo que las funciones de impresión están 
agrupadas en un programa específico, cargado por el 
menú principal. Y viceversa, en la versión ilustrada en 
las páginas 2556 a 2558, para la cual no se activa la 
fusión, la impresión es una subrutina. 

El diagrama representado para la impresión con fusión 
es idéntico a ésta, excepto un bloque inicial necesario 
para la carga de los datos en memoria. Efectivamente, 
estructurando la función como un programa separado, 
en el momento de su carga, los datos que hay en la 
memoria se pierden, por lo que al principio del progra- 
ma hay que insertar una subrutina de lectura del disco 
análoga a la 2000 usada en el programa de escritura. 
Además, en el diagrama no se ha representado el co- 


n llamada: 
C = punteros al buffer y al carácter a borrar 
Y = coordenadas del cursor 


E 
R 
Xx 


' 
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loquio inicial que permite introducir algunos de los pa- 
rámetros que se han utilizado en la impresión; los pre- 
vistos son: 


m Número de columnas en impresión. La longitud má- 
xima de una línea es de 80 caracteres (valor asumi- 
do por omisión por el programa). Con este flag pue- 
de variarse a 40 columnas, la justificación se efec- 
túa con cada petición de impresión para adecuar el 
texto al número de columnas pevisto 

m Número de líneas previstas para cada página, nor- 
malmente 20. En el programa de impresión se ha 
previsto un contador que, al llegar a este valor, pro- 
duce el salto de página y, si el flag correspondiente 
es activo, la impresión de la numeración 

m Flag que activa la impresión de la numeración de 
las páginas 

u Mensaje de espera, con la correspondiente confir- 
mación por parte del operador de inicio de impre- 
sión. Esta operación permite poner en línea la 


BORRADO DE UN CARACTER 


Los dos bloques son análogos 
a los de las 7100 y 6200 


Inserta un b al final para 
dejar la longitud sin variación 





impresora o modificar la posi- 
ción del papel antes de empe- 
zar la impresión. En esta fase 
es posible variar el tipo de im- 
presión mediante los códigos 
de control de la impresora em- 
pleada: bastará insertar los có- 
digos necesarios en las líneas 
de programa utilizadas para ini- 
cializar el periférico. 


Justificación. La función de 
justificación se utiliza para ob- 
tener el final de cada línea ali- 
neado con los otros. 

En la fase de escritura de un 
documento se utiliza siempre el 
mismo espaciado entre las dis- 
tintas palabras que componen 
una línea y, debido a su dife- 
rente longitud, el espacio no 
utilizado al final de la línea es 
distinto en cada una. 

Esta diferencia produce unas 
irregularidades en el margen 
derecho que le confieren un 
aspecto antiestético. 

Para eliminar este inconvenien- 
te es necesario repartir el espa- 
cio no utilizado entre las distin- 
tas palabras que constituyen la 
línea. De esta manera se tiene 
una distancia distinta entre una 
y otra palabra, pero todas las 
líneas terminan en el mismo 
punto. 

La subrutina de justificación 
realiza la función descrita con 
la siguiente lógica: 


1 / Inicialmente se busca la pri- 
mera posición no deseada, 
que indica el final de la línea 

2/La diferencia entre la longi- 
tud prevista (80/40 caracte- 
res) y la posición así deter- 
minada proporciona el nú- 
mero de espacios a distri- 
buir entre las palabras que 
constituyen la línea. Natural- 
mente, este método ofrece 
un resultado válido sólo a 
condición de que todas las 
líneas estén llenas de ma- 
nera similar 

3 / Determinado el número de 
espacios a ubicar, se llama 
la subrutina 4200, que mo- 
difica la línea insertando un 


INSERCION Y BORRADO DE UNA LINEA 


R  =línea en la que se producirá la inserción 

X,Y = coordenadas del cursor 

NS = primera línea de B1$(«*) colocada en el área de trabajo (B$(+)) 
KK = flag de Inserción/Borrado (1 o 2) 

MX = número máximo de líneas, o sea la dimensión de B1$(+) 


Borrado 


> Inserción 
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espacio entre cada par de 
palabras. Esta inserción ter- 
mina al terminarse los espa- 
cios a ubicar, o sea cuando 
la línea alcanza la longitud 
prevista. 

4 /Las funciones ilustradas se 
repiten, con un bucle, para 
todas las líneas previstas 


El caso en que la línea termina 
con el símbolo ">” constituye 
una excepción de la lógica ex- 
puesta. En este caso, el siste- 
ma no realiza la justificación 
porque presupone que el 
usuario desea regresar al prin- 
cipio. 


Justificación de una línea. La 
subrutina anterior (justificación) 
extrae cada vez una línea del 
texto, determina el número de 
espacios a distribuir y llama, 
para esta función, la subrutina 
de justificación de una línea. 
La primera función que realiza 
esta última subrutina es la ex- 
tracción del buffer actual (o sea 
de la línea) de la parte escrita 
(A25). Siguen el cálculo del nú- 
mero de espacios a ubicar y el 
bucle de ubicación. El bucle 
consiste en una extracción, 
partiendo del final, de cada ca- 
rácter (y por tanto de la cadena 
A2$, cuyo nombre sólo es indi- 
cativo) y en la comprobación 
de que este carácter sea adya- 
cente a un espacio. En caso de 
solución positiva, el carácter 
extraído constituye el principio 
de una palabra y, por tanto, de- 
termina la posición de inser- 
ción de uno de los espacios a 
ubicar. 

Para realizar este bucle es ne- 
cesario utilizar un indicador de 
tipo ON/OFF. Efectivamente, si 
el carácter extraído es un es- 
pacio, hay que comprobar si 
va precedido de otro espacio. 
En este caso no identifica una 
palabra, sino un doble espa- 
ciado entre dos palabras y, por 
tanto, no debe incrementar el 
contador. Es decir, el bucle an- 
terior sirve para contar las pa- 
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BUSQUEDA DE UNA PALABRA EN EL TEXTO VIDEO 


Principio bucle en el buffer 


A$ es una variable intermedia 
utilizada para extraer las palabras 
del buffer 


N es la longitud de W$ 


La subrutina es en versión generalizada para ser aplicada al C-64 y al Apple. 
No aprovecha plenamente el Basic MSX, que podría ejecutar la misma función con 


una sola instrucción 





SUBRUTINA DE IMPRESION 


Esta voz sólo es activa 
en la versión disco 


TS. - + 


Los parámetros de impresión previstos en esta versión son: 
PC$ = código de tipo impresión (compactada, expandida, etc.). El valor depende de la 


impresora utilizada (*) 


N1  = columna principio impresión (N1 = 1) (*) 


NN número de columnas (NN = 80) 
RR líneas por página (LL = 40) 


FN  = flag de numeración (FN = 0, OFF) 


(*) No activos en esta versión 


El detalle de la 4500 (introducción parámetros impresión) no se muestra, 


porque se reduce a un simple coloquio 


La impresión se presenta como si fuese una subrutina, mientras que en la versión disco 
indicada, es un programa propiamente dicho. Naturalmente, debe estar incluida la lectura 


del fichero datos (en B1$(+), 





labras que componen una línea. Esta función se reali- 
za contando los espacios de separación entre una pa- 
labra y otra, pero como dos espacios sucesivos no de- 
ben considerarse como dos separaciones, se justifica 
la necesidad de un flag que indique, al encontrar un 
espacio, si va precedido de un carácter o de otro es- 
pacio. 

En el primer caso puede incrementarse el contador 
porque ya se ha conseguido la identificación del byte 
de final de una palabra (o mejor, de principio, puesto 
que el bucle procede de derecha a izquierda); en el 
segundo se trata de un doble espacio y el contador no 
debe incrementarse. 

Al final del bucle, la variable M contiene el número de 
«Separaciones» halladas y la matriz P(40), la columna 
en la que hay cada separación. 

El número total de espacios a ubicar está en la varia- 
ble N1: por tanto, el número de espacios a añadir en 
cada separación viene dado por el cociente N1/M, 
mientras que la posición en la que deben ubicarse es- 
tos espacios se indica en la matriz P(40). Por tanto, 
sólo queda por activar un bucle que sume un número 


de espacios igual a N1/M en cada una de las posicio- 
nes indicadas en P(e). 


Impresión. La subrutina de impresión debe prever 
dos funciones particulares: 


m Emisión del código de control de la impresora 
m Formación de la línea de 80 caracteres 


La primera función puede emplearse para implantar 
un determinado tipo de impresión. Naturalmente, para 
activarla hay que conocer los códigos de la impresora 
utilizada; además, para muchos tipos de impresión, no 
basta la emisión de un solo código, puesto que un co- 
mando se obtiene con una secuencia. En el diagrama 
se ha indicado la función a título de ejemplo más que 
para su empleo real, quedando para el usuario las ne- 
cesarias implantaciones. 

La parte «útil» de la rutina está constituida por un bu- 
cle que extrae una línea del buffer B1$(x), examina su 
contenido carácter por carácter y, en base al resultado 
del texto, imprime o no. 
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Esta lógica particular es consecuencia de la necesi- 
dad de sumar dos líneas de vídeo para obtener una 
línea de impresión. 

La función, de por sí bastante sencilla, comporta una 
complicación en la fase de impresión. Efectivamente, 
al sumar dos líneas de vídeo para obtener una de im- 
presión, puede suceder que se unan en una sola dos 
líneas que estén separadas en realidad por un retorno 
al principio. Para la formación del buffer B1$(x), esta 
eventualidad no constituye ninguna complicación, 
mientras que en la impresión debe tenerse en cuenta, 
porque hay que ordenar el retorno del carro y el salto 
de línea. 

Como se ha indicado en la ilustración de la data entry 
para el Tratamiento de textos, el buffer debe contener 
también los eventuales códigos RETURN, que indican 
una vuelta al principio. Por tanto, en la fase de impre- 
sión hay que analizar el contenido de la línea carácter 
por carácter y, al encontrar el código RETURN, activar 


la función CR + CF (retorno de carro y salto de línea). 
Además, hay que tener en cuenta que, en muchos ca- 
sos, la impresora tiene un control hardware sobre el 
número de líneas que ordena un salto de página auto- 
mático. En estos casos, al imprimir un texto con más 
líneas de las previstas por el salto de página se tiene 
su interrupción de acuerdo con cada final de página 
automático; por tanto, hay que excluir la función. 
Esta exclusión podrá obtenerse, según la impresora, 
bien vía hardware, implantando determinados inte- 
rruptores en el interior del periférico, bien software, en- 
viando un código de comparación particular. En am- 
bos casos se trata de funciones estrechamente liga- 
das a la máquina y para las cuales no es posible pro- 
porcionar indicaciones generalizadas. 


Impresión con fusión. En muchas aplicaciones, la im- 
presión final también necesita el empleo de datos que 
no aparecen en el texto. 


JUSTIFICACION 
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Principio bucle sobre las líneas 


Hallado último carácter escrito 


La línea no puede ser 
variada porque contiene un 
código de terminación 





JUSTIFICACION DE UNA LINEA 


En llamada: 
L = línea actual (L = 11 en el bucle de la 4100) 
K = última posición escrita (K = J1 en el bucle sobre los caracteres de la 4100) 


Espacios finales a recuperar 


Cuenta las palabras identificando 
los espacios 


En la matriz P(40) hay memorizada 
la posición de cada 
espacio 
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P(I) indica la posición de un 
grupo de espacios entre dos palabras 


Prepara una cadena de espacios 


Suma la cadena de manera que 
los “N” espacios se distribuyan 
entre todas las palabras que 
hay en el texto 


Antes de salir, la rutina debe 
poner a cero P(80) 


En llamada: 


Todos los parámetros, ver subrutina 4000 


Emisión del código de 
control para implantar el 
formato de impresión 


Implanta el contador de líneas 
y de páginas 
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El valor de NN es inicialmente 
igual a 40 y puede ser variado 
por el usuario, con la 
justificación o con una 


selección en el menú principal 
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FORMA EL BUFFER 





Por ejemplo, en la preparación de cartas es muy fre- 
cuente el caso en el que el texto no varía, mientras que 
hay que modificar la cabecera. 

En estos casos es útil disponer de una función que 
permita unir datos procedentes de un fichero con los 
que pertenecen al texto; el diagrama de la página si- 
guiente muestra los distintos puntos a desarrollar para 
obtener una lógica de este tipo. 

Como el empleo principal de esta función es la unión 
de direcciones en un solo texto, la subrutina está es- 
tructurada de manera que utilice datos introducidos 
con la Base de Datos, que es el programa más ade- 
cuado para gestionar un listín de direcciones. Activan- 
do esta subrutina se pide el nombre del fichero datos 
del que se tomarán las direcciones (u otros tipos de 
datos, según el significado en la aplicación particular). 
Siguen las funciones de carga del formato de registro, 
realizadas de manera análoga a las previstas en la Ba- 
se de Datos, y la selección de los campos a imprimir. 
La salida se obtiene con un bucle de lectura de cada 
registro del fichero datos, impresión de su contenido 
(o de la parte seleccionada) e impresión del texto con- 
tenido en la memoria. Como se ha indicado, la aplica- 
ción más característica de esta función es la confec- 
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ción de cartas circulares: el texto de la carta se prepa- 
ra con el programa de Tratamiento de textos, mientras 
que la cabecera (dirección) puede tomarse de un fi- 
chero de direcciones, de una nómina, etc. Esta solu- 
ción evita tener que preparar un gran número de tex- 
tos diferentes sólo porque las cabeceras son distintas 
y muestra la lógica a seguir en el desarrollo de una 
determinada implantación, generalmente llamada 
«función de textos». 

En las activaciones que requieren preparaciones de 
textos con una frecuencia que justifique el empleo de 
una máquina, normalmente parte del texto es recu- 
rrente. Por ejemplo, las cartas comerciales empiezan y 
terminan siempre con frases protocolarias que pueden 
repetirse; en la redacción de informes se tiene una si- 
tuación análoga, etc. Para evitar la introducción de las 
partes repetitivas en cada documento, puede adoptar- 
se un método análogo al anterior, o sea memorizar la 
parte recurrente en un fichero y unirla al texto en la 
fase de impresión. Naturalmente, hay que hacer algu- 
nas modificaciones, como por ejemplo la eliminación 
de la elección de los campos. Efectivamente, en este 
caso, el fichero no es generado por la Base de Datos y 
el registro no está subdividido en campos. 


IMPRESION CON FUSION 


PAS 





En la variable NM$ 


En el registro 1 hay memorizado el 
máximo número de registros 
escritos. El valor se transfiere 

a la variable M1 


El usuario debe indicar cuáles 
son los campos a imprimir 


Para el detalle de las funciones de carga de los ficheros NM$ véase el programa Base de Datos 


La subrutina no está prevista en la versión cinta 
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Tratamiento de textos. El programa en la versión DOS 
tiene un menú principal en el que se pide la función 

deseada. Por ejemplo, tecleando el carácter 3 se activa ooo Qu A 
la carga del programa de impresión. 





Gestión disco. Se ha activado la voz 1 del menú 
principal: el menú secundario presentado en esta foto 
permite realizar las operaciones indicadas. La 
Generación es esencial para la escritura de un nuevo 
texto (con esta operación se implantan los parámetros 
de escritura). 


EDILES ENRUN 1 


ARA 
ESCRITURA FICHERO 
LECTURA FICHERO 
RETORNO AL MENU 


Escritura. La fase de escritura permite crear un texto o 
modificar uno ya existente en el disco datos; en este ETT NES ER Ea 
caso, antes de pasar a la escritura, hay que haber E 

cargado el fichero datos (voz 3 del menú anterior). En 
escritura, los comandos disponibles son: 

CTRL +1 = inserción carácter 

CTRL + D = borrado carácter 

CTRL +P = página adelante 

CTRL + O = página atrás 

CTRL + L = inserción línea 

CTRL + K = borrado línea 

CTRL + R = búsqueda palabra 

CTRL + E = introducción y retorno al menú. 





Impresión. Para el programa de impresión, en primer 
lugar hay que leer los datos (o sea el texto a imprimir) 
del disco que los contiene; para ello, el usuario debe EEES LORO 
introducir el nombre del fichero en el que hay el texto. 
A continuación se presentará un menú secundario que 
contiene las siguientes funciones: 

— Justificación 

— Definición de los parámetros de impresión 

— Impresión 

— Impresión con fusión. 
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Tratamiento de textos. También la versión MSX, que 
adopta como soporte la cinta magnética, prevé un 
menú principal. La voz 2 predispone la pantalla vídeo 
para la escritura del texto, durante la cual se dispone de 
los siguientes comandos: 

F3 = inserción carácter 

F4 = borrado carácter 

FS = inserción línea 

F6 = borrado línea 

F7 = página atrás 

F8 = página adelante 

F9 = búsqueda palabra 

F1 = ayuda 

F2 = introducción y retorno al menú. 


Gestión cinta. El menú secundario mostrado en la foto 
indica las funciones útiles para crear, grabar o leer el 
fichero datos en la (o de la) cinta. La Generación (voz 1) 
se utiliza únicamente para implantar los parámetros con 
el número de páginas y el número de líneas por página. 


Impresión. Al seleccionar la voz 3 del menú principal se 
activa el procedimiento de carga del programa 
correspondiente. El usuario debe proceder de acuerdo 
con las instrucciones proporcionadas por la máquina. 


Una vez cargado el programa de impresión y tecleado 
el RUN deberá leerse el fichero datos que contiene el 
texto a imprimir. Sólo después de esta operación se 
presentará el menú de esta foto. 








o 


Forum S.A. 


Posicionar la cinta PROGRAMAS 


FLAY 


despues pulsar una tecla 


A 


IMPRESION 


ON CON FUSION 


AS 
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Tratamiento de textos/Versión Commodore 64 
Tratamiento de textos 


REIIARARARARRCARRRA ARA 


















EFEMA 4 

RENA TRATAMIENTO DE TEXTOS + 
Ab SERSION L-54 4 
2 RENA + 


0D FENLARARRIRARRA SARRIA A RARA 

20 PUKESIZO0. DAS FURES 222106 POREGSO, BM: PRINTLHARSC19 2 CHEGA 
4 PERINT" 7" FEINT "¿MUA TEODUCAE EL HUMERO. LURRESFUNDIENTE” 
' PRINTUBRRBRADIAIDIAL PROGRAMA DESEADO" 

FEINT" ABAD AL GENERACION HECHIVI" 

> PRINTER AN IMPRESION" 

40 PRINTS ABABRIADDS ALE LN DE TAREA! 

0 INELITO AI ELECCION 

E 4 e THEN 4 

THEN PRINT"I":EMD 

Jelena "ESPERAR LA CARGA. FUE FAN0JE 
ru 1, 20 
LESS 1 FURE4A PUED UE PUE 
110 PRINT"PUREAS, => FUKLESH.=:PUKE4DO6. E: LOAD"CH 
120 TL Les 

¿Ub FPRINT"SEPUKE 
¿lO FRINT"FURE4S 
16000 POKELSZ. 10 
161% DATHA1S. 13.145. 190.123,22,05 
1000 REM: 

151 REN EH = LENERACION 

12 REM ' 

5 REN] SP. = IMPRESION 
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PUES, 5 LUAD"LHESO 4 
HDN" POR Eb N:NEXT 


be 














« 


LO FEIIAARAARIARA RA RARA AAA 
13 


REM IERTAMIENTO LE IESLTOS + 
PEOR ARAIO ARA RR A ARA 
HO+$=" 01" -FOKE cu, 13: FOKE 
ai DIM HZ E ceo A 1 





¿dl PORE db 
Mi=40-NP=1 :FG=20 


GO PESILEE:FUE I=1 TO 2:FEAD HScL: HNEXTI:FOR.L=1. TO S:BEAD, TEL) :NEST, 1 


55 GO0sSuE 1204 
eb 1F LE== THEL ERILTi FUKE £346.14 END 





116 LUTO Su 

Sub REM 4 CABECERA + 

009 PRINTHOS: CHEF 14 0 13: 7=2  COSUEL 1000: PEINT" 45 INS 
510 Y=+1 > COSUB1 1004: PRINT AAA 

Sia Ets" " CEAS=ES+EI+EG+ES-EF(0)="------ > $ tal 
526 Flé=""oFOR [=1 TO 40-FI$=F13+CHP4035):NEXT 1 

IC RETURN 





1205 PRINTHOS: Bg4=" " PAS=ES+BI+EI+ES: ESCD)=EAS 
1306 Pus="":FOR J=1 TO 40: ElIS=EUS+CHE$(32):NEST_J 

1307 PRINTCHR$C14):FPOKE 53280,19 

1310 FRINTAIZA ada. CDICIONES URL: 0.%." 


1312 PRINT"MA SENU 
CO MAFAT. TEXTOS - GENERACION 





1314 PRINT"MZA 
1316 FRINT"MM 
1320 FL=1:N» 
R J=1 To NW:READ VOSCJ NEXT J 
c=10 
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26: GOSUB1 1000: FRINT 
GET 0F3:1F 0P3<5"" THEM 1 
COSUE1 1060: PRINTCHARSC1235 
2LFOR T=1_TO 30:MEXT_T 

L0SUEl 100 TER 172) 
FOR _T=1 TO 30:NEx 
CAER GA 


LUAL ?":X=10 








: Ey 
+= HE HEEE? 





3) 
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ELLE. 
LS CAUCHO 


Hi 


3 





eL POKEAO E POREIO, 3 PUKE4E + E PUEESO, 3 PULEd a, 2" 
E EE DES 


a Hy= 


y Pá=1+1:C0: 
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FOR T=1 TO 30:NEXT T 
COSUB1 1065: PRINTLHE3 1390) 
R 0 36-NEXT T 


WALCOPZA O IF UF<=B OR UPON THEN 1327 
2¿=10-:Y=20: COSUE1 1000: POKE192, 1: PRINTOP 
FOR T=1 TO 150M:NEXT T 


3 RETURN 


REM 444 CESTION DISCO 44k 
FEM RESTOFE SUI DATI 
RESTORE:FOR J=1 TO 20:READ X$:NEXT J 


"JESTIÓN —DISCO":GOSUB Sub 





IH4 


a OGOSUB 1325 


IF OP=4 THEN RETURN 


20 INS$="1 RAT. DE sE ¿TO" : COSUB 300: 4=1:=13: 60S5UE11000 
l PRINTS HE rt 


=139:Y=13 "GUSUEL 1089: INPUT L4 . 
PLgmun FOR KL=1 TO 6:CK$=MID$(C$,KL,1):1F CK$="-" THEN Ck$=CHR$(32) 


2 FLS=FLS+CKS: NEXT KL:C$=FL+ 


NF$=C3:1F NF3="" THEN 2035 
EUSUE 6000: 1F OF<>1 THEN 2100 
CUSUB 40040 


5 COSUE 500 


4=9:=13:605UE11000: INPUT" NUMERO PAGINAS M5 HP 
IF NF<=0 THEN 2050 
4=9:1=15:C05UB11000: INPUT" LINEAS FOR PAGINA MPG 


7 IF FG<=0 THEN 2050 


=PGHNP 


5 A a ee OS 409 LINEAS DE TEXTO” :GOT 
BD IF OP=2 THEN 2170 


GOSUESUO: A$="CREACION": IF 0P=2 THEN A$="GRABACION" 


Q FOR I=1 TO Mx 


IF 0FP=1 THEN P13$C1>=FI$ 
4=1:v=23:COSUB11900:PRINT"N" AS," LINEAR 4,1 
CUSUB 45040 


O AAS$=E1301):PA=1+1:GOSUE 56200 :PRINTAZ, ARS 


HEXT 1 

INPUTR1. AD. <$,CD, DD 

IF OUP<51 THEN 2170 

IF Mx<10 THEN A1$="00"+RICHTSCSTRSC11x2:1>:GUTO 2150 


2 IF Mx<106 THEN A A TÍ 2150 
3 A1SSRICHTSCSTRÍCI%) 


IF PC<1O THEN her aire IONTECSTRECAO). 1>:GUTO 2155 
A23$=RICHTICSTRS(PG). 
AASALTIROSILEFTSCEIS, 25) PR=1 :GOSUB E200:PRINTHZ. HAS 





Y CUSUE £308:G0TO ¿uBS 


COSUESOV : GUSUE 4000 
Ph=1 :GUSUEGS00: INPUTRZ. HAS 
MA=YALCLEFTSCARS, 37) 


0 PE=SYALCMIDSCARS, 4,275 


FOR I=1 TO Mx 
UB 6200: INFUTRZ, RAS 
A=1:Y=22:COSUB11000:PRINT"ELECTURA LINEA -4";51 
El$c1)=ARF:COSUP 46600: NEXT 1 
a 6968:GUTO 2685 
RENO o o o 
L=LENCZ3):1F L=0 THEN RETURN 

TO L:C=ASCCMIDICZE, 1,197: 1F 00032 THEN 11=1:G0T0 2520 
NET 1:23="": RETURN 











8 FOR I=L TO 15TEP-1:C=ASC(MIDECZS. 1.13: 1F C<ó32 THEN 12=I:G0T0 25230 
1 


HE: 
Eb=12-11+1: 23210324. 11.K0) :FETUEN 





3 REH 
2210 DISLEFT+CPUS, 0 


x1=0:Y1=WT:5 
REM 444 ESCRITURA dd 
FRINTHOS; CHE+¿14)-FUEE 5 





3U£11100:PRINTDS; RETURN 





XC=B:L0=4B:CC=1:FOR I=1 “10 20: BF 01) =E1SCT+NS) SRC: W=1+2: GUSUE1 1608 
2 IF E+íl;="" THEH ES 






FRINTESCI55 :HEXT I-> 24 GOSUEL166A:PRINT"ETRI4+Y 0 AYUNAS": 

















3505 
2606 
2607 
2602 
36035 
2610 
3s12 


0 IF Ab=25 AND CC<50 THEN B$(CC>=C$:COSUB 13960:G0TO 35 


ha 


¿PRIHT"PACIHA ":H5/20+1;:FOKE 646: 
y 


2133 THEN 2129 
40 

20:17 NS> 
16 








A 
5-20: 1F 
410 
23 THEN 2200 
1515) 


Hoc9 THEM NS=0 


C5STEP 1 


I 
0TO 3019 


EOSUB 2 
x1=g0" vi=24 :505UB11100:PRINTLEFTSCEUS, 2905 110 %=3 0 GUS 
MEA a FUR F=1 To s 







ñ 

IF FEERC5IGI 01 THEN POKEE46, 1 
¿FOR JL=1 TO 20:FOR LR=1 TO 40-L:X=LR-1 
HIDECEFCILO ERA 





+1 C=p 0 CA=IC=1:CO=JL:CI=PF(LO) E 


a 





T=24 :COSUEZS00 


5U/=24 :G0SU211000:PRINT"MCTRL+4 : AWUDA"; 


2 4=1:w=24 :C0S5UE11000:PRINT"PAGINA "¡NS/20+1;:FUKE 646.1 


IF Esi THEN E=0:C0TO 3030 

COTO 3016 

REIS PLÍCIBS 

FUR AE TO N5+20:P1$C1)=E3C1-H5) NEXT 1 
RETURN 

REM --- ENTRADA CAMPO --- 
CSS) ¡AAC 110: 101 

COSUB1 1000: PINTOS :UL=«C+L0-1:CA=8 

ASAC+IL=1:1F ACAC [HEN 4=XC 

IF X>UL THEN x=UL 

NV R=1 THEN R=0:A0=17: 1C=0:4C=0: X=: BS¿CC>=C$: RETURN 
IF CASLO THEN A6=17:E$(CC>=C$: RETURN 

, COSUBLIO00:KK=1C:1F 1C=0 THEN kk=1 

CET A$:1F A$<O"" THEN 23580 
COSUE11000:PRINT" aw"; :GOSUB 11006: PRINTMIDECCS, KK, 105 
FOR T=1 TO S50:NEXxT T:GOTO 3565 

AD=ASCCAS) 

IF AB=24 OR AB=252 OR R6=253 OR AM=2594 THEN 2565 
IF AB=145 OR AB=17 THEN B4(CC>=C+:RETURN 

FOR K9=3 TO 3:IF RB=TF(K3) THEN BS$cCC=C3: RETURN 
NEXT K3 


S IF AB=134 AND CC<20 THEN GOSUB 37408:G0TO 2568 


IF AB=128 AND CC<OM THEN COSUB 32056:G0TO 2560 


IF A0=13 AND CC<>6 THEN A6=66:R=1:G0TO 3619 
IF A0<212 THEN 3610 
C$=M1D3(C4, 1, 10>:4=XC+I0-1 

A$=411D+$cPUS, 1.L9-IC+1> 

GOSUE11000:PRINTAS; ¿RETURN 

IF A6<+157 THEH 3620 

IF IC=6 AND CC=8 THEN 2617 


SUE 11000:PRINT" "ALL 1-4 


10 


UVB3561:E=1:COTO; 


3 
0 
ño 

5 


32 





Y IO O 0 
A e o a a 







LID O O a O 









o 


YUU A 
SESe£nn mu 


3 
1 
3 
3 
Zas 
3 
3 
3 


= 
NA 
O ua 


IF IC=9 (Ne es UA £=40: 10=39: RETURN 





E e THEN 4=%C 


9 THEN 3624 

3 THEN IC=IC+1:CA=CA+1 3 =>+1 
IF ICALO THEN IC=L6 

GOTO 3568 












4 CHS=CHRICAD) 
5 PRINT"MIU CHE; :CS=MIDECOS, 1, 1010 4CHFHMIDECOS, 1C+1, 39): ICSIC+L SALE CASCA+ 
6 IF CA=>LO THEN CA=LO 
7 GOTÚ 2568 
DORE == o 
O REM * INSERCION K 
S IF CA=LO THEN R0=0: RETURN 
CET AS: IF Aé="" THEN 2715 
RO=ASCCUAS) 
IFAB=14G0RA0=130RA0=1240RA0=14S0RAG=17THENCI=CS+HMIDICEAS, 1,40-L): RETURN 
4 IF A6=13605 SORRO=157 STHENCE=CT+AMIDECERS. 1, 40-L) RETURN 
6 CH$=CHR$CAB):CF=MIDSCCS, 1, CA ACHE+AMIDECCS- CAF LO-CA-1) L=LENCCE) 
S AS=MIDECBAS: 1,LO-L) :AF=CI+AS aC: y =YC 5 GOSUE1 1000: PRINTAS:X=X%+1 0 IC=IC+1:CA= 
1 
4 IF CACLO THEN 2715 
S AB=17:RETURN 
O REM * PORRADO 4 
5 1F CASLO THEN A0=0: RETURN 
a CS=MIDS(CE, 1, IC-1+HMIDICCS, 10+1,LO-IC=10 
5 LSLENC(CG) AG=MIDECPAS, 1 LOL AF=CG+AS:=XC > Y=YC : GOSUB1 1000: PRINTAS 


Y CI=AS RETURN 
REM + APERTURA FICHERO Y COMANDOS * 


6082 OPEN 1.2.15 
6005 IF 0P=1 THEN OPENZ,2,3,"B:"NFF+", Lo "+CHR$(41):G0TO 6612 
5010 OPEN 2,2,2,NF$ 


2 INFUTH 1, AD.<D+,CD, DD 


£014 RETURN 


EEE REM -- 
95 RI=PA 
se16 IF R1>256 THEN 


E AL REGISTRO *PA -- 











2=INTCPA/2536):Ri=R1-2364R2 
3 PRINTR1:"F"CHR$C3+9E7CHRSCRIICHRECRZICHRECIO 


65820 FETURN 
6300 REM -- CIERFA LOS CANALES -- 
63505 ULUSE1 :CLUSEZ 


16 RETURN 


10008 REM 4% DATOS 44 
10001 REM : 
10005 REM -==--- CADENAS AYUDA --=--- 


100Br DATA" —1 
10095 DATA" — 
10610 DATA" —= 
10011 DATA" -4 
10012 DATA" -£ 
19013 DATA" — 
10015 DATA" -—3 
i601s DATA" CESE UF. DOWN. RIGHT. LEFT = 

10020 DATA124, 122, 140.132.137,125.139, 


PAGINA ADELANTE " 

PAGINA ATRAS * 

INSERCION CARACTER " 
EURRADO CARACTER “," 5 = 
PORRADO LINEA " 

PUSCA PALABRA * 

RETORNO AL MENU + INTRODUCCION " 

mo e aqalnai EL CURSOR " 


ma 


INSERCIÓN LINEAR * 


uu»... nu 


16022 REM : 


10023 REM 


Loco YOCI DEL MENU ---=--- 
22 DATA"IESTION DISCO", “SCRITURA", "IN DE TAREA" 


10020 FEM : 
10035 REM ----- MENU CEST. DISCO ---- 


19049 DATA"FEACION FICHERO", "” 


ITURA FICHERO" 





14695 DATA*LECTURA FICHERO". “-ETORNO AL MENLI" 
190392 REM 
11001 REI * IMPRIMIR EN + 








F:FUKE 214.7 


TATA 
POKE 214.1 


a ñ=EU+ : FOKE 192,8 
B FOR i=1 Tu 258:FORT=11U160 -HEXTT :CHE=M1D%0HE3.+ 1,15: 1FCH3=""THENCHé=" * 










4+CHS$:4=1 0 'Y=24 : COSUE 11000: PRINTAS: 


A$= RICHTI<A+ 
? CEI v3: IF * THEH 12110 
44 





USUEL1GOb: PRINT"PPACIHA ";H520+1; 
Y=24 :GUSUE1 1900: FRINT""CTRL+Y : AYUDAN"; :FOKE1S2,0- RETURN 
REM CONTROLES UNIDAD DISCU 


40982 1F AD=w4 UR HD=50 THEM FETURN 
40045 1F AD=26 THEN ES="DISCO PROTEGIDO. IMPUSIELE ESCRIPIR" 


49010 1F 





=72 THEN E$= 





ESPACIO EN DISCO ACOTADO 


40w12 1F AD=74 THEN Es="UNIDAD DÍSCO NO EN LINEAR. COMPRUEAR" 
40014 IF Ab="w THEN E3="CANAL HO DISPUNIELE” 

40015 1F Ab=62 AND OP<O3 THEN RETURN 

4uueb 1F Ab=s2 AND DP=2 THEN F+="FICHEROU DATOS "+NF$+" WO ESTA" 
qunes LS ES): SP 2=(48-LU)/2 


Jun? 


ano 


10070 FOR P=1 TO SF: K$=K3+CHR$(22): NEXT P 





=0 0 Y=24 -COSUEL 1000: PRINTES+ES+KG; PUKE 152.0:WAIT 192,1 
Un 


430000 REM LUNTROL CARACTERES HU HCEFTAELES FUR LA UNIDAD 
4305 LSSLENCB1I$CI)) 
45014 FOR d=i TU L 


45012 LF4= HIDSCBIEC), u.15 


4ou2n IF CF4= 
49025 IF LF4= 


UHR3044) THEN CFS=CHR3 02503. 
HR$(58) THEN CF$=CHR$(254) 






45024 1F LFS=LHRSC5902 THEN CFF=LHR4C 2025 

494259 IF CFS=CHRF(325 THEN CF$=CHR4(25) 

45040 Pl3cI0=LEFTECE1ECIO lA ARICHTS ELECO LS 
43039 NEXT bl 

439060 RETURN 

46900 REM SUSTITUCIÓN CARACTERES NU ACEPTADOS POR LA UNIDAD 





S403 LS5=LENCE1SCI) 


45410 FOR li=i TO LS 
4eu12 CF$=MID$CE1SC1. WM, 1> 
45020 1F LFS=CHR$C253) THEN CFI=CHR$L440 





IF CFF=LHR$(259) THEN CFI=CHRGCOZ 
20 1F CF$=CHR$C252) THEN LF$=CHR$(39) 





40235 IF CFS=CAR$(35) THEN CF$=CHR3 (22) 
45048 BIS CI)=LEFTSCELSCIO Mel DACFEARICHTSCE1SCID) ¿LS=0) 


45033 NEXT d 
45060 RETURN 


Impresión 


19 
12 


15 
17 


300 PRINTHOS:4=0:Y=9: COSUB11000:PRINT"" .1 


eS O CIMA 

* 
REN + IMPRESION TEXTOS C-64 , 
REM 


* 
REM RRA RARA A 
M3=482:H0$="07":PRINTCHR$1 19) 
5F9="":FORK=1T020: SP$=5PG+LHRIC22) : NEXTK 
DIMBSC100), DICZ0), DC 20) WDC 207,40 (200, OC 200 LOC20) + TPO207, E1$112),F (205 
HN=20:RR=40:NF=1 , 
COSUBSOO:=1 :Y=12:COSUB11000: INPUT" VOMERE DEL FICHEROM";NF$ 
IFNF$=""ORNF$=CHR$(13)THEN40 
IF LENCNFS$>6 THEN 40 
AT THEN FORK=1T06-LENCNFS> ¿NFS=NF3+CHR$C22) NEXT K 
USUB 70 
GOSUP 1300:1F OPZ=5S THENPRINTHOS : PRINTCHR$(142) :POKE646., 14:END 
ON UPZ CUSUB 4100,4304, 4700. 5000 
GOTU 55 
DICIONES -—URUM., v.t." 
X=12:w=+2:G605UB11000:PRINT"=MPRESION TEXTOS" 


210 RETURN 


REM LECTURA DATOS 
OFEN1S,3,15 
OFPEN2,8.,2,NF$ 
INPUTR15. AD. <$.CD., DD 


720 1F AD<O6 THEN GUSUB 40600: RUN 


> PA=1:GOSUB 200: INPUTR2. AS 


727 MA=VAL(LEFTSCAS, 37) :PE=VAL(MIDSCAS, 4,27) 
730 FOR I=1 TO Mx 
735 PA=1+1:COSUB 200: INPUTH2.A$ 


COSUB 25008 


740 Bl$cI)=AS 
795 «=1:=23:C0S5UE11000:PRINT"ALECTURA LINEAR 9515 
75 NEXT I:CLOSE1S:CLOSEZ 


735 RETURN 
290 REM PUNTERO 
205 R1=PA:R2=0 


310 


IF R1>256 THEN R2=INTCPA/256):R1=R1-2564R2 


215 PRINTR15. "P"CHR$C3+96>)CHR$C(R19CHRICRZICHASC1) 
220 RETURN 


12309 
1295 
1318 
1215 
1217 
1318 
1228 
1325 
1329 
2508 
2528 
2535 
2549 
2568 
2588 
2599 
4109 
4102 
4105 
4107 
4119 
4115 
4129 
4130 
4125 
4137 
4122 
4149 
4208 
4210 
4220 
4225 
4239 
4240 
4259 
4260 
4278 
4220 
4298 
4209 
4509 
4518 
4520 


REM dk MENU dk 

PRINTHOS : PRINTCHR$<14> 

RESTORE :FORI=1T05 : READYOS$(1) :NEXT 

COSUB 500:xX=10:Y=6 

FOR K=1 TO 5:Y=Y+2:COSUE11000:PRINT"AA";K;"M EA ",YO$CK): NEXT K 
POKE 192,0 

X=11:Y=19:C05UB11000: INPUT"UAL ";0PZ 

IF OPZ<=0 UR UPZ>S THEN 1320 

RETURN 

REM 

L=LENCZS$) : IFL=GTHENRETURN 

FORI=1TOL: IFMIDSCZ$.1,1<7" "THENI1=1:G0T02360 
NEXTI:Z$="" : RETURN 

IO ISTEEL JEPMIA et 1 109% "THENI2=1 :60T02590 
K0=12-11+1:2$=111D$(2$. 11,K0): RETURN 

REM JUSTIFICACIÓN 

COSUE 4508 

GOSUE 500 

KK=-(NN=20)K2-(NN=40) 

FOR IR=1 TO MX STEPKK 

4=1:=22:60SUB11000:PRINT" UUSTIFICACION LINEA"; IR 
Z$=B1$CIR>:1F NN=20 THEN Z$=Z$+B1$(I1R+1) 

CUSUB 2560: 1F 25<>""THEN GOSUB 4208 
B1$CIR)=LEFTSCZ$. 40) 

IF Ci$="<" AND I<=40 AND NN=80 THEN IR=IR-1:G0TO 4149 
IF NN=30 THEN B1$CIR+1>=MID$(2$, 41,40) 

NEXT IR:RETURN 

REM_ JUSTIFICA UNA LINEA 

L=LENC2$> :BL=0:FORI=1TOL 

C1$=M1D5(2$, 1,1>:C2$=M1D$(2$, 1+1,1) 

IF C1$="<" THEN RETURN 

IF Cl$=" "AND C2$<>" "THEN BL=PL+1:PCBL>=1I 

NEXT_1: IFBL=GORL=NNTHEN RETURN 

K=0:FORI=1TOBL 

2S=MIDFCZS,1,PCID+KI4" "+MIDICZS, PCI +K+10 NN) 
IFLENCZ$)>=NN_ THENRETURN 

K=kK+1:NEXT 1 

K=0: FORI=1TOPL :K=k+1:PC1)=PC1)+K:NEXTI 

GOTO 4250 

REM PARAMETROS Y 

COSUB 300 

X=1:w=22:G0SUB11000: INPUT" UMERO DE COLUMNAS (MMOVIEDD M';NN 
IF NN<74B AND NN<>20 THEN 4520 
GOSUESOO:*=1:=22:C05UB11000: INPUT" LINEAS POR PAGINAM" RR: IFRR<=OTHEN4540 
GOSUB 500: x=1:W=22:GOSUB11000:PRINT" ANUMERACION (MSVIND " 
CET A$:1F AS<?"N"ANDASCO"/"ANDAS$<>"S"ANDA$<>"4"THEN4SSZ 
IFAS="S"ORAS="w" THENNF=1 : RETURN 

NF=0: RETURN 

REM IMPRESION 

OPEN4, 4 

COSUB 4710: CMD4:PRINTCHR$(17>:GOTO 4738 
COSUESOB:X=10:'Y=12:C0SUB11000:PRINT" POSICIONAR EL PAPEL":X=9:Y=18:GOSUB110 


PRINT"_ PULSAR UNA TECLA" 

POKE 198.0:WAIT 198,1 

A AP S PERA R":RETURN 
=4: =1 

REM 

KK=-(NN=20)42-(NN=48) 

FOR I=1T0 MXSTEPKK 

IF II>=RR THEN GOSUB 20000: 11=0:PP=PP+1 

IF II=0ANDNF=1THENPRINT"PAGINA";PP*PRINT 

A$=E13(1):1F NN=20 THEN AS$=A$+B1$(1+1> 

IFAS$=""ORAS=LEFTSC(SPS.NN> THENPRINT:COTO4200 

FORJ=1TONN: CH$=MI1D$<0A$, 3,1) 

IFCH$="<"THENR3=1 :PRINT: 11=11+1:R=1:G60704790 

IF CH$=" " AND R=1 THEN 4790 

R=0:PRINTCHS; 

NEXT J:IF R3=0 THEN PRINT:1I=11+1 

IT I:COSUB 20060: 1F OFZ=3 THEN PRINTH4:CLOSE4 

¿ETURN 

REM IMPRESION CON FUSION 








PRINTHOS + =(40-LEN(WOSCOPZ>2)/2:1=2: COSUE 11000: PRINTVOSCUPZ) 
4: Y=15:C05UP11000:PRINT" 3INTRODUCIR EL DISCO DE LAS DEFINICIONES" 
OS GOSUF11000:PRINT"DE LA 1407 — Tel Tre" 
a=11: 
OPENIS, 8,15, "I-0" 
2,.3.3,"0:DEFE.SEG.R" 
INPUTR15., AD,X3,CD,DD:1F AD<>6 THEN COSUB40000 : RETURN 
FOR I=1 TO 2u 
INPUTRZ.R$ — * 
ADC =YALEMIDECAE. 1.27) 
YD015=YAL(MIDICAS, 2,27) 
DCI =M1D$(R$.5.10) 
ACC =YALOMIDECAS, 15,27) 
9995 YCLIO=VALEMIDECRE, 17.27) 
2939 LUCIO =YALCMIDECRS, 19. mn 
35 TPC =YALCMIDECRE, 21.2) 
5050 NEXT 1:CLUSE2:CLOSE1S 






















CR+LUCHH) ¿NEXT HH 
CAMPOS A IMPRIMIR 
9200 PRINTHOS:FORI=1T020: IFD3C1)=LEFTECSPS. 10: THENS207 












2205 A=XDC1):Y=WDC 1): COSUF11000: PRINTDICI) 

92307 NEXT 1 

3210 FORI=1T1020: IFTP<1)=0THENI222 

39320 A=4CC 1): Y=CC 10 GOSUE1 1000: PRINT" WSTRECIO 

9322 NEXT 1 

9225 =0: Y=22 : COSUE1 1000: PRINT" INDICAR LOS CAMPOS A IMPRIMIR" 
9330 FORI=1 1020: 1IFTF<L+=0THENS270 

9240 4=B:Y=23: COSUP11000:PRINT"-AMFO HL" 77? CABDEV HA ", 
9350 CETAS: 1IFAS$="/"0RAS="N"THENTFC1)=0:60TO9370 

9250 IFAS<?"S"ANDAS<S "0" THENISOM 

237 NEXT 1 

9300 COSUESOO:4=1:Y=11:GOSUEL1000: INPUT" OMERE FICHERO (DE 10 tlTo7" NFS 
9325 IF NF$=""DORNFS$=CHR3( 12) THENS330 


O DPEN1S.2,15. "140" 

OPENZ,2,3, "0: "+NF$+",SEQ/R": INPUTR1S., AD, X$. CD. DD: IFADOSUTHEN40OGO - RETURN 
INFUTR2. AS: YALCAS) 

FORI=1 TOMK :GOSUBICOO: PG 1)=AAS:NEXT I:CLOSE2:CLOSE1S 
20 IR=1:LL=2:0PEN4, 4 :COSUE 4710 

REM IMPRESION CAMPOS 

CmMD4 :PRINTCHRS:17)5 

FORI=1T020 

AS$=11103(ES$C1R>,LL.LCCIA> 

IFTPC12<50 THENFPRINTAS: 15=15+1 

NEXTI:LL=2:PRINT 

GOSUB 4730: IR=1F+1 

9510 IFIROMKTHENPRINTR4 : CLUSE4 ¿RETURN 

9520 15=0:C0TO 9440 

3600 REM FORMACION REGISTRO 1 

2605 AR$="":FOR K9=1 TO CR 

2610 CETRZ, AS :RAS=AAS+A3 

9615 NEXT K9:RETURN 





19000 DATA" 'USTIFICACIÓN", ""ARAMETROS IMPRESION". "MPRESIUN" 
10005 DATA" MPRESION CON FUSION", "IN DE TAREA" 
11000 REN 


11095 PUKE211,x:POKE214.Y 

11010 Sraseria 

11615 RETURN 

240000 REM SALTO PAGINA 

20002 0J=66-11-HF*2-15 

24005 FORDI=1T00J:PRINT:NEXTOI: RETURN 
26010 REM 


GUSUP11000:PRINT"EPULSAR UNA TECLA" :POKE195.8:WAIT192,1:POKE193.0 





25009 REM SUSTITUCION CARACTERES 
25005 LS=LENCAS) 

25010 FOR Ki=1 TO LS 

25015 CTéE=MIDFCA$,K1, 1): CT=ASCCUCTE> 
25020 IF CT=253 THEN CT$=CHR$(49) 
25021 IF CT=254 THEN CT HRS(52) 
230022 IF CT=252 THEN CT$=CHR$(539) 
25023 IF CT=25 THEN CT$=CHRIC22) 





230390 AS=LEFTSCAS.,K1-1>+CT3+RICHTSCAS.LS-K1> 


20025 NEXT Ki: RETURN 
40000 REM CONTROLES DISCO 
400592 x1$=""_T_ 


AA a Aa en a a A IN A a a o aaa aa a O a O IIA SIRENA MERA DAGA EA 


49093 IF AD=62 THEN X$=x1$+"EL FICHERO NO ESTA" 





40006 IF AD=74 UR AD=r9 


THEN X$=X1$+"UNIDAD DISCO HO EN LINEA" 


49097 IF AD=64 THEN X3= X1$+"TIPO DE FICHERO NO CORRESPONDIENTE” 


46510 X1=INT<C4U-LENCAB 420 A=41 0 W=27 
40015 COSUP1 1000: PRINTXS 

40020 CET R$:1F Ri="" THEN 40020 
49025 RETURN 


RELACION DE LAS PRINCIPALES VARIABLES - COMMODORE 64 


AO = código de la tecla pulsada 
en escritura 

cc = contador de caracteres 

C$ = cadena introducida 
(subrutina 3500) 

X,Y = coordenadas actuales 

BS(*)  =matriz para los buffers de 


máscara vídeo 

HS(*)  =cadenas ayuda 

B1$(*) =un elemento para cada lí- 
nea de texto 


MX líneas totales 

NP = número de páginas 

PG = líneas por página 

OP = opción elegida en el menú 
principal 

AAS$ = cadena l/O con el disco 

NS = flag para página actual 


LO = longitud máxima para C$ 

LC(*)  =longitud del campo de in- 
troducción 

XC(«) ] 


YC(+) =coordenadas en el vídeo 


del campo de introducción 


XD(x) ] _ coordenadas en el vídeo 


YD(=x) | — de la instrucción 

DS(*)  = descripciones en las más- 
caras vídeo 

VOS(*)  _ voces del menú principal 

BL$ = blank 

NFS = nombre del fichero datos 

NN = Número de columnas en la 
impresión 

RR =líneas por página en im- 
presión 





Tratamiento de textos/Versión Apple Il 
Tratamiento de textos 














10 REM RETURN GOSUB 3500: 

20 REM 1200 RE MP = VAL (0$): 

23 REM 1210 A0= PEEK ( - 16384): DO THEN 2040 

23 REM IF A0 > 128 THEN POKE - 15768,0 2070 

74 REM 

30 ONERR VTAB 13 

40 DIM BS(20): PRINT "LNEAS POR PAGINA ? " 
DIM B1$(400)2 1220 XC = 29: 





1300 


1330 


GOSUB 3500: 


PG = VAL (CS): 


IF FG < = 0 THEN 2080 





































so ? MX = PG A NP: 
READ NV: IF MX > 400 THEN GOSUB 500: 
TEXT : O THEN RETURN HTAB 1: 
1350 VTAB 23: 
FOR 1 = 1 TONY: PRINT "MAX.400 LINEAS DE TEXTO. ": 
70 1F OR. < > 3 THEN 100 READ VO$11 GOTO 2050 
30 PRINT Di$: LL = LEN (VO0$(1)): 2100 IF OF = 3 THEN 2170 
FRINT Dió: "RUN IMPRESION FUENTE, D IF LLL TREN L = LL 2105 GOSUB 500: 
q 1370 NEXT 1: As = "CREO "z 
100 ON OF GOSUB 2000, 3000: NEXT di IF DP = 2 THEN AS = "GRABO " 
GOTO 50 XI = (40 -L) / 2: 2110 FOR 1 =1 TOM 
A ES YI = ((24 - NV. 2) / 2) + 12 IF OP. = 1 THEN B13(D) = BAS 
530 TEXT: X = XI - 2: 2125 HTAB 1: 
HOME; y Y = Yl: VTAB 23: 
BFS = CHAS (7); FOR 1 = 1 TO Nv: FRINT AS: "LA LINEA ";l: 
Di% <= CHRÉ (4): HTAB ke AAS = B1$(1): 
DR$ = "10; UTAB Y: NR =1+d: 
Eb = " " PRINT 13" - "¿vOS(l): GOSUB 5400: 
BAS = ES + ES + B$ + B$ Vo Y 4 Da NEXT 1: 
563. HEB(1) = "CTRL E.RETORNO AL MENU NEXT Ll: IF OP. = 14 THEN NR = 1: 
- CTRL 1. INSERCION CARACTER - CTR Y Ed ARS = STR$ (MX) + MID$ (BA$,1.3 
ORRADO CARACTER - CTRL.P.PAG 1410 HTAB Xi - LEN ( STR$ (MX))) + STR$ (PG 
LANTE - " UTAB Y: E 
566 "CTRL 0.PAGINA ATRAS - C PRINT "CUAL 2 "z2 GOSUB 6400 
LL. INSERCION LINEA - CTRL K.BO GOSUB 1200: 2160 GOSUB 6600: 
A - CTRL R.BUSQUEDA PAL 0-3 = CHRE (Ad): GOTO 2010 
- CTRL OM,A,S, 2. MUEVEN EL CUR OP = VAL (0F$): 2170 GOSUB S00: 
- IF OP < 1 OR OP > NV THEN NR = di. 
570 HES(2) = HES(2) +" PULSA PRINT BP$;: GOSUB 6200: 
A TECLA“: GOTO 1410 4 MX = VAL ( LEFTS (AM$,3)): 
Bs = 0"; 1440 FLASH : PG = VAL ( MIDS (AM$,4,2)): 
HTAB 1: FRINT OP: FOR I = 1 TO MX: 
UTAB 1: NORMAL : NR = 1 +1: 
INVERSE : FOR 1 = 1 TO 100: GOSUB 6200: 
PRINT "E.G.S. EDICION HTAB 1: 
ES FORUM, S.A: VTAB 23: 
NORMAL +: 2000 FRINT "LEO LA LINEA "sl: 
FC = ti 2010 B1$(1) = AAS: 
RETURN NEXT: 
1000 REM GOSUB 6600: 
1010 Xi =X- 1: 2020 GOTO 2010 
Yi=Y- de 2800 REM ————— - 
CH = SCRN( X1,2 * Y1) + 16 VTAB 17: 2830 AS = LEFTS (BA$.26): 
% SORN X1,2 $ Yi + de HTAB 1: 
HTAB X: VTAB YT: 
UTAB Yi 
FLASH : 
IF FC = 0 THEN INVERSE suo 
1040 PRINT CHR$ (CH);s 3010 
HTAB Xi 
NORMAL: 
RETURN 


1100 REM 

MS a dr 
Vs VE se de 
MORMAL : 

y HTAB X: 

VTAE Yi . 
FRINT  CHR$ (CH)32 
HTAB X: 





3012 


3020 


3040 
3050 


3060 
3070 
3080 


3090 
3100 
3105 


3120 
3130 
3135 


3150 
3160 
3165 


3200 


3209 


3250. 
3295 


PRINT Bs(125: 
NEXT I: 
MTAB 27: 
VTAB 24: 
PRINT "AYUDA. CTRL-Y";5 
HTAB 1: 
UTAB 24: * 
PRINT "PAGINA ":NS / 20 + 13: 
IF <> 0 THEN TC = K: 
K=0 
YC = CC + 2: 
GOSUB 3500 
IF A0 = 5 THEN SOSUB 3400: 
RETURN 


IF AO <> > 26 THEN 3070. 
CC = CC + 1: 

IF CC > 20 THEN 3105 
GOTO 3020 

IF A0 < > 23 THEN 3100 
CC ="CC - 1: 

IF CO < 1 THEN 3135 
GOTO 3020 


IF. A0< > 16 THEN 3130 
GOSUE 3400: 
NS = NS + 20: 
IF NS > = MX THEN NS = NS 
=-20 
GOTO 3010 
RETURN 
GOSUB 3400: 
NS = NS - 205 
IF NS < 0 THEN NS = 0 
GOTO 3010 
IF AO X< > 12 THEN 3200 
GOSUB 3400: 
FOR 1 = MX - 1 TO NS + CC STEP 
ER 
B1$(1 + 1) = B1$(1): 
NEXT 1: 
E1$(NS + CC) = BAS: 
K = CC: 
GOTO 3010 
IF A0X% > 11 THEN 3250 
GOSUB 3400: 
FOR 1 = NS + CC + 1 TO MXz 
B1$(1 - 1) = B1$(1): 
NEXT l: 
B1$(MX) = BAS: 
K = CC: 
GOTO 3010 
1F AO < > 18 THEN 3020 
GOSUB 3400: 
HTAB 1: 
VTAB 24: 
PRINT "PALABRA ? "32 
XC = 8: 
YC = 24: 
LO = 15: 
Cc = 0: 
GOSUB 3300: 
R$ = CS: 
L = LEN (R$): 
= 24; 
LO = 40: 
= 11 
FOR J = 171020: 
FOR X = 1 TO 40 - Ls 
YM AZ 
GOSUB 10002 
GOSUB 1100: 
C$ = MIDS (B$(J),X,L): 
IF C$ = R$ THEN GOSUB 2800 





G0SUB 3 


GOTO 3030 





3316 


3400 


3410 


3310 





3JDES 


3590 


3620 


de 


e 





A AAA 

FORSI-= ES. + 1-10 
B1$(1) = B$I(I — K 

NEXT 1: 

RETURN 

MIS ====2 

IF CC = 0 0R IC = 40 THEN IC 

=05 

X=1 

C0$ = BS(CC): 

IF LO = 0 THEN RETUEN 

Y = YC; 

IF CC = O THEN X = XC 

IF "IC = LO THEN A0' = 26: 

BS (CC) = C$: 











1 THEN R = 0: 


B$ (CC) = CS: 

RETURN 

S0SUB (1000: 

GOSUB 1200: 

GOSuB 1100 

IF AO =S OR AO = 23 0K £0 
= 26 OR AO = 16 OR AO = 15 
OR AO = 12 0R AO = 11 OR AO 
=:18 OR AQ = 27 THEN B$(CC) 
= C$: 

RETURN 

1F AO = 9 AND CC Y THEN 
GOSUB 3700: 

GOTO 3560 

TF AQ0-=/4-AND'CC X= >:0- THEN 
GOSUB 3800: 

SOTO 3545 

IF AO = 25 AND CL O THEN 
GOSUB 13000: 

GOTO 3545 

IF AO = 13 AND CC <- >0 THEN 
= 603 

R=t: 

GOTO 3620 

IF AO < > 13 THEN 3620 

C$ = MID$ (C$,1,1C): 

AS =  MID$ (BAS, 1.LO - 1C)d: 
HTAB XC + 1C: 


PRINT A$;: 

RETURN 

IF. AO < > 1 THEN 3455 

IF IC = 0 AND CC = O THEN 
PRINT BP$;2 ” 


GOTO 3545 

IF IC = 0 THEN AO = 23: 
X= 40: 

10 = 39: 

RETURN 

1C-=-10'- 4: 

La E = 

GOTO 3545 

1F AO = O THEN 3345 

IF AO = 19 THEN IC = 1C +1: 
a e E 

6070 3543 

CH$ = CHR$ (40): 

VTAB YC: 

PRINT CH$:: 

C$ = "MIDS (03,1,1C) + CHS 
+ MIDS (C$,1C + 2,39): 
IC =1C-+ 1: 

Ll =X-+ 11 

GOTO 3543 

REM 


IF IC.= LO: THEN-A0 =- 0: 





3790 


3800 
3830 
3840 


$000 
69030 


£200 


6230 


6400 
6470 


6£00 
£530 


10010 


13000 


13030 


17075 





RETURN 

FC = 0: 

GOSUB 1000: 
GOSUB 1200: 
S50sUB 1100: 
IF AO = SS ORAO = 13 0R 
=4 OR AO = 23 0R AO 





OR_AO = 18 OR A0 = 27 ao 

= 25 OR AO = 1 OR AG 

THEN C$ = C$ + MID$ (BA$,1,40 
=-1Y3 

FC = 1: 

RETURN 

CH$ = CHR$ (M0): 


C0$ = MIDS (03,1,1C) + CH$ 
+ MID$ (C$,IC + 1,LO - IC 
11 
L = LEN (C$): 
AS = MIDS (BA$,1,LO9 -— L): 
AS = C$ + As: 
HTAB XC: 
VTAB YC: 
PRINT A$: 
Caot ts 
IC = IC. +4: 
IF IC < LO THEN 3730 
FC = 1: 
AO = 26: 
RETURN 
REM ---- — 
1F 1C = LO THEN RETURN 
C$ = MID$ (C$,1,1C) + MIDS (CS, 
10=+ 2¿LO =-10:= 1) 
Lo= LEN (C$): 
AS = MIDS (BAS$,1,L0 - L): 
AS =C$ + AS: 
HTAB YC: 
FRINT AS: 
0% = C$ + MIDS$ (BA$,1,40 — L): 
RETURN 
REM a e kk 
PRINT D1$: 
PRINT D1$: "OPEN"¿NFS + ",D" 
+ DAS; "LUSLR + 2: 
PRINT Di$: 
RETURN 
REM -_—>— 
PRINT D1$: 
PRINT Di$: "READ"¿NF$;",R"¿NRs 
INPUT AA$: 
PRINT Di$: 
RETURN 
REN -——_—_—__—__—= 
PRINT D1$: 
PRINT Di$; "URITE"¿NFS$:",R"¿NR: 
PRINT  CHR$ (34) + AAS$: 
PRINT D1$: 
RETURN 
REA 
PRINT D1$: 
PRINT Di$; "CLOSE"¿NF$: 
PRINT D1$: 
RETURN 
DATA 4: 
DATA “GESTION DISCO", "ESCRITURA", 
“ IMPRESION", "FIN DE TAREA": 
DATA 4: 
DATA "GENERACION", "ESCRITURA FICH 
ERO". "LECTURA FICHERO", "RETORNO A 














IF CH$ = "" THEN CH$ 


As = RIGHTS (45.37) 
+ CH$: 
HTAB 1: 
VTAR 24: 
PRINT A$3:2 
AO = FEEK ( - 16384 
IF A0 > 128 THEN 131 
H 








dE 
10 








40000 
a0010 


40030 


40040 


40050 


40060 


40070 


HTAB 27: 

VTAB 24: 

FRINT "AYUDA. CTRL-Y"z2 

HTAB 1: 

VTAB 24; 

PRINT “PAGINA "¿NS / 20 + 132 
POKE - 16368,0: 

RETURN 

REM 
GOSUB 5 
INVERSE 
HTAB 1: 
VTAB 13: 

Es PEEK (222): 

IF E= 5 THEN FRINT "EL FICHERO 
NO EXISTE "; 

IF E = 8 THEN PRINT "COMPROBAR L 
A UNIDAD DISCO. "; 

IF E = 9 THEN PRINT "DISCO LLENO 





IF E = 6 THEN PRINT "INTRODUCIR 
DISCO PROGRAMAS. "; 

IF E = 4 THEN PRINT, "DISCO PROTE 
GIDO. "; 

NORMAL. : 

HTAB 1: 

VTAB 15: 

FRINT "PULSAR UNA TECLA": 

GOSUB 1200: 

GOTO 50 


Impresión 


10 
20 
22 
25 
30 
33 


40 


60 


REA 


FEM TRATAMIENTO DE TEXTOS 

REM IMPRESION 

REM VERSION DOS 

RE 
ONERE GOTO 40000 

DIM B1$1402).,B$(130),P(80),XD(20) 
¿YD (20), XC (20) ,YC(20),LC(20),TF(2 
0),D$(20): 

NN = 80: 

RR = 40: 

NF =1 

GOSUB 500: 

HTAB 3: 

VTAB 13: 

PRINT "NOMERE FICHERO ? " 

XC : 

YE 
Lo 
ce O 
GOSUB 3300: 
NFS = C$: 
IF NF% 
LR = 40: 

GOSUB 000: 

NR = 1: 

GOSUB 6200: 

MX = VAL ( LEFTS (AA$,3)) 
FG = VAL ( MID$ (£0$,4,2 
GOSUB 300: 

FOR 1 = 1 TO MX: 


unoqa.. 








"n'Q.X.n..A 


" THEN 60 








140 


500 


530 


1000 
1010 


1100 
1110 


1200 
1210 


1220 
1300 
1330 


1350 


1370 


NR = 1 +1: 
GOSUB 52 
HTAB 1: 
YTAB 23: 
PRINT "LEO LA LINEA "sl: 
B1$(1) = Añé: 

NEXT 1: 

GOSUB £600 

K= il: 

GOSuB 1300: 

IF OP. = 5 THEN TEXT : 

HOME : 

END 

ON OP GOSUB 4100,4300,4 

IR = 0: 

GOTO 120 


REA O 








= CHR$ (7): 
Di$ = CHR$ (4): 
DR$ = "1": 

Bs ==" 5 

BAS = BS + B$ + Bó + St: 

HTAB 1: 

VTAB 1: 

INVERSE : 

PRINT "E.G.S EDICIONE 





SCRN( X1,2 £ Y1) + 16 
% SCRN( X1,2 £ Yi + 1): 

HTAB X: 

VTAB Y: 

FLASH 
IF FC 


O THEN  INVERSE 


PRINT  CHR$ (CH):: 





TAB Y: 

PRINTO CHR$ (CHz: 

HTAB Xi 

RETURN 

REA 


A0 = PEEK ( - 16384): 

IF AO > 128 THEN FOKE - 1£368,0 
A0 = AO — 128: 

RETURN 

GOTO 1210 


RE —Á 







1Oo.0. 
Gm 
a] 


. 
F 
sw 
p 
a 
T 
m 
Z 
e 
" 
rm 
E 


HTAB X: 
VTAB Y: 
PRINT 13" —- "3VO$5(1)< 


V=Y +20» 


1410 


1440 


2500 


2530 


2335 


2580 
25390 


2800 


2830 


3500 


3310 


3360 


3580 


3583 


3390 


3620 
3630 





NEXT I: 

V= YA 

HTAB X: 

VTAB Y: 

PRINT "CUAL 9"5: 

G0suB 1200: 

OP$ = CHR$ (0): 

OP. = VAL (0PS$): 

IF OP < 1 OR OP > NY THEN 

PRINT BP$;: 

GOTO 1410 

FLASH : 

FRINT OP: 

NORMAL : 

FOR I = 1 TO 500: 

NEXT 1: 

RETURN 

REN => 

L.= LEN (28): 

IF L = 0 THEN RETURN 

FOR I = 1 TO L: 
C= ASC ( MID$ (2$,1,1)): 
IF C< >32 THEN 11 = I: 
GOTO 2560 

NEXT 1: 

7h = "0: 

RETURN 

FOR I = L TO 1 STEP - 1: 


LC = ASC ( MID$ (2$,1,1)): 
IFC< >32 THEN 12 = l: 
GOTO 2590 

NEXT 1 


KO = 12 - Ii + 1: 

21% = MIDS (2$,11,K0): 
RETURN 

REM is 
AS = LEFTS (BA$,39): 

HTAB 1: 

VTAB YT: 

PRINT A$:;: 

RETURN 

REN 5 —z— 
IF CC = 0 OR IC = 40 THEN IC 





Xx =1 

C$ = B$(CC): 

IF LO = 0 THEN RETURN 
Y = YC: 

IF CC = 0 THEN X = XC 
IF IC = LO THEN AO = 26: 
B$(CC) = Có$: 

RETURN 

GOSUB 1000: 

GOSUB 120: 

G0suB 1100 


IF A0 = SORA = 23 0R AO 
= 26 OR AO = 16 OR A0 = 15 
DR A0 = 12 OR A0 = 11 OR A0 
= 18 OR A0 = 27 THEN B$(CC) 
= Cé: 

RETURN 

IF A0= 13 ANDCC< >0 THEN AO 
= £0: 

GOTO 3620 

IF AO < > 13 THEN 3620 

C$ = MID$ (C$,1,1C): 

A$ = MID$ (BA$,1,LO — IC): 

HTAB XC + IC: 

PRINT A$;: 





RETURN 

IF AO < > 1 THEN 3455 

IF IC = O AND CC = O THEN 
PRINT BFS;: 

GOTO 3345 


3640 


3635 
3660 


3670 


4100 
4102 


4105 


4110 


4133 
4137 


4138 


4140 


4200 
4210 


4230 


4240 


4250 


24280 


45300 
4510 


43530 


Xx = 40: 
IC = 39: 
RETURN 
10. 10. = 13 
REE 
GOTO 3545 
IF AO = O THEN 3545 
IF AO = 19 THEN IC = IC + 1: 
X= X +1: 
GOTO 3545 
CH$ = CHR$ (M0): 
VTAB YC: 
PRINT CH$;: 
C$ = MID$ (C$,1,1C) + CH$ 
+ MID$ (C$,IC + 2,39): 
IC = IC + 1: 
A 
GOTO 3345 
REM o 
GOSUB 4500: 
KK = (NN = 80) * 2 + (NN = 40) 
GOSUB 500: 
FOR IR = 1 TO MX STEP Kk: 

HTAB 1: 

VTAB 23: 

FRINT "JUSTIFICO LA LINEA ";IR 





2% = Bi$(IR): 

IF NN = 80 THEN 2$ = 75% 

+ Bi$(IR + 1) 

GOSUB 2500: 

IF 726 < > "" THEN GOSUB 4200 


B1$(IR) = LEFTS (2$,40) 
IF C1$ = "<" AND¡1< = 40 
AND NN = 80 THEN IR = IR 
AE 
GOTO 4140 
IF NN = 80 THEN BiS$(IR + 1) 
= MIDS (2$,41,40) 
NEXT 1Rz 
FRINT Di$: 
PRINT D1$; "PRHO": 
RETURN 
REM 
L= LEN (26): 
BL = 0: 
FOR I = 1 TO L: 
C1$ = MIDS (2$,1,1): 
C2$ = MID$ (2$,1 + 1,1): 
IF C1$ = "<" THEN RETURN 
IF C1$ = " " AND C2$ < 
A THEN BL BL + 1: 
F(BL) = 1 
NEXT 1: 
IF BL = 0 0RL= NN THEN RETURN 
K 
Fl 
z MIDS (2$,1,F(1) + K) 
"o" 4+ MIDS (2$,P11) 
+ Ko+ 1,NN): 
IF LEN (2$) > = NN THEN 
RETURN 
K=K<+dt: 
NEXT 1: 
Kk = 0: 
FOR I = 1 TO BL: 
K=K+dt: 
P(D) = PCI) + K: 
NEXT I: 
GOTO 4230 
ASAS 
GOSUB 500: 
HTAB 1: 
VTAB 23: 
PRINT "NUMERO DE COLUMNAS 7 (40/8 
o" 
XC = 30: 


= 0: 

OR 1 = 1 TO BL: 
$ 
+ 


4350 


4560 


4580 


4500 


4610 
4700 
4705 


4710 


4712 


4735 


4747 


4750 


4755 


4760 


4770 


4773 


4780 


4790 


4800 


YC = 23: 
LO = 2: 
GOSuB 3500: 


NN = VAL (CS): 

IF NN < > 40 AND NN < > 80 

THEN 4530 

GOSUB 500: 

HTAB 1: 

VTAB 23: 

PRINT "LINEAS POR PAGINA 2 " 

xC = 21: 

GOSUB 3300: 

RAR = VAL (C$): 

IF RR< = 0 THEN 4560 

GOSUB 500: 

B$(0) = 

HTAB 1: 

VTAB 23: 

PRINT "NUMERACION ? (S/N) " 

XC = 20: 
1 








IF CS< >"S" ANDCS$< > "N” 
THEN 4590 
NF = 0: 
IF C$ = "S" THEN NF =1 
RETURN 
RA 
GOSUB 4710: 
GOTO 4735 
GOSUB 500: 
HTAB 1: 
VTAB 22: 
FRINT "PONER LA IMPRESORA EN LINE 
Aa": 
GET R$ 
PRINT D1$: 
PRINT D1$; "PRA 1": 
YT = 23: 
GOSUB 2800: 
PRINT — CHR$ (9)3"80N"s 
PRINT— CHR$ (12)3: 
RETURN 
II =0: 
PP = 13 
KK = (NN = 80) % 2 + (NN = 40): 
FOR 1 = 1 TO MX STEP KK: 
IF 1I > RR THEN PRINT 
CHR$ (12)32 





1 =0: 
PP =PPO+ 1 
IF 11 = 0 AND NF = 1 THEN 


PRINT "PAGINA "PP 
PRINT 
A$ = B1$(1): 
IF NN = 80 THEN AS = AS 
+ B1$(I + 1) 
BC$ = BA$ + BA$: 
IF A$ = LEFTS (BC$,NN) 
OR A$ = "" THEN PRINT 
GoTO 4800 
FOR J = 1 TO NN: 
CH$ = MIDS (A$,J,1) 
IF CH$ = "<" THEN R3 
=1: 
PRINT : 
R = 1: 
GOTO 4790 
IF CH$ = " " ANDR= 1 
THEN 4790 
R=0: 
FPRINT CH$; 
NEXT J: 
IF R3 = 0 THEN PRINT 
11 = 11 +1: 
R3 =0: 
NEXT 1: 
IF IR = O THEN PRINT Dió$: 
PRINT D1$;"PREO" 


4810 


6030 


6200 
6230 


9150 


9340 


9350 


9360 
*, 9370 





+ DR$;",L"5LR + 2: 
PRINT Di$: 
RETURN 
2 
PRINT D1$: 
PRINT Di$; "READ"¿NF$;",R";NR: 
INPUT AAS: 
PRINT Di$: 


A a 
PRINT Di$: 
PRINT D1$;"CLOSE";NF$: 
PRINT Di$: 
RETURN 
REM ——— ——_—_—_——— — 
GOSUB 500: 
HTAB 1: 
VTAB 11: 
PRINT "INTRODUCIR EL DISCO DATOS 
DE LA": 
FPRINT "BASE DE DATOS": 
HTAB 10: 
VTAB 21: 
PRINT "DESPUES PULSAR UNA TECLA": 
GET A5b: 
NFS = "DEFC": 
LR = 26: 
GOSUB 6000; 
FOR I = 1 TO 20: 
NR = 1: 
GOSUB 6200 
XD(1) = VAL ( MID$ (AA$,1,2)) 


YD(1) = VAL ( MIDS (AA$,3,2)) 


D$(1) = MID$ (AA$,5,10): 
XC(1) = VAL ( MIDS (AA$, 15,2) 
de 
YC(1) = VAL ( MIDS (AA$,17,2) 
1 
LC(1) = VAL ( MID$ (AA$, 19,2) 
): 
TP(D) = VAL ( MIDS (AA$, 21,2) 
3 
NEXT I: 
GOSUB 6600: 
GOSUB 500: 
FOR 1 = 1 TO 20: 
IF D$(1) = LEFTS$ (BA$, 10) 
OR D$(I) = "" THEN 9290 
HTAB XD(1) + 1: 
VTAB YD(1) + 1: 
PRINT D$(1) 
NEXT 1: 
FOR I = 1 TO 20: 
IF TP(1) = O THEN 9320 
HTAB XC(I) + 1: 
VTAB YC(1I) + 1: 
PRINT " "sI 
NEXT 1: 
HTAB 1: 
VTAB 23: 
PRINT "INDICA LOS CAMPOS A IMPRIM 
IR.": 
FOR I = 1 TO 20: 
IF TP(1) = O THEN 9370 
HTAB 1: 
VTAB 24: 
PRINT "CAMPO N. "315"? (S/N); 


GET A$: 

IF A$< > "S" ANDAS < 

> "N" THEN 93530 

IF A$ = "N" THEN TP(T) = 0 
NEXT 1: 


GOSUB 500: 

HTAB 1: 

VTAB 12: 

PRINT "NOMBRE FICHERO (DE LA BASE 
DATOS) "3: 

INPUT NF$: 


: LR = 128: 


9430 
9433 


9490 


GO0SUB 6000: 
NR = 1: 
GOSUB 6200: 
MK = VAL .(AA$): 
FOR 1 = 1 TO Mk: 
NR = 1 +1: 
GOSUB 6200: 
BS$(I) = ARAS: 
NEXT 1: 
GOSUB £600: 
IR = 1: 
LL = 2: 
GOSUB 4710 
RE A —Ák 
PRINT : 
FOR 1 = 1 TO 20: 
A$ = MIDS (BS(IR),LL,LC(1)): 
LL = LL + LO(T): 
IF TP(1) < >0 THEN PRINT A$ 


NEXT l: 
LL = 2: 
PRINT : 
GOSUB 4735: 


9320 


10010 


40000 


40030 


40040 


40050 


40080 


40070 


IR = IR + 1: 

IF IR > MX THEN PRINT DiS$: 
PRINT D1$;"PREO":2 

PRINT Di$: 

RETURN 

GOTO 9430 

DATA S: 

DATA "“JUSTIFICACION", "PARAMETROS" 
» "IMPRESION", "IMPRESION CON FUSIO 
N","FIN DE TAREA" 

G0SUB 500: 

INVERSE : 

HTAB 1: 

VTAB 13: 

E = PEEK (222): 

IF E = S THEN PRINT "EL FICHERO 
NO EXISTE. "; 

IF E = 8 THEN PRINT "COMPROBAR L 
A UNIDAD DE DISCO. “; 

IF E = 9 THEN PRINT "DISCO LLENO 


., 

IF E = 6 THEN PRINT "INTRODUCIR 
DISCO PROGRAMAS. "; 

IF E = 4 THEN PRINT "DISCO PROTE 
GIDO. "; 

NORMAL + 

HTAB 1: 

VTAB 15: 

PRINT "PULSAR UNA TECLA": 

GOSUB 1200: 

G0TO 50 


RELACION DE LAS PRINCIPALES 
VARIABLES - APPLE ll 


=matriz para los buf- 
fers de máscara ví- 
deo 

=Cadenas ayuda 

=un elemento para 
cada línea de texto 

=líneas totales 

=número de páginas 

=líneas por página 

=opción elegida en el 
menú principal 

=cadena l/O con el 
disco 

= flag para página ac- 
tual 

=código de la tecla 
pulsada en escritura 

=contador de carac- 
teres 

=Cadena introducida 
(subrutina 3500) 

=coordenadas actua- 
les 

= longitud máxima pa- 
ra C$ 


LC(x) =longitud del campo 
de introducción 

Ya) ] =coordenadas en el 
vídeo del campo de 
introducción 

XD(+) ] 

YD(+) | =Coordenadas en el 
vídeo de la descrip- 
ción 

DS(x) = descripciones en las 
máscaras video 

VOS(x*) =voces del menú 
principal 

BLS$ = blank 

NFS =nombre del fichero 
datos 

NN =número de colum- 
nas en la impresión 

RR =líneas por página en 
impresión 








Tratamiento de textos/Versión Philips VG 8010 
Tratamiento de textos 








10 REA AAA 

12 REM TRATAMIENTO DE TEXTOS 

13 REM Version MSX 

14 REN. == 

15 LOCATE, 

20 CLEAR17000: DEF INTA-Z : SCREENO: WIDTH40O 

25 KEYOFF:KEVY1,CHR$ (25) ¿KEY2, CHRS (5) : KEY3, CHR$ (4) : KEYA, CHR$ (9) : KEYS, CHR$(12) : KEY6, CHR$ (11): KE 
Y7,CHR$ (15) :KEYO, CHR$ (16) :KEY9, CHR$ (18) 

35 M3=400 

40 DIM B$ (20),B1$(M3) :MX=20:NP=1 : PG=20 

50 K=1:GDSUB 1300 

60 IF OF=4 THEN CLS:END 

70 IF OP<>3 THEN 100 

80 GOSUB S00:LOCATEA, 10:PRINT"Posicionar la cinta PROGRAMAS":LOCATE13,13:PRINT"y apretar PLAY 
":+LOCATE10,20:FPRINT"despues pulsar una tecla" 

82 IF INKEYS THEN 82 

es GOSUB S00:LOCATE13,10:PRINT"E S P E R A R":LOCATE1,16:PRINT"al terminar la carga teclear R 
UN" 

90 CLOAD "IMPRESION" 

91 sTOP 

100  ONOPGOSUB 2000,3000 

110 GO0TOSO 

500 REM A oi 

530 CLS: BP$="05L32ABC" 

540  HE$="F2: vuelve al menu - F3:borra un caracter - F4:zinsercion caracteres - FS:insercion lin 
eas - Fózborrado linea - F7:pagina atras - F9: pagina adelante - F9:busqueda palabra - PULSAR UN 
TECLA -" 

53580  LOCATEO,O:PRINT"TRAT.TEX. E.G.S. Ediciones Forum S.A. ":LOCATEO, 1:FOR R=1 TO 40:PRINTCHR 
$ (1) ;CHR$(8H57)3: NEXT R 

590 RETURN 

1000 REM --- ENCIENDE CURSORE --- 

1010 LOCATEX-1,Y-1,1 

1020 RETURN 

1100 REM --- APAGA CURSOR --- 

1110 LOCATEX-1,Y-1,0 

1120 RETURN 

1200 REM ESPERA CARACTER --— 

1210 A$=INKEYS: IF A$="" OR A$="," THEN 1210 

1220  A0=ASC(A$) : RETURN 

1300 REM --- MENU --- 

1330 GOSUB S500:RESTORE:FOR J=1 TO K:READ NV: IF NV=0 THEN RETURN 

1350 L=0:FORI=1TONV:READVOS (1) :LL=LEN(VO$ (1)): IFLL>LTHENL=LL 

1370 NEXTI,J:XI=(40-1)/2:YI=((24-NVK2)/2)+1:X=X1-2: Y=Y1: FORI=1TONV:LOCATEX-1,Y-1:PRINT 1;"- "¿Y 


0$ (1): Y=Y+2:NEXTI: Y=Y+1 


1410 


LOCATEX-1,Y-1:PRINT"CUAL ?"; :GOSUB1200: OP$=CHR$ (AO) : DP=VAL (OP$) : IF OP<1 ORO P>NV THEN PLAY 


BP$:GOTO 1410 
1440 PRINT OP:FOR I=1 TO 1000:NEXT I:RETURN 


2000 
2010 
2020 
2030 
2035 
2040 
2050 
2060 
2070 
2080 
2100 
2120 
2130 
2140 
2150 
2160 
2165 
2170 
2180 
2190 
2200 
2210 
2220 


REM --- gestion cinta --- 

(=2:G0SUB 1300: 1F OP=4 THEN RETURN 

IF OP<>1 THEN 2100 

GOSUB 500 

LOCATE10,12:PRINT"NUMERO PAGINAS 2" 

XC=27: YC=13:CC=0:L0=2: GOSUB3500: NP=VAL (0$) : 1F NP<=OTHEN 2040 
GOSUBS00:LOCATE8, 12: PRINT"LINEAS POR PAGINA 2" 

XC=29:G0SUB 3500: PG=VAL (C$) : IFFG<=OTHEN2060 

MX=PGXNP: IF MX>3M3 THEN GOSUB S00:LOCATEO, 22:PRINT"MAX";M3; "LINEAS DE TEXTO. ":GOTO 2033 
GOTO 2010 

REM — a 
GOSUESOO:LOCATE?7, 12:PRINT"NOMBRE FICHERO ?" 

XC=23: YC=13:L0=6:CC=0:GOSUB 3500 

$: 1F NF: THEN 2130 

GOSUB 500: 1F OP=2 THENT$="REC y PLAY" ELSE T$=" PLAY" 

LOCATEZ2, 10:PRINT"Posicionar la cinta datos y apretar ":LOCATE14,12:PRINTTS 
LOCATE10,20:PRINT"DESPUES PULSAR UNA TECLA" 

IF INKEYS="" THEN 2170 

GOSUB S00:LOCATE13,11:PRINT"E SPERAR" 

IF OP=3 THEN 2300 

OPEN"CAS: MN "FOROUTPUTAS*1:A$="":FOR I=1 TO 6:PRINTH1,A$:NEXT:CLOSER1:REM espacio cinta 
OPEN"C +NF$ FORDUTPUTASH1 

A$="X"+SPACES (5) :MIDS (A$, 2,3) =RIGHTS (STR$ (MX) ,3) :MIDS(A$,5,2)=RIGHTS (STR$(PG),2) :PRINTH1,A 




















2230 FOR I=1 TO MX:LOCATEO, 22:PRINT"GRABO LA LINEA";1 
2240 A$="4"+B1$(1):PRINTH1,AS 
2250 NEXT I:CLOSER1:GOTO 2010 
2300 REM --- LECTURA --- 
2310 OPEN"CAS: "+NF$ FORINPUTASH1 
2320  INPUTR1, AS: MX=VAL (MIDS (A$, 2,3) ) :PG=VAL (MIDS(A$,5,2)) 
2330 FOR I=1 TO MX:LOCATEO,22:PRINT"LEO LA LINEA"; 1 
2340 INPUTH1,A$: AS=MID$ (A$, 2, 40) 
2350 B1$11)=A$+SPACES (40-LEN(A$) ) 
2350 NEXTI:CLOSE*1:GOTO2010 
2800 REN ———_—_—_—_ == 
2830  A$=SPACE$ (26) :LOCATEO, YT-1:PRINTAS; : RETURN 
2900 REM -——- ELIMINA ESPACIOS --- 
2930 ¿A=LEN(2$) : FORI=1T0A: Z21$=MI1D$(2$,1,1): 1F21$<>" "THENZ2$=22$+Z1$ 
2950  NEXTI:Z$=22$: RETURN 
3000 REM -— escritura --- 
3010  IC=0:X=1:XC=1:CC=1:L0=40:FOR I=1 TO 20:B$(1)=B1$(1+NS) :LOCATEXC-1, 1+1: 1FB$(1)="" THEN B$(1 
)=SPACE$ (40) 
3012 PRINTB$(1);:NEXTI: 
3013 IF K<>0 THEN CC= 
3020  YC=CC+2:G0SUB 3500 
3030 IF A0=S THEN GOSUB 3400: RETURN 
3040 IF A0<>31 THEN 3070 
3050 CC=CC+1: IF CC>20 THEN 3105 
3060 GOTO 3020 
3070 1F A0<>30 THEN 3100 
3080  C£=CC-1: IFCC<1THEN313S 
30909 GOTO3020 
3100  IFAO<>16THEN3130 
3105 GOSUB3400 
3110  NS=NS+20: IFNS>=MXTHENNS=NS-20 
3120 GOTO3010 
3130  IFAO<>15THEN3160 
3135 GOSUB 3400 
3140  NS=NS-20: IFNS<OTHENNS=0 
3150 GOTO3010 
3160  IFAO<>12THEN3200 
3165 GOSUB 3400 
3170 FOR I=MX-1 TO NS+CC STEP-1 
31890 B1$(1+1)=B1$(1):NEXTI 
3190  B1$(NS+CC)=SPACE$ (40) :k=CC:GOTO 3010 
3200 IF A0<>11 THEN 3250 
3205 GOSUB 3400 
3210 FOR I=NS+CC+1 TO MX 
B1$(1-1)=B1311) 
NEXT 1:B15$(MX)=SPACES$ (40) 
K=CC:GOTO 3010 
IF A0<>18 THEN 3 








OCATEZ26,23:PRINT"AYUDA: F1";:LOCATEO, 23: PRINT"PAGINA"¿NS/20+1; 
=0 











] PRINT"PA 
3 :GOSUB 3550 
NEXT X,J SUB 280 
REM --- B1$(<<BS$ -— 
FOR I=NS+1 TO NS+20: 
RETURN 













IF CC=0 OR 
C$=B$ (CC 


2 AO=16 OR 








f0=15 OR AO0=12 OR AO=11 OR A0=18 OR AO=27 THEN BS$(CC 
ETURN Y 
IF A0=9 Al 





HD 20< 









3580 IF A0=13 AND CC<>0 THEN A0=60:R=1:G0TO 3520 

3585 IF A0<>13 THEN 3520 

3590 C$=MID$(C$,1, IC) :A$=SPACES (LO-1C) :LOCATEXC+IC-1,YC-1:PRINTAS; : RETURN 

3620 IF A0<>29 THEN 3655 

3630 AND CC=0 THEN PLAYPB$:GOTO 3545 

3635 THEN A0=23: X=40: 1C=39: RETURN 

3640 =X-1:GOTO 3545 ? 

3633 IF A0=0 THEN 3545 : 

3660 IF A0=28 THEN IC=IC+1:X=X+1:GOTO 3545 

3670 CH$=CHR$ (A0) :LOCATE, YC-1:PRINTCH$; :C$=MID$(C$,1, 1C)+CH$+MIDS(C$, 1C+2,39) 2 IC=10+1:X=X+1:G0T 
O 35345 

3700 REM -- a 
3722 IF IC=LO THEN A0=0: RETURN 

3730 GOSUB 1000:GOSUB 1200:GOSUB 1100: 1F A0=S OR A0=13 DR A0=4 OR AO=30 OR 20=31 OR AO=18 OR A0 
=27 OR A0=25 OR A0=29 OR AO0=28 OR A0=9 THEN C$=C$+SPACES$ (40-L) : RETURN 

3730  CH$=CHR$ (A0) :C$=MID$ (C$, 1, IC) +CH$+MIDS (C$, IC+1,LO-IC-1):L=LEN(CS) : AS=SPACES (LO-L) :A$=C2+A$ 
¿LOCATEXC-1,YC-1:PRINTAS: X=X+1: IC=IC+1: IFIC<LOTHEN3730 

3770 AO=31:RETURN 

3800 REM — mamma 

3830 IF IC=LO THEN RETURN 

3840 C$=MID$(C$,1, IC)+MIDS(C$, IC+2,LO-IC-1):L=LEN(C$) :A$=SPACES$ (LO-L) : A$=C$+4$: LOCATEXC-1:PRINT 
As: C$=C$+SPACES (40-L) : RETURN 

10000 REM --- DATOS --- 

010 DATA 4 

10020 DATA "gestion cinta", "escritura", "impresion", "fin de tarea" 

10030 DATA 4 

10040 DATA "generacion", "escritura fichero", "lectura fichero", "vuelve al menu" 

13000 REM --- AYUDA --- 

13030 YT=24: GOSUB2800 

13040 FORI=1T0205: FORT=1T030:NEXTT:CH$=MID$(HE$, 1,1) 

13060 A$=RIGHTS$(A$,37)+CH$:LOCATEO, 23: PRINTAS; : IFINKEY$<>""THEN13110 

13100 NEXTI:GOTO13040 

13110 GOSUB2800 

13130 LOCATEO, 23:PRINT"PAGINA"5NS/20+1;TAB(26) "AYUDA: F1 "5: RETURN 














Impresión 


LO RE 

20 REM TRATAMIENTO DE TEXTOS 

30 REM IMPRESION 

33 REM > 

40 SCREENO: KEYOFF:WIDTH40: CLEAR17000: DEFINTA-2 

50  M3=402:DIMB$(130),D$(20),XD(20),YD(20),XC(20),YC(20) ,LC(20),TP(20),B1$ (M3) ,P (80) :NN=80:RR= 
40:NF=1:BP$="05L32EFG" 

55  GOSUB 500: X=9:Y=12:GOSUB11000: INFUT"NOMBRE FICHERO "¿NFS 

60 IF LEN(NF$))6 THEN 55 

70 TF NF$="" THEN S5 

80  N$="DATOS":GOSUE7OO 

85 OPEN"CAS:"+NF$ FORINPUTASH1 

90 INPUTH1,AS:MX=VAL (MID$ (A$,2,3)):PG=VAL (MIDS (A$,5,2)) 

100  GOSUB S00:FOR I=1 TO MX 

110 — INPUTR1,AS:B1$(I)=MIDS(AS,2,40):LOCATEO, 24:PRINT"LEO LA LINEA "51; 

120 NEXTI:CLOSENHL 

130  GOSUB 1300 . 

140 IF OP=5 THEN CLS:END 

150 ON OP GOSUB 4100,4500,4700,9000 * 

160 GOTO 130 

500  CLS:X=0:Y=0:GOSUB11000:PRINT"TRAT.TEX.-impr. E.G.S. Edic. Forum,S.A.":Y=1:GOSUB 11000:FOR 
R=1 TO 40:PRINTCHR$ (1);CHR$(2H57);: NEXT R 

510 RETURN 

700 REM -—- POSICIONA CINTA --- 

710  GOSUBSOO:LOCATE9-LEN(N$)/2,10:PRINT"Posicionar la cinta "¿NS:LOCATE12,14:PRINT"y apretar P 


720  LOCATE10,18:PRINT"Despues pulse una tecla" 

73 IFINKEY$="" THEN 730 

740  GOSUB S00:LOCATE13,11:PRINT"E SPERAR" 

750 RETURN 

1300 REM --- MENU -——— 

1310 GOSUB 500:LOCATE1S,S:PRINT"MENU":LOCATE1S,6:FOR R=1 TO 4:PRINTCHA$ (1) ¡CHR$(2H57);: NEXT R:P 


1320 LOCATE8, 10:PRINT"1) JUSTIFICACION" 

1330 LOCATES,12:PRINT"2) PARAMETROS IMPRESION" 
1340 LOCATES, 14:PRINT"3) IMPRESION" 

1350 LOCATES, 16:PRINT"4) IMPRESION CON FUSION" 
1360 LOCATES, 18:PRINT"S) fin de tarea" 

1370 LOCATE11,21:PRINT"Cual 2" 





1375 
1380 
1390 
2500 
2530 
2535 
2550 
2560 
2580 
2590 
2800 
2830 
2900 
2930 
2950 
4100 
4102 
4105 
4107 
4110 
4115 
4120 
4130 
4135 
4137 
4138 
4140 
4200 
4210 
4220 
4225 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4500 
A510 
4520 
4525 
4540 
4580 
4582 
4590 
4600 
4700 
4705 
4710 


OP$=INKEYS$: IF OP$<"1" OR OP$>"5" THEN 1375 

OP=VAL (OP$) 

RETURN 

REM ooo 

L=LEN(2$):1F L=0 THEN RETURN 

FOR I=1 TO L: IF MID$(2$,1,1)<>" "THENI1=1:GOTO 2560 
NEXT 1:Z$="":* RETURN 

FOR I=L TO 1STEP-1:1F MID$(2$,1,1)<>" "THENI2=1:GOTO 2590 
NEXT 1 

KO=12-11+1:Z$=MID$(2$,11,K0) : RETURN 

REM —— BORRA LINEA YT -—- 
AS=SPACES (39) : X=0: Y=YT:GOSUB 11000:PRINT A$; : RETURN 
REM --- ELIMINA ESPACIOS --- 
22$="":A=LEN(7$) :FORI=1T0A: 21$=MID$(2$,1,1):1FZ1$<>" "THENZ2$=22$+71$ 
NEXT 1:Z$=22$: RETURN 

REM -— JUSTIFICACIO --- 

GOSUB 4500 

GOSUB 500 

KK=- (NN=80) 82- (NN=40) 

FOR IR=1 TO MX STEPKK 

X=0:Y=22:GOSUB 11000:PRINT"JUSTIFICO LA LINEA "; IR 
7$=B1$(IR): IF NN=80 THEN 2$=2$+B1$(IR+1) 

GOSUB 2500: 1F 2$<>"" THEN GOSUB 4200 
B1$(IR)=LEFT$(2$,40) 

IF Ci$="<" AND 1<=40 AND NN=80 THEN IR=IR-1 

IF NN=80 THEN B1$(IR+1)=MID$(7$,41,40) 

NEXT IR: RETURN 

REM --- JUSTIFICA UNA LINEA --- 

L=LEN(2$):BL=0:FOR 1=1 TO L 
C1$=MID$(2$,1,1):C2$=MIDS(7$, 1+1,1) 

IF C1$="<" THEN RETURN 

IF Ci$=" " AND C2$<>" " THEN BL=BL+1:P(BL)=1 

NEXT 1: IF BL=0 OR L=NN THEN RETURN 

K=0:FOR I=1 TO BL 

2$=M1D$(2$,1,P(1)+K)+" "+MIDS(2$,P(1)+K+1,NN) 

IF LEN(Z$)>=NN THEN RETURN 

K=kK+1: NEXT 1 

K=0:FOR I=1 TO BL:K=k+1:P(1)=P(1)+K:NEXT 1 

GOTO 4250 

REM -——- PARAMETROS IMPRESION --- 

GOSUB 500 

X=0: Y=22:GOSUB11000: INPUT"NUMERO DE COLUMNAS "¿NN 

IF NN<>40 AND NN<>80 THEN 4520 

'2:GOSUB 11000: INPUT"LINEAS POR PAGINA "¿RR:IF RAR¿=0 THEN 4540 
GOSUB 500: X=0:Y=22:GOSUB 11000:PRINT"NUMERACION (S/N) " 
AS=INKEY$: IF A$<>"N" AND A$<>"n" AND A$<>"s" AND A$<>"S" THEN 4582 
IF A$="s" OR A$="S" THEN NF=1 ELSE NF=0 

RETURN 

REM --—— IMPRESION --- 

GOSUB 4710:GOTO 4730 

G0SUB S00:X=9: Y=12:GOSUB 11000:PRINT"POSICIONAR EL PAPEL": X=10:Y=18:GOSUB 11000:PRINT"DESP 





UES PULSE UNA TECLA" 


4720 
4725 
4730 
4736 
4740 
4745 
4747 
4750 
4751 
4760 
4770 
4775 
4780 
4790 
4800 
9000 
9100 
9110 
9120 
9130 


IFINKEY$="" THEN 4720 

GOSUB 740: RETURN 

11=0:PP=1 

KK=- (NN=80) 12- (NN=40) 

FOR I=1 TO MX STEP KK 

IF II>=RR THEN LPRINTCHRS (12) : 11=0:PP=PP+1 

IFII=0 AND NF=1 THEN LPRINT"PAGINA ";PP:LPRINT 

A$=B1$ (1): IFNN=8OTHENAS=A$+B1$(1+1) 

IF A$="" OR AS$=SPACES(NN) THEN LPRINT: 11=11+1:GOTO 4800 
FOR J=1 TO NN:CH$=MID$(A$,J,1) 

IF CH$="<" THEN LPRINT: II=11+1:R3=1:R=1:GOTO 4790 

IF CH$=" " AND R=1 THEN 4790 

R=0:LPRINTCH$; 

NEXT 3: 1F R3=0 THEN LPRINT: 11=11+1 

R3=0:NEXT I:LPRINTCHR$ (12) : RETURN 

EN + 

REM impresion con fusion 

REM — lectura FORMATO 

REM ——-— 
CLS:LOCATE 3,8:PRINT"Rebobinar la cinta DEFINICIONES":LOCATE11,11:PRINT"y apretar PLAY.":L 








OCATES, 20:PRINT"Despues pulsar una tecla." 


9140 
9150 
9160 
9170 
9180 
9190 


IF INKEYS=""THEN 9140 
GOSUB 740: DPEN"CAS: DEFC"FORINPUTAS$1 
FOR I=1 TO 20 

INPUTH1, R$ 

XD (1)=VAL (MIDS (R$, 1,72)) 

YD(1)=VAL (MID$(R$,3,2)) 


29200 
9210 
9220 
9230 
9240 
9230 
9270 
9280 
9290 
9300 
9303 
9307 
9310 
9320 
9322 
9323 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9410 
9420 
9430 
9435 
9440 
9430 
9450 
9480 
9490 
9500 
9s10 
9320 


D$ (1)=MID$(R$,5, 10) 

XC(I)=VAL (MID$ (R$, 15,2)) 
YO LI) =VAL(MIDS(R$,17,2)) 
LC(1)=VAL (MIDS (R$, 19,2)) 
TP(1)=VAL (MID$(R$,21,2)) 


NEXTI:CLOSER$1 

REM 2 

REM ELECCION DE LOS CAMPOS 

REM 

CLS:FOR I=1 TO 20: 1F D$(1)=SPACES(10) THEN 9307 


X=XD (1): Y=YD(1):GOSUB 11000:PRINTDS (1) 

NEXT 1 

FOR I=1 TO 20:1F TP(1)=0 THEN 9322 

X=XC (1): Y=YC(1):GOSUB 11000:PRINTSTR$(1) 

NEXT I 

X=0:Y=22:GOSUB 11000: FPRINT"INDICA LOS CAMPOS A IMPRIMIR: " 
FOR I=1 TO 20: 1F TP(1)=0 THEN 9370 

X=0: Y=23:GOSUB 11000:PRINT"Campo N."s13"? (S/N)"; 
A$=INKEYS: IF A$="N" A$="n" THEN-TP(1)=0:GOTO 9370 

IF A$<>5"s" AND A$<>"S" THEN 9350 

NEXT 1 

GOSUB 500: X=1:Y=11:GOSUB11000:FPRINT"NOMBRE FICHERO (de la BASE de DATOS) ":: INPUT NF$ 
N$="DATOS":GOSUB 700: OPEN"CAS: "+NF$FORINPUTAS41: INPUTH1, AS: MK=VAL (A$) 
FOR I=1 TO MK: INPUTR1,B$(1) :NEXT:CLOSER1 

1R=1:LL=2:GOSUB 4710 

REM --- IMPRESION CAMPOS --- 

LPRINT 

FOR I=1 TO 20 

A$=MID$(B$(1R),LL,LO(I)) 

LL=SLL+LC (1) 

IF TP(1)<>0 THEN LPRINT A$ 

NEXTI:LL=2:LPRINT 

GOSUB 4730: IR=IR+1 

IF IRAMK THEN RETURN 

GOTO 9430 





11000 REM --- posiciona cursor --- 
11010 LOCATE X,Y:RETURN 
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RELACION DE LAS PRINCIPALES VARIABLES - PHILIPS VG 8010 


BS$(*)  =matriz para los buffers de 
máscara vídeo 

HS(«*)  =cadenas ayuda 

B15(*) =un elemento por cada lí- 
nea de texto 


MX =líneas totales 

NP = número de páginas 

PG = líneas por página 

OP = opción elegida en el menú 
principal 

AAS$ = cadena l/O con la cinta 

NS = flag para página actual 

A0 = código de la tecla pulsada 
en escritura 

cc = contador de caracteres 

C$ = cadena introducida 
(subrutina 3500) 

Xx, Y = coordenadas actuales 


LO = longitud máxima para C$ 


LC(*)  =longitud del campo de in- 


troducción 
XC(+) ] =Ccoordenadas en el vídeo 


Ole) del campo de introducción 

mola ] =coordenadas en el vídeo 
A de la descripción 

DS(*)  =descripciones en las más- 


caras vídeo 
VOS$(x) =voces del menú principal 
BL$ = blank 


NFS = nombre del fichero datos 
NN =número de columnas en 
] impresión 
RR =líneas por página en im- 
presión 








Extensiones y modificaciones 


El modo de empleo y la propia finalidad de este tipo de 
programa están muy ligados a las necesidades espe- 
cíficas del usuario y, por tanto, las eventuales implan- 
taciones dependen estrechamente del ámbito en el 
que debe trabajar el programa. 

La orientación general que se ha dado al procedimien- 
to es en el ámbito del trabajo de secretaría y, por tanto, 
dedicado a la preparación de correspondencia. Por 
este motivo se ha incluido la función de impresión con 
fusión, que permite la preparación de cartas y circula- 
res de manera automática para distintas personas. Un 
segundo aspecto, muy importante, es la aplicación 
para la redacción de documentos técnicos o adminis- 
trativos. En estos sectores, para tener una buena elas- 
ticidad de empleo, hay que implantar funciones espe- 
cíficas y, a veces, adaptadas a las particulares necesi- 
dades del usuario. 

Los dos sectores de aplicación se analizan a continua- 
ción por separado, para así poder subrayar sus as- 
pectos principales. $in embargo, los temas que siguen 
no se exponen con detalle, sino que constituyen sola- 
mente algunas indicaciones para el desarrollo del aná- 
lisis. A pesar de ello, su traducción en términos de ins- 
trucciones no presenta unas excesivas dificultades, 
porque puede obtenerse adaptando las subrutinas y 
los módulos empleados en los programas anteriores. 


Aplicación en el sector técnico. Este tipo de empleo 
se caracteriza por: 


1 / Presencia de dibujos o gráficos 
2 / Tablas, eventualmente con desarrollo de cálculos 
3 / Escasa utilización de la Base de Datos 


Los puntos anteriores presentan, para este sector de 
aplicación, la necesidad de enlazar el programa con el 
Tablero electrónico y el programa de Gráficos. 

Para realizar de manera automática estos tipos de co- 
nexión se presentan notables dificultades. 

La solución más sencilla, que además no necesita mo- 
dificaciones de programación, consiste en pasar de 
uno a otro programa de manera manual. 

Para todos los procedimientos, esta solución ofrece to- 
das las potencialidades, pero implica un empleo farra- 
goso. La solución de mejor compromiso consiste en 
incluir algunas subrutinas del Tablero electrónico o de 
los Gráficos en el procedimiento del Tratamiento de 
textos. 

Su activación puede vincularse a una tecla funcional y, 
por tanto, desde el punto de vista del procedimiento, 
pueden tratarse de manera análoga a las funciones ya 
presentes en el Tratamiento de textos. 

No obstante, en la práctica, esta implantación no es 
tan sencilla como parece, puesto que la primera difi- 
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cultad aparece con los nombres de las variables y con 
los números de líneas. 

Por motivos de homogeneidad se han utilizado los 
mismos nombres de las variables en los procedimien- 
tos. Esta elección, útil para facilitar la comprensión de 
los distintos temas, es un obstáculo para la integración 
de partes de procedimientos diferentes. Sin embargo, 
no se trata de dificultades conceptuales, sino sólo for- 
males, porque su solución tan sólo requiere una atenta 
lectura de los listados y un tedioso trabajo de variación 
de los nombres de las variables. 

En cambio, las modificaciones de carácter sustancial 
son bastante más difíciles y siempre son necesarias 
en estos tipos de implantaciones. Para poner de mani- 
fiesto algunos aspectos, supóngase que se desea in- 
tegrar en el Tratamiento de textos una sola columna 
del Tablero electrónico. 

La primera modificación a realizar es la reducción al 
valor 1 del número máximo de columnas previstas en 
el Tablero electrónico. 

Esta modificación tiene como consecuencia inmediata 
la necesidad de eliminar los desplazamientos horizon- 
tales (o sea las traslaciones horizontales de la panta- 
lla). Además, como el Tratamiento de textos está orga- 
nizado lógicamente por páginas, también hay que eli- 
minar la traslación vertical, reduciendo el número de 
líneas al valor que puede contener la pantalla. Como 
complicación adicional, este valor deberá ser parame- 
trizado para no vincular la zona de desarrollo de las 
tablas a una posición precisa en la pantalla. En la inte- 
gración de funciones gráficas probablemente se deri- 
varán problemáticas más complejas. Desde el punto 
de vista funcional, el problema puede resolverse bo- 
rrando la pantalla (el texto no se pierde, puesto que 
queda en el buffer) y presentando el gráfico. En reali- 
dad, esta solución sólo es aparente, puesto que si 
bien permite presentar el texto y los gráficos en la pan- 
talla, no realiza una verdadera integración, ni puede 
desarrollarla. 


Aplicaciones en el sector administrativo. En este 
caso, los gráficos no suelen ser necesarios, a no ser 
marginalmente, mientras que se requiere un uso más 
intensivo de la Base de Datos, y también algunas ne- 
cesidades de cálculo. 

Sin embargo, hay que tener en cuenta que, en muchas 
aplicaciones, el desarrollo de los cálculos puede dele- 
garse a la propia Base de Datos, por lo que en los 
casos más sencillos, la adaptación del procedimiento 
a este aspecto particular de aplicación se reduce a un 
enlace más completo sólo con la Base de Datos. 

En principio, esta aplicación no presenta dificultades 
particulares porque puede derivarse de la impresión 
con fusión ya incluida en el procedimiento. 


Epílogo 


Hacia la inteligencia artificial 


A nadie se le escapa la gran importancia que la 
informática tiene en las transformaciones del mun- 
do actual. La informática junto a las telecomunica- 
ciones se están constituyendo en el sistema nervio- 
so central de nuestra sociedad. Resulta, pues, de 
gran utilidad considerar, aunque sea brevemente, 
la evolución histórica de la informática, sus tenden- 
cias actuales y su perspectiva de futuro, si quere- 
mos comprender todos estos cambios que tanto 
nos afectan. 

El desarrollo de la informática ha sido rapidísimo, 
comparado con el de otras tecnologías. En sus 
cuarenta años de historia, su capacidad se ha mul- 
tiplicado por diez cada cinco años. Pensemos que 
si los automóviles hubiesen mejorado en precio y 
calidad como lo han hecho los ordenadores, hoy 
tendríamos coches por la diezmilésima parte de su 
precio actual, con velocidades de hasta 1.000 
km/h, gastando un litro de gasolina cada 10.000 
km. y sin apenas averías durante 10.000 años. 
Que este desarrollo de la informática haya sido tan 
rápido y espectacular no significa que haya sido 
fácil. Se han tenido que afrontar muchos desafíos y 
habrá que afrontar muchos más para mantener es- 
te ritmo de crecimiento. Por ejemplo, en el aspecto 
científico-técnico de la informática el esfuerzo es 
enorme, se investigan a la vez muchas posibilida- 
des de progreso, de las cuales sólo algunas ten- 
drán éxito. Como consecuencia, en el terreno so- 
cial, resulta difícil encontrar buenos profesionales 
en las diferentes especialidades informáticas y hay 
que afrontar, pues, el problema de su formación o 
de una reconversión desde otras actividades. Por 
otra parte, los cambios son constantes dentro de la 
industria informática: cada tres años aparecen nue- 
vos productos que superan la mitad de los existen- 
tes. Finalmente, en el campo comercial, la guerra 
actual entre Japón y Estados Unidos por la con- 
quista de los mercados mundiales puede dejar fue- 
ra de juego a Europa por muy poco que ésta se 
descuide. 


Para descubrir la evolución histórica de la informá- 
tica, es útil considerar en ésta tres aspectos o com- 
ponentes fundamentales. En primer lugar la evolu- 
ción rápida de los materiales informáticos —el hard- 
ware, en inglés— cuya tecnología ha sido histórica- 
mente la primera en consolidarse a finales de los 
años setenta. En segundo lugar, el avance más difi- 
cultoso de la programación de ordenadores -—el 
software—, cuya importancia se acentúa en la déca- 
da de los setenta. Y en tercer lugar, las estructuras 
y sistemas de la información o de los datos, que 
están adquiriendo un papel propio y relevante en la 
actual década de los ochenta. 

En la evolución de los materiales informáticos se 
suelen distinguir diferentes etapas, llamadas gene- 
raciones de ordenadores. La primera generación 
(1946-52) la constituyen los ordenadores de válvu- 
las de vacío. El ENIAC (1946), por ejemplo, capaz 
de realizar 5.000 sumas por segundo, con una me- 
moria de 20 números de 10 cifras, tenía 18.000 vál- 
vulas, pesaba 30 toneladas, ocupaba el piso ente- 
ro de una escuela, tenía un consumo elevadísimo y 
había que cambiarle diariamente dos o tres válvu- 
las fundidas. Hoy día, cualquier calculadora pro- 
gramable de bolsillo es mucho más potente que el 
ENIAC. La invención del transistor marca un avan- 
ce fundamental y abre paso a la segunda genera- 
ción de ordenadores (1953-65): las nuevas máqui- 
nas transistorizadas son mucho más pequeñas, 
más rápidas y más fiables. La tercera generación 
(1963-72) se caracteriza por la incorporación de 
circuitos integrados: en lugar de usar transistores 
aislados para después conectarlos, todos estos 
componentes electrónicos y sus conexiones son 
colocados conjuntamente sobre una pastilla de sili- 
cio mediante técnicas fotográficas. La cuarta gene- 
ración (1973 ), la de los ordenadores actuales, se 
distingue de la anterior por la gran miniaturización 
o fuerte reducción en el tamaño de los circuitos in- 
tegrados: un millón de elementos lógicos sobre una 
superficie de 2 milímetros cuadrados. En esta épo- 
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ca, también aparece el microprocesador, un único 
circuito integrado —un chip- que incorpora todos 
los elementos y funciones del ordenador. Resu- 


miendo: en dos décadas la microelectrónica ha - 


conseguido que los materiales informáticos fuesen 
rápidos, fiables y baratos, poniendo el microorde- 
nador al alcance de todo el mundo. 

Sin embargo, por bueno que sea el material de que 
esté hecho el ordenador, éste de por sí sólo no sir- 
ve de mucho, porque para actuar necesita progra- 
mas. Son los programas los que indican al ordena- 
dor lo que tiene que hacer exactamente. Los orde- 
nadores son a la informática lo que los instrumen- 
tos musicales a la música y la programación o soft- 
ware son las partituras. Si el ordenador es o no una 
herramienta flexible y fácil de usar depende tam- 
bién de los programas que tenga en su memoria. 
Pero desgraciadamente, de los programas existen- 
tes actualmente menos de la mitad son buenos o 
tienen la calidad suficiente; la programación de or- 
denadores no ha sido ni es tarea fácil. 

Para solucionar los problemas que se le plantean, 
el hombre ha desarrollado gran variedad de méto- 
dos propios, con un lenguaje y una lógica bien 
adaptados a cada problema. Con la aparición del 
ordenador el objetivo perseguido es que éste nos 
ayude en la solución de nuestros problemas; para 
ello hemos de dar al ordenador estos métodos y 
procedimientos de resolución. Pero desgraciada- 
mente, la organización, el funcionamiento, el len- 
guaje y la lógica básicos de los ordenadores son 
relativamente elementales y alejados del proce- 
der y lenguaje humanos. Para poder usar la máqui- 
na hay pues que eliminar esta distancia inicial 
hombre-máquina. Esto admite sólo dos soluciones. 
Primera, la más inmediata y práctica en espera de 
máquinas mejores, es que el hombre se adapte a la 
máquina. Y, desgraciadamente, esto ha sido así 
durante demasiado tiempo. La segunda solución 
posible, y la más deseable, ha sido ir acercando la 
máquina al hombre hasta hacer que el uso del or- 
denador sea una experiencia asequible a todo el 
mundo. En esta dirección, por una parte, ya en los 
años cincuenta, se logra que la máquina pueda en- 
tender lenguajes más humanos que el lenguaje bi- 
nario de ceros y unos. Estos lenguajes permiten 
formular al ordenador problemas ya sea científicos 
(lenguaje Fortran) ya sea administrativos (lenguaje 
Cobal). Para ello hay que darle previamente al or- 
denador unos programas llamados compiladores 
que traducen los programas escritos por el hombre 
en estos lenguajes de alto nivel, al lenguaje binario 
ejecutable por la máquina. Estos progresos consti- 
tuyen lo que se ha llamado la primera generación 
del software. 

Además de afrontar la poca docilidad de las má- 
quinas y la poca expresividad de los lenguajes de 
ordenador, la programación de ordenadores ha te- 
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nido que sufrir los efectos de la rapidísima evolu- 
ción de los materiales informáticos o hardware. 
Cuando aún no se había aprovechado el 20% de 
las posibilidades de programación de una máquina 
ya aparecía otra más potente y más barata, a la 
cual había que adaptar los programas. Debido, 
pues, a la dificultad propia de la programación y a 
la necesidad de adaptar los programas a nuevas 
máquinas, a nuevas situaciones y aplicaciones, se 
vio clara la necesidad de establecer una metodolo- 
gía de la programación. El resultado fue lo que se 
ha denominado programación estructurada, que 
preconiza la construcción de programas como co- 
lecciones muy estructuradas de pequeños progra- 
mas. Es la segunda generación del software de los 
años sesenta. 

En la década de los setenta se desarrolla la tercera 
generación del software, constituida por nuevos 
sistemas operativos y nuevas herramientas para el 
desarrollo de programas. Y al mismo tiempo que 
progresa la tendencia a estructurar los programas, 
se siente la necesidad de estructurar los datos o 
informaciones con que se trabaja. Si en una etapa 
anterior los datos se consideraban embebidos en 
los programas, ahora el concepto de estructuras 
de datos o informaciones empieza a adquirir relie- 
ve por sí mismo. Así aparecen lo que se ha llamado 
bases de datos, que no son más que estructuras 
de la información. Por ejemplo, la estructuración de 
ficheros para tener fácil y rápido acceso a las infor- 
maciones que éstos contienen. 

En la actualidad la microelectrónica mantiene un rit- 
mo de avance parecido al de las épocas anteriores. 
Es de prever que a finales de siglo los componentes 
electrónicos de los ordenadores serán entre 100 y 
1.000 veces mejores que los actuales, en cuanto a la 
relación coste/efectividad y tamaño/efectividad. Sin 
embargo, a partir de los años noventa serán necesa- 
rias nuevas técnicas, pues con las actuales se habrá 
alcanzado ya el límite de tamaño mínimo. Las memo- 
rias de masas —los discos magnéticos—, que ya han 
venido mejorando en un factor de 4 cada 5 años, 
continuarán mejorando a un ritmo parecido. Por otra 
parte la tecnología de los videodiscos permitirá al- 
macenar y manipular cantidades enormes de infor- 
mación, integrando los textos y las imágenes en mo- 
vimiento. La utilización de fibras ópticas en el interior 
de los ordenadores y entre ordenadores es otra línea 
de progreso. Aparecerán también nuevos compo- 
nentes con nuevas capacidades: por ejemplo, matri- 
ces de sensores con capacidad de procesamiento y 
memoria integrada. El modelo o arquitectura de or- 
denador que ha dominado hasta hoy, llamado mode- 
lo de Von Neuman, está llegando al límite de su velo- 
cidad y potencia. Ya no es suficiente para las nuevas 
aplicaciones de la informática. Este modelo está limi- 
tado por su funcionamiento secuencial y ejecuta una 
instrucción detrás de otra; esto le impide ejecutar 
más de 10 instrucciones por segundo. Para avanzar 
más allá de este límite son necesarias máquinas no- 
secuenciales; máquinas capaces de ejecutar mu- 


chas instrucciones en paralelo mediante diferentes 
procesadores interconectados. Para ello son nece- 
sarios también nuevos modelos o procedimientos de 
manipulación de informaciones en paralelo y los len- 
guajes de programación deberán poder expresar 
estos nuevos procedimientos. Y siguiendo esta evo- 
lución, el hardware del futuro —el transputador- ya no 
será un conjunto de operaciones en paralelo —como 
el cubo cósmico del MIT— sino que se concebirá to- 
do el sistema como un flujo dinámico de datos o in- 
formaciones, gobernado por la misma disponibilidad 
de los datos. 

Por otra parte, la informática y las telecomunicacio- 
nes convergen actualmente en lo que se ha llamado 
teleinformática O telemática: ordenadores interco- 
nectados a través de la red de comunicaciones pue- 
den acceder a diferentes tipos de servicios informáti- 
cos (Teletex, Videotex, etc.). En la valoración de los 
microordenadores actuales ya se tiene en cuenta su 
facilidad para conectarse a las redes de comunica- 
ción. En un futuro podriámos tener integrados, en lo 
que se podría llamar teleordenador, los servicios del 
ordenador, del teléfono, de la televisión... 

Disponer de un ordenador más dócil y amistoso que 
los actuales es ya una necesidad que se acentuará 
en los años venideros. Ya han aparecido en el mer- 
cado algunos ordenadores que mediante gráficos o 
iconos simulan el entorno de trabajo del hombre, fa- 
cilitándole que escoja, en cada momento, la herra- 
mienta adecuada al problema planteado. El hombre 
dispone de todo lo que ve representado en la panta- 
lla mediante gráficos. En un futuro sería deseable lo- 
grar que la máquina admitiese los medios de expre- 
sión típicamente humanos —lenguaje corriente habla- 
do y escrito, imágenes gráficas, etc.— aunque fuere 
de forma restringida. 

La misma programación de ordenadores ha progre- 
sado al admitir nuevos lenguajes, que en lugar de 
indicar al ordenador lo que éste tiene que hacer, le 
describen o especifican de forma completa el pro- 
blema a resolver y dejan que sea el mismo ordena- 
dor el que determine cómo resolver el problema. Por 
ejemplo, la denominación «programación lógica» —el 
PROLOG es uno de sus lenguajes— permite formular 
explícitamente al ordenador los conocimientos nece- 
sarios para resolver un problema. 

La mayoría de las líneas de progreso de la informáti- 
ca han sido una respuesta a las necesidades prácti- 
cas presentadas. Pero al mismo tiempo han existido 
desde siempre corrientes más teóricas, más especu- 
lativas. Entre ellas es de destacar la denominada in- 
teligencia artificial, cuyo objetivo es utilizar los con- 
ceptos y las herramientas básicas de la informática 
para simular y comprender mejor la inteligencia hu- 
mana, y así poder construir máquinas cada vez más 
inteligentes. Durante casi treinta años una pequeña 
comunidad de investigadores ha intentado con éxito 
diverso programar ordenadores para hacer de ellos 
sistemas o herramientas inteligentes de resolución 
de problemas. A mitad de los años setenta, después 
de dos décadas de progreso pesadamente lento, los 
investigadores de la inteligencia artificial llegaron a 
una conclusión fundamental sobre el comportamien- 
to inteligente en general: requiere una tremenda can- 


tidad de conocimientos, que la gente da a menudo 
por supuestos, pero que deben aportarse al ordena- 
dor con todo detalle. Por ejemplo, entender las ex- 
presiones del lenguaje corriente, incluso las más 
sencillas, requiere amplios conocimientos del con- 
texto, sobre quien habla y el mundo en general, que 
están fuera de la capacidad de los ordenadores ac- 
tuales. La única solución consiste en restringir o deli- 
mitar dicho contexto en cada caso. No es de extra- 
ñar, pues, que los programas con más éxito, los lla- 
mados sistemas expertos, son los que resuelven pro- 
blemas en un dominio bien delimitado y de conoci- 
mientos fácilmente expresables en forma de reglas 
empíricas. Por ejemplo, las reglas empíricas utiliza- 
das en todo tipo de diagnóstico, ya sea de enferme- 
dades o de averías mecánicas, las reglamentacio- 
nes legislativas, las reglas de diseño y configuración 
de ordenadores, etc. 

Los sistemas expertos han sido una de las primeras 
aplicaciones de la inteligencia artificial con éxito in- 
dustrial y comercial. Otras áreas de aplicación, cuya 
experimentación se ha mantenido hasta ahora den- 
tro de los laboratorios, pasarán a ser también aplica- 
ciones industriales. Entre éstas, por su demanda so- 
cial, son de destacar la traducción automática res- 
tringida y el resumen de documentos, la ayuda inteli- 
gente a la concepción, ingeniería y producción asis- 
tida por ordenador (CAD/CAM); el reconocimiento 
de textos hablados o escritos y su comprensión en 
dominios restringidos; la visión artificial y los robots 
inteligentes capaces de coordinar dinámicamente su 
percepción, sus acciones; la enseñanza asistida in- 
teligentemente por ordenador; sistemas inteligentes 
de automatización de oficinas, etc. 

Para afrontar estos desafíos de la inteligencia artifi- 
cial es necesario un nuevo tipo de ordenador no-se- 
cuencial y programable mediante lenguajes lógicos 
de especificación de problemas. A este nuevo tipo 
de ordenador los japoneses lo han llamado ordena- 
dor de la quinta generación. Y lo han concebido para 
que sea fácilmente utilizable tanto en el trabajo como 
en casa: por tanto su comportamiento ha de ser fácil- 
mente comprensible por el hombre; habrá de dispo- 
ner de las máximas facilidades de interacción —gráfi- 
cos, lenguaje corriente hablado y escrito, etc.— y de- 
berá ser fácilmente conectable a las redes de teleco- 
municaciones. Para su consecución los japoneses 
han puesto en marcha un plan de investigación, de 
diez años de duración, que viene funcionando desde 
enero de 1982. En Estados Unidos este proyecto ha 
tenido su réplica en dos planes de investigación que, 
entre otras cosas, tienen por objetivo potenciar la in- 
vestigación en inteligencia artificial. En Europa, el 
proyecto ESPRIT ha dado también un papel relevan- 
te a la inteligencia artificial. Desde la perspectiva ac- 
tual estos proyectos responden a una necesidad de 
progreso bien sentida, pero el futuro depara siempre 
muchas sorpresas y será la experiencia la que juzga- 
rá la cantidad y la calidad de los resultados obteni- 
dos hacia la inteligencia artificial. 


J. Agustí 
y y. J. Villanueva 
Universidad Autónoma de Barcelona 
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30. La matriz está (...) 

(...) puede verse en la página 32 
(...) flujo de las páginas 34 a 39 
grama de flujo (pág. 38) no 
4080 (...) ALLINEAMENTI (...) 
grafía de la página 56, (...) 

(...) primera foto de la página 56. 
na 57 sólo se habrá (...) 

(...) en las páginas 79 y 

80. Las funciones (...) 

ejemplo de la pág. 61 (...) 
12229 GOSUB 11000 

102 hay el campo (...) 

122 se ha representado el 

de la página 123. 
ENU":SL$="/” 

2345 GOTO 2345 
ENU”:SL$="/" 

2216 GOTO 2216: (...) 

5340 F2(...)CHR(192)) 


15552 G$ = "V":1'$ = "S":0$ = "RWW":LY = 
18 (...) 


15725 X =0: (...) 

15765 PRINT CHR$ (203) 

La lógica del programa 

Los listados/Versión Commodore 64 
171 y 172 no genera copias 

Entre 5000 y 500Y 

9150 REM ROUTINE ERRORE 

(...) hasta un máximo de trece. 
Tabla Canguro O o 1 

4650 RE = 1 + RE 

4700 R8 = R8 + 1:A$ = " ":FORI = 11010 


Corrección 
1754. La matriz está (...) 


(...) puede verse en la página 1756 





(...) flujo de las páginas 1758 a 1763 





grama de flujo (pág. 1762) no 
4080 (...) ALINEADOS (...) 

grafía de la página 1782, (...) 

(...) primera foto de la página 1782. 


na 1783 sólo se habrá (...) 





(...) en las páginas 1825 y 
1826. Las funciones (...) 
ejemplo de la página 1787 (...) 
12220 GOSUB 11000 

1826 hay el campo (...) 


1846 se ha representado el 





de la página 1847. 
ENU/:SL$="/" 
anular 


ENU/":SL$="/" 





2216 GOTO (...) 
5340 F2(...) "—”) 


G$ = CHR$(1) + CHRS(8H56): 
IS = CHR$(1) + CHRS(8H53): 
O$ = CHRS$(1) + CHR$(8H52): 
ELY = 1 (...) 





15725 X =1:(..,) 
15765 PRINT CHR$ (8HCC) 





Los listados/Versión Commodore 64 

La lógica del programa 

1894 y 1895 no genera copias 

Intercalar: 5002 POKE 52,64:POKE 56,64 
95150 RUTINA ERROR 

(...) hasta un máximo de dieciocho. 

Canguro 1 0 1 

4650 RE = 1 + RE: IFRE > 20 THENRETURN 


4700 R8 = R8 + 1:IFR8 > 20 THENRETURN 


ELSEAS = * ":FORI = 1TO10 
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